在VB中把数据转换成Excel文件时在有的微机中出错,为什么?

hbdzgl 2002-07-30 06:33:36
'下面的代码在有的微机中能顺利执行,没有错误
'但在有的微机中就出错,不知什么原因,请高手指教
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)
...全文
23 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧