Private Sub Command4_Click()
'利用VBA创建EXCEL
Dim newxls As Excel.application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.worksheet
Set newxls = CreateObject("Excel.Application")
newxls.Visible = True
Set newbook = newxls.workbooks.Add
Set newsheet = newbook.worksheets(1)
End Sub
这段代码创建的excel到底有没有路径，有的话在哪里?可以指定路基创建不？
另外可以用ado创建的excel对象不？利用VBA与利用ado更改excel那个比较好一点？我发现 ado更改怎么那么慢？
没有路径，一定说有的话就是EXCEL默认保存路径，在选项中可见。如果想指定就需更改EXCEL的默认路径。因为你的工作表是一个新建工作表，必须保存后才有自已的路径。
Dim newxls As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Set newxls = CreateObject("Excel.Application")
newxls.Visible = True
Set newbook = newxls.Workbooks.Add
Set newsheet = newbook.Worksheets(1)
newsheet.SaveAs Filename:="C:\Documents and Settings\xd\桌面\Book1.xls"