Question

我正在尝试以编程方式从另一个工作簿中打开一个工作簿，我尝试过很多论坛，但我只是在你的论坛的帮助下编写了这段代码。

Sub emptycell()
Dim strfilepath As String
strfilepath = "C:\Users\bchitlange\Desktop"

Dim strfilename As String
strfilename = "*final.xlsx"

Workbooks.Open Filename:="C:\Users\bchitlange\Desktop" & Dir$("C:\Users\bchitlange\Desktop" & "*final.xlsx"), ReadOnly:=True


End Sub

当我的文件保存在桌面上时，它会给我一个无法访问桌面的错误。

当它们存储在驱动器中时会出现以下错误 -

run time error 1004 application defined or object defined error

Answer 1

如果您尝试使用＆＃34; final.xlsx＆＃34;打开目录中的第一个文件。用这个：

Workbooks.Open Filename:="C:\Users\bchitlange\Desktop\*final.xlsx", ReadOnly:=True

Answer 2

我后来意识到VBA会为我提供答案，因此我为此录制了宏，这就是我得到的并且工作正常

ChDir“C：\ Users \ bchitlange \ Desktop \ exp” Workbooks.Open文件名：=“C：\ Users \ bchitlange \ Desktop \ exp \ dest.xlsm”

由于

打开另一个工作簿

2 个答案: