Es ist nützlich zu wissen, wie die Zwischenablage des Systems verwenden, um Informationen aus einer Anwendung in eine andere mithilfe von Microsoft Visual Basic.NET (VB.NET ) zu kopieren. Die Zwischenablage ist eine Umgebung, die auf die einzelnen Programme in Windows genutzt wird , macht es einfacher, Informationen zu teilen. Programmierer müssen häufig Informationen aus einer VB.NET-Anwendung exportieren, um eine Microsoft Excel-Arbeitsblatt. Allerdings können Sie schreiben VB.NET-Code , um Daten in die Zwischenablage kopieren und in ein Excel-Arbeitsblatt . Anleitung
1

Geben Sie den folgenden Code in ein neues Unterprogramm in Ihr VB.NET-Projekt , um Ihre Excel Variablen zu deklarieren : Dim

xlApp Wie Microsoft.Office.Interop.Excel.Application = Nichts

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

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

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

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

Geben Sie den folgenden ein Text-String hinzufügen in die Zwischenablage und bekommen den Text aus der Zwischenablage :

Dim processObject Wie New Process

Clipboard.SetDataObject ( "Das wird in die Zwischenablage kopiert und zu Excel. " )
< p > Dim clipboardObject Wie IDataObject = Clipboard.GetDataObject ( )
3

Geben Sie den folgenden in Excel öffnen und ein neues Arbeitsblatt :

xlApp = New 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

Geben Sie den folgenden , um die Zeichenfolge aus der Zwischenablage in Excel hinzufügen : .

clipboardObject

Wenn GetDataPresent ( DataFormats . Text ) Dann

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

End If End With

5 < p> Führen Sie das Programm .