使用vb创build多个Excel工作表

我想生成“n”Excel表，其中“n”是来自数据库的值，即“从table_nameselect计数（列名）”将给我“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