Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> .

Come copiare negli Appunti in Visual Basic

E ' utile sapere come utilizzare la clipboard di sistema per copiare le informazioni da un'applicazione all'altra utilizzando Microsoft Visual Basic.NET ( VB.NET ) . La clipboard è un ambiente che è condivisa tra i programmi in Windows , rendendo più semplice per condividere le informazioni . I programmatori hanno spesso bisogno di esportare le informazioni da un'applicazione VB.NET a un foglio di lavoro di Microsoft Excel. Tuttavia, è possibile scrivere codice VB.NET per copiare i dati negli Appunti del sistema e incollarlo in un foglio di lavoro di Excel . Istruzioni
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 = Niente

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

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

Dim XLSheets As 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 As New Process

Clipboard.SetDataObject ( "Questo è copiato negli appunti e aggiunto a Excel . " ) per

Dim clipboardObject Come IDataObject = Clipboard.GetDataObject ( )
3

digitare quanto segue per aprire Excel e aggiungere un nuovo foglio di lavoro :

xlApp = New 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 ) per

XLSheets = XLBook.Worksheets
4

digitare quanto segue per aggiungere la stringa dagli Appunti di Excel : .

clipboardObject

GetDataPresent ( DataFormats . Text ) Poi

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

End If End With


5

Esegui il programma .

 

Programmazione © www.354353.com