Question

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

哪位大牛帮忙解决一下。

Answer 1

我这里可以正确运行你的代码，如果被拷贝的文件的数据不太多的话。
你试试建立一个最简答你的excel

追问

有的EXCEL文件可以，新建一个excel也可以，但是制图软件输出的excel文件xls格式，却不行，但是excel能打开。

追答

明白了。还是文件格式的事情。制图软件输出的excel文件xls格式不是标准的，很可能是csv之类的。asp不认这个。你只要用记事本打开那个xls，如果没有 怪字符，那就是格式不对。
所以，你只能将那些文件用excel打开后另存一下

Answer 2

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

追问

添加对Microsoft Excel 11.0对象
貌似还不行。

追答

传一个不能打开的文件到扣181,334,0428看看

Answer 3

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

追问

看下变量 fname 是否正确？----正确
所选的文件是否为excel文件？----标准excel格式，后缀名.xls
所选的 文件是否需要密码打开？----不需要密码