引用文件名不断变化的工作簿 - 解决方案建议？

Question

这里是 VBA 新手。 在工作中，我正在创建一个宏，它可以编译和格式化我们每月获得的报告和文件名更改中的数据。 由于名称更改，而不必进入 VBE 并从那里更改名称，是否有一个我可以创建的用户表单允许我输入工作簿的名称，并且可以将其插入脚本？

到目前为止我所拥有的：

Sub tester()

Dim wbName As String
wbName = Application.InputBox("What is the workbook name?")
If Right(wbName, 4) <> ".xls" Then wbName = wbName + ".xls"
Set mainWB = Workbooks(wbName)

Dim copyThis As Range, pasteThis As Range

Set copyThis = mainWB.Worksheets(2).Columns("F")
Set pasteThis = Workbooks("VBA Workbook.xlsm").Worksheeets(1).Columns("A")

copyThis.Copy Destination:=pasteThis

End Sub

工作簿名称将逐月更改。

欢迎替代解决方案

谢谢大家

Answer 1

假设您的宏位于 Personal.xlsb 中，并且您拥有需要引用为 ActiveWorkbook 的工作簿，您可以这样做：

Dim mainWB as Workbook
Set mainWB = ActiveWorkbook

那么你只需使用mainWB 作为参考，所以：

mainWB.Worksheets("Sheet1").Range("A1")

或者如果您希望用户输入 WB 名称：

Dim wbName as String
wbName = Application.InputBox("What is the workbook name?")
If right(wbName, 4) <> ".xls" Then wbName = wbName + ".xls"
Set mainWB = Workbooks(wbName)
...

...如果用户键入的名称不正确，您可能希望在 InputBox() 情况下添加错误处理。