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