excel模版从xp复制到win7系统后出现错误 运行时错误 '429' ActiveX 部件不能创建对象
2015-01-22 10:20
639 查看
运行时错误 '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选项 – 安全 – 自定义级别 – 找到“其他”中的“将本地文件上载至服务器时包含本地目录路径”，选中“启用”即可。
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选项 – 安全 – 自定义级别 – 找到“其他”中的“将本地文件上载至服务器时包含本地目录路径”，选中“启用”即可。
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- excel2010加载matlab的exlink出现“运行时错误429，activex部件不能创建对象”的解决办法
- 运行时错误 (0x800A01AD) ActiveX 部件不能创建对象: 'Scripting.FileSystemObject'
- 错误 '800a01ad'时错误ActiveX 部件不能创建对象
- 国税Tax2.0 运行时错误429：ActiveX部件不能创建对象的解决办法
- 运行时错误‘429’ Activex部件不能创建对象
- 运行时错误 429,ACTIVEX部件不能创建对象的解决方法小结
- 在ASP 调用 VB.net 编写的dll 出错 提示:Microsoft VBScript 运行时错误 错误 '800a01ad' ActiveX 部件不能创建对象
- 运行时错误 '429':ActiveX 部件不能创建对象
- VB连接数据库时出现“ActiveX部件不能创建对象”
- 用javascript 创建ActiveX对象时出现：Automation server can't create object"(Automation 服务器不能创建对). 错误的解决办法
- 出现”429：activex部件不能创建对象“解决办法
- 用javascript 创建ActiveX对象时出现：Automation server can't create object"(Automation 服务器不能创建对). 错误的解决办法。
- Access提示 429错误， ActiveX 部件不能创建对象的解决方法
- 解决ActiveX部件不能创建对象错误
- 关于asp使用CreateObject("Excel.Application")出现无法创建ActiveX对象的错误
- 关于系统弹出错误:429 ， ActiveX 部件不能创建对象 的解决方法
- 【技术贴】解决打开程序出错，提示错误429，activex部件不能创建对象，不用重装系统。
- ActiveX 部件不能创建对象: 'Scripting.FileSystemObject'
- 运行错误“429”,active X 部件不能创建对象 解决方案
- ActiveX 部件不能创建对象: 'Scripting.FileSystemObject'