excel VBA脚本VLOOKUP其他未知工作表名称的文件

我试图创build一个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 

帮助是高度赞赏。 提前致谢!

理查德

你可以通过索引引用它,并获取名称。 然后你在公式的build设中的名称variables。

 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 

使用索引为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