Excel VBA腳本VLOOKUP具有未知工作表名稱的其他文件

Question

我試圖用VLOOKUP創建另一個工作簿的VBA腳本。 第二個工作簿的名稱始終為Stock.xls。 Stock.xls中的數據始終在第一個工作表中 ，但是此工作表的名稱每天都不同。 可以是ARTLIST1，ARTLIST2，ARTLIST（3），ARTLIST-4等...，但始終以ARTLIST開頭。 我該如何告訴VBA腳本僅使用第一張圖紙，還是該圖紙始終包含單詞ARTLIST（例如ARTLIST *）

 ActiveCell.FormulaR1C1 = _
    "=VLOOKUP(C[-36],'[Stock.xls]ARTLIST1'!R1:R65536,13,0)"
Selection.Copy

非常感謝您的幫助。 提前致謝！

理查德

Answer 1

您可以通過索引引用它並獲取名稱。 然后，您將在公式構建中使用name變量。

Dim wsName as string
Dim ws As Excel.Worksheet

Set ws = Application.Worksheets(1)
wsName = ws.Name

ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-36],'[Stock.xls]" & wsName & "'!R1:R65536,13,0)"
Selection.Copy

Answer 2

使用索引為1的工作表獲取第一張工作表：

For each ws in worksheetsFor Each ws In ActiveWorkbook.Worksheets
  If ws.Index = 1 Then
      'Do code, this is the first worksheet
  End If
Next ws