Eigenschappen" . Selecteer "Verwijzingen " aan de linkerkant en klik op " Voeg toe ... " . Klik op het tabblad "COM" , selecteer " Microsoft Excel 12.0 Object Library " en klik op "OK " .
3 Dubbelklik op het formulier om de " Form1.vb " module te openen . Onder " Form1_Load " Typ het volgende om tekst toe te voegen aan het tekstvak :
Me.TextBox1.Text
= " kopieerde ik deze string van een VB- applicatie en geplakt in Microsoft Excel . "
< Br >
Klik 4 " Form1.vb [Design ] " tab en dubbelklik op " Button1 " . Typ het volgende onder " Button1_Click " om de string naar het klembord te kopiëren :
Dim obj
als Nieuwe Proces
Clipboard.SetDataObject
( Me.TextBox1.Text )
5
Typ het volgende op de top van uw " Form1.vb " module :
Imports
Microsoft.Office.Interop.Excel
Klik 6 " Form1.vb [Design ] " tab en dubbelklik op " Button2 " . Typ het volgende om een nieuwe spreadsheet maken, opent u het en plak de string gekopieerd naar het klembord van uw VB- applicatie :
Dim objClipbrd
Zoals IDataObject = Clipboard.GetDataObject ( )
Dim objXL
als Microsoft . Office.Interop.Excel.Application = Niets
Dim objBks
Zoals Microsoft.Office.Interop.Excel.Workbooks = Nothing
Dim objBk
Zoals Microsoft.Office.Interop.Excel.Workbook = Nothing < br
Dim objShts > Zoals Microsoft.Office.Interop.Excel.Sheets = Nothing
Dim objSht
Zoals Microsoft.Office.Interop.Excel.Worksheet = Nothing
objXL
= Nieuwe Microsoft . Office.Interop.Excel.Application
objXL.Visible = True
objXL.DisplayAlerts
= False
objBk = C ( objXL.Workbooks.Add
( ) , Microsoft.Office
. Interop.Excel.Workbook )
objBks
= objXL.Workbooks
objSht = C ( objBks ( 1 ) . Sheets.Item
( 1 ) , Microsoft.Office.Interop.Excel.Worksheet )
objShts
= objBk.Worksheets
Met objClipbrd
Als . GetDataPresent ( DataFormats.Text ) dan
objSht.Cells
( 1 , 1 ) = . GetData ( DataFormats.Text )
End
Als
End
met
7
Run je programma en klik op " Button1 " om de weergegeven in het tekstvak tekenreeks kopiëren . Klik op " Button2 " naar een nieuwe Excel-spreadsheet te openen en plak de string .
