Sisu
On kasulik teada, kuidas kasutada süsteemi lõikelauale teabe kopeerimiseks ühest rakendusest teise, kasutades Microsoft Visual Basic .NET (VB.NET). Lõikepuhver on keskkond, mis jagatakse Windowsi programmide vahel, lihtsustades teabe jagamist. Programmeerijad peavad sageli VB.NET-rakendusest teavet eksportima Microsoft Exceli arvutustabelisse. Samas võite kirjutada VB.NET koodi, et kopeerida andmeid süsteemi lõikepuhvrisse ja kleepida see Exceli töölehele.
Juhised
Te saate kopeerida andmed süsteemi lõikelauale Visual Basic .NET abil Stasys Eidiejus (Fotolia.com) (digitaalne linnatänav tunnel ja linn öösel)-
Sisestage oma VB.NET projekti uude alamprogrammis järgmine kood, et deklareerida oma Exceli muutujad:
Dim XLApp nagu Microsoft.Office.Interop.Excel.Application = Miski Dim XLBooks nagu Microsoft.Office.Interop.Excel.Workbooks = Miski Dim XLBook nagu Microsoft.Office.Interop.Excel.Workbook = Miski Dim XLSheets nagu Microsoft.Office.Interop .Excel.Sheets = Miski Dim XLSheet nagu Microsoft.Office.Interop.Excel.Worksheet = Miski
-
Sisestage tekstijoonte lõikepuhvrisse lisamiseks järgmine kood ja saada sellest tekst:
Mõelge protsessObject uue protsessi lõikepuhvrisse.SetDataObject ("See kopeeritakse lõikepuhvrisse ja lisatakse Excelisse.")
Dim clipboardObject nagu IDataObject = lõikepuhver.GetDataObject ()
-
Sisestage järgmine kood Exceli avamiseks ja uue töölehe lisamiseks:
XLApp = Uus Microsoft.Office.Interop.Excel.Application XLApp.Visible = Tõeline XLApp.DisplayAlerts = Vale XLBook = CType (XLApp.Workbooks.Add (), Microsoft.Office.Interop.Excel.Workbook) XLBooks = XLApp.Workbooks XLSheet = CType (XLBooks (1) .Sheets.Item (1), Microsoft.Office.Interop.Excel.Worksheet) XLSheets = XLBook.Worksheets
-
Sisestage järgnev kood lõikepuhvrist Excelisse lisamiseks:
Kui lõikeplaatObject Kui .GetDataPresent (DataFormats.Text) Siis XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) Lõpeta, kui lõpetate
-
Käivitage oma programm