用VB新增excle工作表,并能够修改名称

2024-11-11 22:51:57
推荐回答(2个)
回答1:

conn.Execute "Select 字段名 INTO [Excel 8.0;DATABASE=" & App.Path & "\电子表格.xls].[工作表] From 数据表 "

回答2:

Dim path
path="D:\123.xls"
Set Excel = createobject("Excel.Application")
Excel.visible = true
Excel.workbooks.Add
Excel.ActiveWorkBook.Saveas path
Excel.quit