在VB中把数据转换成Excel文件时有时出错，为什么？

[hbdzgl]

'下面的代码在有的微机中能顺利执行，没有错误
'但在有的微机中就出错，不知什么原因，请高手指教
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)

[forever_chang]

低版本的OFFICE可能不支持这些VBA
编程时最好用低版本office所支持的VBA代码

[chenyu5188]

不懂~！！！

UP先