Nachdem das Wissen , wie man Daten aus einer Anwendung kopieren und Einfügen in ein anderes können Sie Zeit sparen bei der Arbeit mit verschiedenen Anwendungen . Sie können die Zwischenablage verwenden , um Daten zu kopieren und in einer anderen Anwendung mit Visual Basic.NET . Die Zwischenablage ist eine Reihe von Funktionen, die alle Anwendungen zugreifen , so dass es einfach, Daten zwischen ihnen zu übertragen. Visual Basic ist eine Programmiersprache, die Microsoft relativ einfach zu bedienen ist . Anleitung
1

Starten Sie Visual Basic.NET und erstellen Sie eine neue "Windows Forms Application" -Projekt. Fügen Sie einen " TextBox " und zwei " Buttons " auf das Formular.
2

Klicken Sie "Projekt" im Menü "Datei" und wählen Sie " Eigenschaften " . Wählen Sie " Referenzen " auf der linken Seite und klicken Sie auf "Hinzufügen ..." . Klicken Sie auf die "COM ", wählen Sie "Microsoft Excel 12.0 Object Library" und klicken Sie auf "OK".
3

Doppelklicken Sie auf das Formular, um den " Form1.vb "-Modul zu öffnen. Unter " Form1_Load " Geben Sie den folgenden Text , um eine Zeichenfolge in das Textfeld hinzuzufügen :

Me.TextBox1.Text = " Ich kopierte die Zeichenfolge aus einer VB-Anwendung und eingefügt in Microsoft Excel. "
< Br > 4

Klicken Sie auf " Form1.vb [Entwurf] " und doppelklicken Sie auf " Button1 " . Geben Sie den folgenden Abschnitt " Button1 " , um die Zeichenfolge in die Zwischenablage kopieren :

Dim obj As New Process

Clipboard.SetDataObject ( Me.TextBox1.Text )
5

Geben Sie den folgenden an die Spitze des " Form1.vb "-Modul :

Importe Microsoft.Office.Interop.Excel
6

Klicken Sie auf " Form1.vb [Entwurf] " Registerkarte und doppelklicken Sie auf " Button2 " . Geben Sie den folgenden , um eine neue Tabelle zu erstellen , öffnen Sie es und fügen Sie die Zeichenfolge in die Zwischenablage kopiert aus Ihrer VB-Anwendung :

Dim objClipbrd Wie IDataObject = Clipboard.GetDataObject () Dim

objXL Wie Microsoft. Office.Interop.Excel.Application = Nothing

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

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

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

Dim objSht Wie Microsoft.Office.Interop.Excel.Worksheet = Nothing

objXL = Neue Microsoft. Office.Interop.Excel.Application

objXL.Visible = True

objXL.DisplayAlerts = False

objBk = CType ( objXL.Workbooks.Add () , Microsoft.Office . Interop.Excel.Workbook )

objBks = objXL.Workbooks

objSht = CType ( objBks (1). Sheets.Item (1) , Microsoft.Office.Interop.Excel.Worksheet )

objShts = objBk.Worksheets

objClipbrd

. GetDataPresent ( DataFormats.Text ) Dann

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

End If End With

7

Ihr Programm starten und auf " Button1 " , um die Zeichenfolge in das Textfeld angezeigt kopieren. Klicken Sie auf " Button2 ", um eine neue Excel-Tabelle öffnen und fügen Sie den String.