VB如何生成EXCEL表格并保存？

一楼的没有指明
Dim xlBook As Excel.WorkBook
Set xlBook = App.Workbooks.Open("文件名")
这种语法同样要求excel已经存在636f7079e799bee5baa6e997aee7ad94363才能操作。

Public xlApp As Excel.Application
Public xlBook As Excel.Workbook
Public xlChar As New Excel.Chart
Public xlSheet As New Excel.Worksheet

Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Cells(1, 1) = "测试" '写入内容
xlBook.SaveAs ("FILENAME") '保存文件
xlApp.Quit
Set xlApp = Nothing

本方法采用add添加excel文件和datasheet，然后用save保存。如果用xlApp.Visible=False，则自动生成文件。但是如果文件已经存在，则会弹出是否覆盖的提示。因此，最好先在程序中检查文件是否已经存在，如果存在，则用普通方法打开。如果不存在，则用add添加，并保存。

百度HI，帮你
在工百程中运用 Excel 对象模型，必度须引用 Excel Object Library
工程知--> 引用 加入 Excel Object Library

====================================
“保存道路径”内格式是“c:\1.xls”
另:exl.saveas要改为容obook.saveas

Private Sub Command2_Click()
Dim objExcel As Excel.Application
Dim objWorkBook As Excel.Workbook

Set objExcel = CreateObject("Excel.Application")
Set objWorkBook = objExcel.Workbooks.Add()
objExcel.Visible = True

'设置活动工作表
Dim objSheet As Excel.Worksheet
Set objSheet = objExcel.Worksheets("sheet1")
objSheet.Cells(1, 1) = "mather" '对单元格赋值
objWorkBook.SaveAs "D:\aa.xls" '保存
objWorkBook.Close
objExcel.Quit
Set objSheet = Nothing
Set objWorkBook = Nothing
Set objExcel = Nothing
End Sub

补充： 在“工程”7a686964616fe78988e69d83336-引用 -中要选择 Microsoft Excel 11.0【或其他数值】 Object Library