发表于:2006-04-25 09:55:00
20楼
先建一个空example.xls文档
Dim objExcelApp
Set objExcelApp=CreateObject("Excel.Application")
objExcelApp.Visible=True
objExcelApp.Workbooks.open"文件路径\example.xls"
objExcelApp.cells(2,2).value="EXCEL连接测试"
objExcelApp.cells(3,1).value="列1"
objExcelApp.cells(4,1).value="列2"
objExcelApp.cells(4,2).value="测试值"
("IOFildl").OutputValue
objExcelApp.ActiveWorkbook.save
objExcelAppWorkbooks.close
objExcelApp.quit
Set objExcelApp=nothing