发布于 2009-11-26 16:24:36
11楼
不知道你的代码能不能执行成功,一般来说是先创建Excel.Application来获取Excel应用程序,紧接着是获取或创建WorkBook对象,然后再是对WorkSheet进行操作。
Excel.Application创建xls文件代码如下:
Dim Excel
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Add
oExcel.Save "D:\TEST.XLS"
'........................
非淡泊无以明志,非宁静无以致远