引用动态工作簿名称 - VBA

Question

我为工作学院创建了一个工作簿（“Control Panel.xlsm”），用作我们在日常任务中使用的所有宏的存储位置。她不懂VBA。 其中一个宏（参见下面的代码）组织另一个工作簿，以便在表格末尾添加一个描述性列。

    Dim lr As Long
    lr = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False).Row
    Dim tbl As ListObject
    Dim wbNames As Variant, wb As Workbook, w As Workbook, El As Variant, boolFound As Boolean
    wbNames = Split("January,February,March,April,May,June,July, August, September, October,November,December")
    For Each w In Workbooks
        For Each El In wbNames
            If w.Name = "Docs_Tracker_" & El & " 2020.xlsm" Then
                Set wb = w: boolFound = True: Exit For
            End If
        Next
      Next
    
    '1. Column AB - Descriptive Field - Client Name - Manager Name - Research Deliverable
If wb Is Nothing Then Stop
    Set tbl = wb.Worksheets(1).ListObjects("Table_owssvr")
    With tbl
            .ListColumns.Add.Name = "Client Name - Manager Name - Research Deliverable"
    End With
        wb.Activate
        Range("AB2:AB" & lr).FormulaR1C1 = "=CONCATENATE(RC[-22],"" - "",RC[-26],"" - "",RC[-15])"

我想做的是参考工作簿 ("Docs_Tracker_April 2020.xlsm") 以便即使工作簿参考名称发生更改（Docs_Tracker_May 2020、Docs_Tracker_June 2020 等），代码仍然可以工作

我已经尝试过 ActiveWorkbook，工作簿索引方法，但是它们可能会出现错误问题，并且对于不像我的工作学院那样熟悉 VBA 的人来说，它并不那么万无一失。

如果有人可以教我这个，我会将它应用到我所有的宏中，他们都有类似的问题。谢谢。

Answer 1

请尝试下一个方法。如果同时打开多个这样的工作簿，它将选择数组的第一个：

Sub takeTheMonthsNamedWB()
  Dim wbNames As Variant, wb As Workbook, w As Workbook, El As Variant, boolFound As Boolean
  wbNames = Split("January,February,March,April,May,June,July", ",") 'and so on...
  For Each w In Workbooks
    For Each El In wbNames
        If w.Name = "Docs_Tracker_" & El & " 2020.xlsm" Then
            Set wb = w: boolFound = True: Exit For
        End If
    Next
    If boolFound Then Exit For 'in order to stop iteration if a lot of workbooks are open
  Next
End Sub

已编辑：

请尝试下一个测试代码。它是否返回正确的工作簿名称？

Sub testTheMonthsNamedWB()
  Dim wbNames As Variant, w As Workbook, El As Variant, boolFound As Boolean
  wbNames = Split("January,February,March,April,May,June,July", ",") 'and so on...
    For Each El In wbNames
        Debug.Print "Docs_Tracker_" & El & " 2020.xlsm"
    Next
End Sub

Answer 2

只会打开两个工作簿（“control panel.xlsm”和“Docs 跟踪器取决于月份”

如果您想引用名称取决于当前月份的工作簿，您可以使用以下内容：

Dim sWbkName As String, wbk As Workbook
sWbkName = "Docs_Tracker_" & Format(Date, "MMMM yyyy") & ".xlsm"
On Error Resume Next
Set wbk = Application.Workbooks(sWbkName)
If wbk Is Nothing Then
    MsgBox "Can't find '" & sWbkName & "'!!!" & vbCr & vbCr & _
        "Please, open it.", vbExclamation, "Error."
    Exit Sub
End If