不打开文件的情况下，将一个sheet表中某个单元格的值赋给激活的单元格，求指教！

larryxi

Sub table()
   www = "D:\1\table.xlsx"
    A1 = www.Sheet(5).Range("Z9").Value
   
End Sub

以上程序运行后总是出现”要求对象“的提示，请问是哪里出问题了，还是语句表达不对？请大家多指教！

larryxi

怎么都没有人

蓝桥玄霜

1. Sub table()
   
2. myPath = "D:\1"
   
3. myName = "table.xlsx"
   
4. With GetObject(myPath & myName)
   
5.     [a1] = .Sheets(5).Range("Z9").Value
   
6. End With
   
7. End Sub
   

复制代码

sunny_8848

多谢分享。请教版主，运行代码时会闪屏一下，是否可以克服这点？

sunny_8848

多谢分享。请教版主，运行代码时会闪屏一下，是否可以克服这点？