VB中如何向Excel中添加工作表?

Question

本人用VB生成Excel后，发现Excel中只有一个工作表sheet1,请问在VB中如何向Excel中插入工作表。

Answer 1

ActiveWorkbook.Sheets.Add Before:=Worksheets(Worksheets.Count)

Answer 2

("工程"/"引用"/引用Microsoft Excel X.0 Object Library) Private Sub Command1_Click()
    Dim xlApp As New Excel.Application '定义并创建EXCEL对象
    Dim xlBook As Excel.Workbook '创建工作簿
    xlApp.Visible = True '让Excel可见
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\Test.xls") '打开Excel文件    xlBook.Sheets.Add Before:=Worksheets(1)  '插入新的Sheet
    xlBook.ActiveSheet.Name = "mySheet"   '重新命名新的Sheet'    xlBook.Close  True '保存
'    xlApp.Quit  '关闭Exel
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

Answer 3

这几天一直在研究这个问题
微软上的解答
http://support.microsoft.com/default.aspx?scid=kb;zh-cn;257819下边的参考有示例代码可以下载
278973 (http://support.microsoft.com/kb/278973/)