Slik kopierer til utklippstavlen i Microsoft Visual Basic

October 5

Det er nyttig å vite hvordan du skal bruke systemet utklippstavlen til å kopiere informasjon fra en applikasjon til en annen ved hjelp av Microsoft Visual Basic.NET (VB.NET). Utklippstavlen er et miljø som er delt mellom programmer i Windows, noe som gjør det enklere å dele informasjon. Programmerere trenger ofte å eksportere informasjon fra en VB.NET program til et Microsoft Excel-regneark. Du kan imidlertid skrive VB.NET kode for å kopiere data til systemet utklippstavlen og lime den inn i et Excel-regneark.

Bruksanvisning

1 Skriv inn følgende kode i en ny subrutine i VB.NET prosjekt for å erklære Excel-variabler:

Dim XLApp Som Microsoft.Office.Interop.Excel.Application = Nothing

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

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

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

Dim XLSheet Som Microsoft.Office.Interop.Excel.Worksheet = Nothing

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

Dim processObject som ny Process

Clipboard.SetDataObject ( "Dette er kopiert til utklippstavlen og lagt til Excel.")

Dim clipboardObject Som IDataObject = Clipboard.GetDataObject ()

3 Skriv inn følgende for å åpne Excel og legge 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 for å legge til strengen fra utklippstavlen til Excel:

med clipboardObject

If .GetDataPresent(DataFormats.Text) Then

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

Slutt om

End With

5 Kjør programmet.