Bibliotek number> Object . " Klicka på " OK." Addera 3 Lägg följande namespace i den allra första raden i din kod modul :
Imports Microsoft.Office.Interop
4
skapa Excel ansökan objekt genom att lägga till följande kod :
Dim xlsA som Nya
Excel.Application
xlsA.Visible = TRUE
Dim xlsWKBS som Excel . Arbetsböcker = xlsA.Workbooks
Dim xlsWKB Som Excel.Workbook = xlsWKBS.Add
Dim xlsSts As Excel.Sheets = xlsWKB.Worksheets
Dim xlsSt Som Excel.Worksheet = xlsSts ( " Blad1 " )
5
Lägga till data i cell A1 i din nya XLS kalkylblad .
xlsSt.Range ( " A1 " ) . Value = " Denna data som skrivs från . VB "
6
Spara XLS -filen till C : \\
xlsSt.SaveAs . ( " C : \\ ExcelFile.xls " )