excel VBA编程 运行时错误 ‘-2146959359 (80080004)' 自动化（Automation）错误 和运行时错误 ‘429’

程序如下，通过一个按钮实现导入另外一个excel的数据
奇怪的是有些excel能顺利运行导入数据，有些excel文件就会报错
------------------------------------
Private Sub Command1_Click()

Dim iFileName, path, fname As String
Dim wz As Integer ' 通过选择框选择我想导入的excel文件 判断出导入的excel名词和路径
iFileName = Application.GetOpenFilename
If iFileName = "False" Then
MsgBox "choose file"
Else
wz = InStrRev(iFileName, "\")
path = Left(iFileName, wz)
fname = Right(iFileName, Len(iFileName) - wz)

Set d = GetObject(fname) '打开文件
d.Sheets("sheet1").Cells.Copy ActiveSheet.Cells(1, 1) '将sheet1完全复制到当前表
d.Close '关闭文件
Set d = Nothing
End If
End Sub

---------------------
点击调试后跳到这里 ：Set d = GetObject(fname) '打开文件
运行时错误 ‘-2146959359 (80080004)' 自动化（Automation）错误

我直接改成：Set d = GetObject(iFileName ) '打开文件
点击调试也会在这里报错
提示错误：运行时错误 ‘429’ 运行时错误 ActiveX不能创建对象

哪位大牛帮忙解决一下。

看下变量 fname 是否正确？
所选的文件是否为excel文件？
所选的 文件是否需要密码打开？

需在工程中添加对Microsoft Excel 11.0对象的引用

语法没有错。。。 难道，要被重命名的文件，是打开状态？

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息