Slik kopierer du til utklippstavlen i Microsoft Visual Basic

Innhold

• retninger

Det er nyttig å vite hvordan du bruker systemutklippstavlen til å kopiere informasjon fra ett program til et annet ved hjelp av Microsoft Visual Basic .NET (VB.NET). Utklippstavlen er et miljø som deles mellom programmer i Windows, noe som gjør det enklere å dele informasjon. Programmører må ofte eksportere informasjon fra en VB.NET-applikasjon til et Microsoft Excel-regneark. Du kan imidlertid skrive VB.NET-koden for å kopiere data til systemutklippstavlen og lime den inn i et Excel-regneark.

retninger

Du kan kopiere dataene til systemutklippstavlen ved hjelp av Visual Basic .NET (digital city.binary tunnel og by om natten bilde av Stasys Eidiejus fra Fotolia.com)

1. Skriv inn følgende kode i en ny underrutine i ditt VB.NET-prosjekt for å erklære Excel-variablene dine:

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

2. Skriv inn følgende kode for å legge til en tekststreng til utklippstavlen og få teksten fra den:

   Dim processObject As New Process Clipboard.SetDataObject ("Dette kopieres til utklippstavlen og legges til Excel.")

   
   

   Dim utklippstavleObject As IDataObject = Utklippstavle.GetDataObject ()

3. Skriv inn følgende kode for å åpne Excel og legg til et nytt regneark:

   XLApp = Ny 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. Skriv inn følgende kode for å legge til sekvensen fra utklippstavlen til Excel:

   Med clipboardObject Hvis .GetDataPresent (DataFormats.Text) Så XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) Slutt hvis slutt med

5. Kjør programmet ditt