Det er nyttig å vite hvordan du bruker systemet utklippstavlen til å kopiere informasjon fra en applikasjon til en annen ved hjelp av Microsoft Visual Basic.NET ( VB.NET ) . Utklippstavlen er et miljø som er delt mellom programmer i Windows , noe som gjør det enklere å dele informasjon. Programmerere ofte behov for å eksportere informasjon fra en VB.NET program til en Microsoft Excel-regneark. Du kan imidlertid skrive VB.NET kode for å kopiere data til systemet utklippstavlen og lime den inn i et Excel-regneark . Instruksjoner
en

Skriv inn følgende kode i en ny subrutine i VB.NET prosjekt for å erklære dine Excel variabler:

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

Dim XLBooks Som Microsoft.Office.Interop.Excel.Workbooks = Ingenting

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

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

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

Skriv inn følgende for å legge til en tekststreng til utklippstavlen og få tekst fra utklippstavlen : en

Dim processObject som ny Process

Clipboard.SetDataObject ("Dette er kopiert til utklippstavlen og lagt til Excel. ")
< p > Dim clipboardObject Som IDataObject = Clipboard.GetDataObject ( )
3

Skriv inn følgende for å åpne Excel og legge til et nytt regneark : en

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

XLApp.Visible = true

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 inn følgende for å legge strengen fra utklippstavlen i Excel: .
p Med clipboardObject
p Hvis GetDataPresent ( DataFormats . Text ) Så

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

End If

End With
5 < p> Kjør programmet .