Dim xcl As Excel.Application 为何不希望调用excel.application,其实很简单的 下面是一个创建excel文件的例子,访此可反三,任意读写excel文件Dim bok As Excel.Workbook Dim sht As Excel.Worksheet Dim row As Integer, col As Integer Set xcl = CreateObject("excel.application") xcl.SheetsInNewWorkbook = 1 Set bok = xcl.Workbooks.Add Set sht = bok.Worksheets(1)
为何不希望调用excel.application,其实很简单的
下面是一个创建excel文件的例子,访此可反三,任意读写excel文件Dim bok As Excel.Workbook
Dim sht As Excel.Worksheet
Dim row As Integer, col As Integer
Set xcl = CreateObject("excel.application")
xcl.SheetsInNewWorkbook = 1
Set bok = xcl.Workbooks.Add
Set sht = bok.Worksheets(1)
sht.Cells(5, 7) = "字符串" //在第5行的第7列上填入三个汉字
bok.SaveAs ("文件路径名") //保存文件
bok.Close //关闭
xcl.Quit //关闭
Set xcl = Nothing //释放