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不能创建对象

哪位大牛帮忙解决一下。