运行时错误‘1004’：类Worksheet方法无效

huys

下列从外部工作簿导入数据的代码，在部分电脑运行正常，在个别电脑运行出现：运行时错误‘1004’：类Worksheet方法无效
请问是不是Microsoft Office缺少什么？卸载重装Office也不行!
求各位大哥大姐小弟小妹帮看看是什么原因？谢谢!


Sub 导入()
Dim sht As Workbook, rng As Range, wjm
     Sheets("封面").Select
     wjm = [M10]

    Set sht = Application.Workbooks.Open(wjm)         '运行时错误‘1004’：类Worksheet方法无效

    Set rng = sht.Sheets("收入总表").Range("C5:I450")
    rng.Copy
    ThisWorkbook.Sheets("收入总表").Range("AE5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    sht.Close False

    Set rng = Nothing
    Set sht = Nothing
End Sub

little-key

wjm  的值是什么呢？是否是一个路径呢

huys

little-key 发表于 2017-5-2 16:55
wjm  的值是什么呢？是否是一个路径呢

wjm是来自单元格[M10]的包含完整路径的文件名，有的电脑运行正常，有的电脑运行不正常!我怀疑是不是Excel运行环境或组件问题,卸载重装office也不行!我不知道怎么解决，求指点!谢谢!

little-key

你是不是版本不一样？

huys

little-key 发表于 2017-5-2 17:16
你是不是版本不一样？

都是Office2003,只不过不能运行的电脑是系统时预装的，我用office卸载工具卸载重装也不行!

little-key

不应该是这个问题啊，wjm 路径的文件都存在的吗？你看看别的电脑，在Excel 2003是否可以运行。

huys

little-key 发表于 2017-5-2 17:24
不应该是这个问题啊，wjm 路径的文件都存在的吗？你看看别的电脑，在Excel 2003是否可以运行。

存在的，其他正常

huys

little-key 发表于 2017-5-2 17:24
不应该是这个问题啊，wjm 路径的文件都存在的吗？你看看别的电脑，在Excel 2003是否可以运行。

用 With GetObject()也出现过这种情况!

maditate

  Set sht = Application.Workbooks.Open(wjm)         '运行时错误‘1004’：类Worksheet方法无效

楼主确定是这一句出错? 如果我没看错的话，此句是打开文件，怎么会提未工作表方法无并效呢

huys

maditate 发表于 2017-5-2 17:41
Set sht = Application.Workbooks.Open(wjm)         '运行时错误‘1004’：类Worksheet方法无效

楼主 ...

出错时程序调试停留此句啊!