在Excel中使用VBA执行Workbook.open作为目录名时，如何使用通配符

Question

我正在使用工作簿.open获取目录中的excel文件，该文件的名称将根据修订而更改。我将把这个excel工作簿中的一些单元格复制到我的活动工作簿中。

我需要转到的当前文件在以下目录中：

d:masters777software7770123 Rev A7770123.xlsx

当对xlsx文件进行修订时，7770123 Rev A文件夹偶尔会发生更改。

当7770123 Rev A更改为7770123 Rev.B时，7770123 Rev A文件夹将被7770123 Rev B文件夹替换。

7770123 Rev A文件夹将从目录中删除。xlsx文件是7770123 Rev？文件夹

以下是我为固定目录结构所做的工作。需要知道如何/是否可以使用通配符？

Dim wbkFrom, wbkTo As Workbook
Set wbkTo = ActiveWorkbook
Set wbkFrom = Workbooks.Open("d:masters777software7770123 Rev A7770123.xlsx")
wbkFrom.Sheets("Jigs").Range("A1:H500").Copy
wbkTo.Sheets("Jigs").Range("A1").PasteSpecial (xlPasteValues)

Answer 1

只更改文件夹路径如下：设置wbkFrom=工作簿。打开("d:\masters\777\software\7770123 Rev"和Sheets("(。范围("A1"(.value"7770123.xlsx"(其中Sheets("(.Range("A1"(.值可以是"A1"；A"；或"；B"；或者使用该输入的表单中的任何其他单元格

Answer 2

@Randy Withcomb:您的活动工作簿