使用VB創建多個Excel工作表

Question

我想生成“ n”張Excel工作表，其中“ n”是來自數據庫的值，即“從table_name中選擇count（column_name）”會給我“ n”，因為它n = 5在book1中的平均值，我需要5床單

我正在使用以下代碼生成excel sheet1

     spreadsheet = CreateObject("Excel.application")
     spreadsheet.Visible = True
     book1 = spreadsheet.Workbooks.Add()
     sheet1 = book1.Worksheets("sheet1")

謝謝

Answer 1

使用Sheets.Add方法

Sub GenerateSheets()
n = 5
For i = 1 To n
Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
Next i
End Sub

Answer 2

工作表是工作表對象的集合，因此在for循環中使用.add(New Worksheet)方法應該可以工作。

For I = 1 To n-1 ' n-1 because it automatically starts with one worksheet
    book1.Worksheets.Add(New Worksheet)
Next