Contenuto
È utile sapere come utilizzare gli Appunti di sistema per copiare le informazioni da un'applicazione a un'altra utilizzando Microsoft Visual Basic .NET (VB.NET). Gli appunti sono un ambiente condiviso tra i programmi in Windows, facilitando la condivisione delle informazioni. I programmatori spesso devono esportare le informazioni da un'applicazione VB.NET in un foglio di calcolo di Microsoft Excel. Tuttavia, è possibile scrivere il codice VB.NET per copiare i dati negli Appunti di sistema e incollarli in un foglio di lavoro Excel.
indicazioni
-
Immettere il seguente codice in una nuova subroutine nel progetto VB.NET per dichiarare le variabili di Excel:
Dim XLApp As Microsoft.Office.Interop.Excel.Application = Nothing Dim XLBooks As Microsoft.Office.Interop.Excel.Workbooks = Nothing Dim XLBook As Microsoft.Office.Interop.Excel.Workbook = Nothing Dim XLSheets As Microsoft.Office.Interop .Excel.Sheets = Nothing Dim XLSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing
-
Inserisci il seguente codice per aggiungere una stringa di testo negli Appunti e ottenere il testo da esso:
Dim processoObject As New Process Clipboard.SetDataObject ("Questo viene copiato negli appunti e aggiunto a Excel.")
Dim clipboardObject As IDataObject = Clipboard.GetDataObject ()
-
Immettere il seguente codice per aprire Excel e aggiungere un nuovo foglio di lavoro:
XLApp = Nuovo Microsoft.Office.Interop.Excel.Application XLApp.Visible = True XLApp.DisplayAlerts = Falso 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
-
Digitare il codice seguente per aggiungere la sequenza dagli Appunti ad Excel:
Con clipboardObject If .GetDataPresent (DataFormats.Text) Then XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) End If End With
-
Esegui il tuo programma