Det är bra att veta hur man använder systemet urklipp för att kopiera information från en applikation till en annan med hjälp av Microsoft Visual Basic.NET ( VB.NET ) . Den Urklipp är en miljö som delas mellan programmen i Windows , vilket gör det enklare att dela information . Programmerare behöver ofta exportera information från en VB.NET applikation till en Microsoft Excel-kalkylblad . Men du kan skriva VB.NET kod för att kopiera data till Urklipp och klistra in den i ett Excel-kalkylblad . Instruktioner
1
Skriv följande kod i en ny subrutin i din VB.NET projekt för att deklarera dina Excel variabler :
Dim xlApp Som Microsoft.Office.Interop.Excel.Application = Ingenting
Dim XLBooks As Microsoft.Office.Interop.Excel.Workbooks = ingenting
Dim XLBook Som Microsoft.Office.Interop.Excel.Workbook = ingenting
Dim XLSheets As Microsoft.Office.Interop.Excel.Sheets = Nothing
Dim XLSheet som Microsoft.Office.Interop.Excel.Worksheet = Nothing
2
Skriv följande för att lägga till en textsträng till klippbordet och få texten från klippbordet :
Dim processObject som Ny Process
Clipboard.SetDataObject ( " Detta kopieras till urklipp och läggs till Excel . " ) katalog
Dim clipboardObject som IDataObject = Clipboard.GetDataObject ( )
3
Skriv följande för att öppna Excel och lägga till ett nytt kalkylblad :
xlApp = ny Microsoft.Office.Interop . Excel.Application
XLApp.Visible = true
XLApp.DisplayAlerts = False
XLBook = ctyp ( XLApp.Workbooks.Add ( ) , Microsoft.Office.Interop . Excel.Workbook )
XLBooks = XLApp.Workbooks
XLSheet = ctyp ( XLBooks ( 1 ) . Sheets.Item ( 1 ) , Microsoft.Office.Interop.Excel.Worksheet ) katalog
XLSheets = XLBook.Worksheets
4
Skriv följande för att lägga till strängen från klippbordet till Excel : .
clipboardObject
p Om GetDataPresent ( DataFormats . Text ) Sedan
XLSheet.Cells ( 1 , 1 ) = . getData ( DataFormats.Text ) katalog
End If
End With
5
Kör ditt program .
