点击保存按钮把控件内容保存到Excel时，提示报错！请版主们帮忙看下！ - 编程论坛

#2

ZHRXJR2018-07-07 11:09

程序代码：

Dim XlApp As New Excel.Application
Dim XlBook As New Excel.Workbook
Dim XlSheet As New Excel.Worksheet
Set XlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set XlBook = XlApp.Workbooks.Add
XlApp.Visible = False
Set XlBook = XlApp.Workbooks.Open(App.Path & "\ABC.xlsx")
MsgBox "ABC.xlsx 文件已经打开。"
XlApp.Quit

只有本站会员才能查看附件，请登录

我测试了一下，没有问题呀！你是不是没有引用Excel的原因？
或者不支持低版本的Excel的原因？

[此贴子已经被作者于2018-7-7 11:12编辑过]

#3

bing07052018-07-09 11:51

回复 2楼 ZHRXJR

您好！引用Excel了，我第一用的office 2003那时候打开excel正常，后来工作上有些需要把office升级成2007了，运行就报错，我把office2007卸载掉重新装2003还是不行，不知道是什么原因，不想重装系统，请帮忙再看下是什么问题？非常感谢！

#4

ZHRXJR2018-07-09 23:18

估计是驱动不正确，Excel 2003 与 Excel 2007 的驱动程序不同，引用也不同，Excel 2007 的引用是 Excel 12.0，Excel 2003 的引用是 Excel 4.0，好好检查一下。