excel模版从xp复制到win7系统后出现错误运行时错误 '429' ActiveX 部件不能创建对象...

weixin_34054866

于 2015-01-22 10:20:00 发布

阅读量464

点赞数

运行时错误 '429' ActiveX 部件不能创建对象
Set objDialog = CreateObject("UserAccounts.CommonDialog")
解决办法
把
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "Access文件(*.mdb)|*.mdb|所有文件(*.*)|*.*"
blnFile = objDialog.ShowOpen
If blnFile Then
strLoadFile = objDialog.Filename
'MsgBox strLoadFile
End If
Set objDialog = Nothing
替换为
Dim IE: Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = False
.Navigate ("about:blank")
Do Until .ReadyState = 4: Loop
With .Document
.Write "<html><body><input id='f' type='file'></body></html>"
With .All.f
.Focus
.Click
strLoadFile = .Value
End With
End With
.Quit
End With
Set IE = Nothing

参考文档
http://www.cnblogs.com/abinxm/archive/2010/06/21/1762028.html

http://wangye.org/blog/archives/551/

IE需要设置：
工具 – Internet选项 – 安全 – 自定义级别 – 找到“其他”中的“将本地文件上载至服务器时包含本地目录路径”，选中“启用”即可。

weixin_34054866

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
excel模版从xp复制到win7系统后出现错误运行时错误 '429' ActiveX 部件不能创建对象...

运行时错误 '429' ActiveX 部件不能创建对象Set objDialog = CreateObject("UserAccounts.CommonDialog")解决办法把 Set objDialog = CreateObject("UserAccounts.CommonDialog") objDialog.Filter = "Access文件(*.mdb)|*.mdb|所有文...
复制链接

扫一扫