从已关闭的变量工作簿中复制范围(变量由application.getopenfilename确定)

Question

我正试图从一个封闭变量工作簿中复制一个范围(暗显为fName(。无法使其工作，而且似乎没有发现我的错误。代码如下所示，我个人认为问题出在变量fName上，但可能我看的方向完全错误。

Sub LotoRipper()
Dim fName As String
fName = Application.GetOpenFilename
Workbooks.Open fName
Workbooks(fName).Worksheets("LoTo Sleutellijst").Range("E13").Copy _
Workbooks("LOTO Sleutellijst O-M_rev4.3.xlsm").Worksheets("LoTo Sleutellijst").Range("E13")
End Sub

试着从中吸取教训，所以如果可能的话，请解释我做错了什么，而不是提供解决方案。

Answer 1

您是正确的-在您的变量中，您有一个指向工作簿的完整路径。一旦你打开它，你应该得到它的名字，例如：

Sub testMacro()
Dim fName As String
fName = Application.GetOpenFilename
Workbooks.Open fName
fName = ActiveWorkbook.Name '<--- try this
Workbooks(fName).Worksheets("sheet1").Range("E13").Copy _
Workbooks("test2.xlsx").Worksheets("sheet1").Range("E13")
End Sub