Object Library . " Klik op ' . OK "
3 Voeg de volgende namespace in de eerste regel van uw code module :
Imports
Microsoft.Office.Interop
4
Maak de Excel- applicatie objecten door toevoeging van de volgende code :
Dim xlsA
als Nieuwe Excel.Application
xlsA.Visible = True
Dim xlsWKBS
als Excel . werkboeken = xlsA.Workbooks
Dim xlsWKB
Zoals Excel.Workbook = xlsWKBS.Add
Dim xlsSts
Zoals Excel.Sheets = xlsWKB.Worksheets
Dim xlsSt
Zoals Excel.Worksheet = xlsSts ( " Blad1 " )
5
data in cel A1 in het nieuwe XLS werkblad .
xlsSt.Range
( " A1 " ) . Value = " Deze data is uit geschreven . VB "
6
Sla het XLS-bestand naar C : \\
xlsSt.SaveAs
. ( " C : \\ ExcelFile.xls " )