So kopieren Sie in die Zwischenablage in Microsoft Visual Basic

Autor: Janice Evans
Erstelldatum: 25 Juli 2021
Aktualisierungsdatum: 22 November 2024
Anonim
AL Anwesenheitstabelle
Video: AL Anwesenheitstabelle

Inhalt

Es ist nützlich zu wissen, wie die Systemzwischenablage verwendet wird, um Informationen mithilfe von Microsoft Visual Basic .NET (VB.NET) von einer Anwendung in eine andere zu kopieren. Die Zwischenablage ist eine Umgebung, die von Programmen in Windows gemeinsam genutzt wird, um das Freigeben von Informationen zu erleichtern. Programmierer müssen häufig Informationen aus einer VB.NET-Anwendung in eine Microsoft Excel-Kalkulationstabelle exportieren. Sie können jedoch den VB.NET-Code schreiben, um Daten in die Zwischenablage des Systems zu kopieren und in ein Excel-Arbeitsblatt einzufügen.


Anweisungen

Sie können die Daten mithilfe von Visual Basic .NET in die Systemzwischenablage kopieren (digital city.binary tunnel und city bei nacht bild von Stasys Eidiejus von Fotolia.com)

  1. Geben Sie den folgenden Code in eine neue Subroutine in Ihrem VB.NET-Projekt ein, um Ihre Excel-Variablen zu deklarieren:

    Dim XLApp As Microsoft.Office.Interop.Excel.Application = Nichts Dim XLBooks als Microsoft.Office.Interop.Excel.Workbooks = Nichts Dim XLBook Als Microsoft.Office.Interop.Excel.Workbook = Not Dim XSheets Als Microsoft.Office.Interop .Excel.Sheets = Not Dim XLSheet als Microsoft.Office.Interop.Excel.Worksheet = Nothing

  2. Geben Sie den folgenden Code ein, um eine Textzeichenfolge in die Zwischenablage einzufügen und den Text daraus abzurufen:

    Dim processObject As New Process Clipboard.SetDataObject ("Dies wird in die Zwischenablage kopiert und nach Excel hinzugefügt.")


    Dim clipboardObject As IDataObject = Clipboard.GetDataObject ()

  3. Geben Sie den folgenden Code ein, um Excel zu öffnen, und fügen Sie ein neues Arbeitsblatt hinzu:

    XLApp = New Microsoft.Office.Interop.Excel.Application XLApp.Visible = True XLApp.DisplayAlerts = False XLBook = CType (XLApp.Workbooks.Add (), Microsoft.Office.Interop.Excel.Workbooks) XLSheet = CType (XLBooks (1). Sheets.Item (1), Microsoft.Office.Interop.Excel.Worksheet) XLSheets = XLBook.Worksheets

  4. Geben Sie den folgenden Code ein, um die Sequenz aus der Zwischenablage zu Excel hinzuzufügen:

    Mit clipboardObject Wenn .GetDataPresent (DataFormats.Text) Dann XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) End If End mit

  5. Führen Sie Ihr Programm aus