使用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