Det er nyttigt at vide, hvordan man bruger systemets klippebord til at kopiere oplysninger fra et program til et andet ved hjælp af Microsoft Visual Basic.NET ( VB.NET ) . Udklipsholderen er et miljø , der er delt mellem programmer i Windows , hvilket gør det nemmere at dele information. Programmører har ofte brug for at eksportere oplysninger fra en VB.NET applikation til en Microsoft Excel-regneark. Men du kan skrive VB.NET kode til at kopiere data til systemet klippebordet og indsætte det i et Excel-regneark . Instruktioner
1

Indtast følgende kode i en ny subrutine i din VB.NET projekt at erklære dine Excel variabler:

Dim XLApp Som Microsoft.Office.Interop.Excel.Application = Nothing

Dim XLBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing

Dim XLBook Som Microsoft.Office.Interop.Excel.Workbook = Nothing

Dim XLSheets As Microsoft.Office.Interop.Excel.Sheets = Nothing

Dim XLSheet Som Microsoft.Office.Interop.Excel.Worksheet = Nothing
2

Skriv følgende for at tilføje en tekststreng til klippebordet og få teksten fra klippebordet : Hej

Dim processObject Som New Process

Clipboard.SetDataObject ( "Dette er kopieret til klippebordet og tilføjes til Excel. " )
< p > Dim clipboardObject Som IDataObject = Clipboard.GetDataObject ()
3

Skriv følgende for at åbne Excel og føje et nyt regneark : Hej

XLApp = Ny Microsoft.Office.Interop . Excel.Application

XLApp.Visible = Ægte

XLApp.DisplayAlerts = False

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
4

Skriv følgende for at tilføje strengen fra klippebordet til Excel: .

clipboardObject
p Hvis GetDataPresent ( DataFormats . Text) Så

XLSheet.Cells (1, 1) = . GetData ( DataFormats.Text )

End If

End With
5 < p> Kør dit program.