Sådan kopieres til udklipsholder i Microsoft Visual Basic

Forfatter: William Ramirez
Oprettelsesdato: 15 September 2021
Opdateringsdato: 12 December 2024
Anonim
Sådan kopieres til udklipsholder i Microsoft Visual Basic - Artikler
Sådan kopieres til udklipsholder i Microsoft Visual Basic - Artikler

Indhold

Det er nyttigt at vide, hvordan man bruger systemets udklipsholder til at kopiere oplysninger fra en applikation til en anden ved hjælp af Microsoft Visual Basic .NET (VB.NET). Udklipsholderen er et miljø, der deles mellem programmer i Windows, hvilket gør det lettere at dele information. Programmører skal ofte eksportere oplysninger fra en VB.NET-applikation til et Microsoft Excel-regneark. Du kan dog skrive VB.NET-koden for at kopiere data til systemets udklipsholder og indsætte det i et Excel-regneark.


retninger

Du kan kopiere dataene til systemets udklipsholder ved hjælp af Visual Basic .NET (digital city.binary tunnel og city at night billede af Stasys Eidiejus fra Fotolia.com)

  1. Indtast følgende kode i en ny underrutine i dit VB.NET-projekt for at erklære dine Excel-variabler:

    Dim XLApp Som Microsoft.Office.Interop.Excel.Application = Intet Dim XLBooks Som Microsoft.Office.Interop.Excel.Workbooks = Intet Dim XLBook Som Microsoft.Office.Interop.Excel.Workbook = Intet Dim XLSheets Som Microsoft.Office.Interop .Excel.Sheets = Intet Dim XLSheet Som Microsoft.Office.Interop.Excel.Worksheet = Intet

  2. Indtast følgende kode for at tilføje en tekststreng til udklipsholderen og få teksten fra den:

    Dim processObject As New Process Clipboard.SetDataObject ("Dette kopieres til udklipsholderen og tilføjes til Excel.")


    Dim clipboardObject As IDataObject = Udklipsholder.GetDataObject ()

  3. Indtast følgende kode for at åbne Excel og tilføj et nyt regneark:

    XLApp = Ny Microsoft.Office.Interop.Excel.Application XLApp.Visible = Ægte 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. Indtast følgende kode for at tilføje sekvensen fra Udklipsholder til Excel:

    Med clipboardObject Hvis .GetDataPresent (DataFormats.Text) Så XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) Slut Hvis Slut Med

  5. Kør dit program