在VB中把数据转换成Excel文件时在有的微机中出错,为什么?
'下面的代码在有的微机中能顺利执行,没有错误
'但在有的微机中就出错,不知什么原因,请高手指教
Dim WSheet As Worksheet
Dim WBook As Workbook
Dim AppExcel As Object
On Error GoTo CW
Set AppExcel = CreateObject("excel.application")
Set WBook = AppExcel.Workbooks.Add '运行到此句就出错,
'显示“自动化错误”
Set WSheet = AppExcel.Sheets(1)