Come copiare negli Appunti in Microsoft Visual Basic

November 10

Come copiare negli Appunti in Microsoft Visual Basic


E 'utile sapere come utilizzare il sistema di appunti per copiare le informazioni da un'applicazione all'altra utilizzando Microsoft Visual Basic.NET (VB.NET). La clipboard è un ambiente che viene condiviso tra i programmi in Windows, rendendo più facile la condivisione delle informazioni. I programmatori spesso la necessità di esportare le informazioni da un'applicazione VB.NET di un foglio di lavoro di Microsoft Excel. Tuttavia, è possibile scrivere codice VB.NET per copiare i dati negli appunti di sistema e incollarlo in un foglio di lavoro di Excel.

istruzione

1 Digitare il seguente codice in un nuovo sottoprogramma nel progetto VB.NET per dichiarare le variabili di Excel:

Dim xlApp Come Microsoft.Office.Interop.Excel.Application = Nothing

XLBooks fiochi come Microsoft.Office.Interop.Excel.Workbooks = Nothing

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

XLSheets fiochi come Microsoft.Office.Interop.Excel.Sheets = Nothing

Dim xlSheet Come Microsoft.Office.Interop.Excel.Worksheet = Nothing

2 Digitare quanto segue per aggiungere una stringa di testo negli appunti e ottenere il testo dagli appunti:

Dim processObject Come nuovo processo

Clipboard.SetDataObject ( "Questo viene copiata negli appunti e ha aggiunto a Excel.")

Dim clipboardObject Come IDataObject = Clipboard.GetDataObject ()

3 Digitare la seguente per aprire Excel e aggiungere un nuovo foglio di lavoro:

XlApp = Nuovo 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 Digitare quanto segue per aggiungere la stringa dagli Appunti in Excel:

con clipboardObject

If .GetDataPresent(DataFormats.Text) Then

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

Finisci se

End With

5 Eseguire il programma.