我使用2个工作簿运行一个简单的VLOOKUP。传统上这是手工完成的，但现在我需要每个月自动完成这个过程：
我通常使用类似的东西，
= VLOOKUP（D1，＆＃39; [PD1_Book1_15-09-22.xls] Live＆＃39;！$ A：$ A，1,0）..当前工作簿名为NW 01-09，工作表名称＆＃34; Master＆＃34;，单元格F1。然后我将整个功能复制到列中。最终的结果是很多＃N / A，我立即过滤掉了。
问题是两个工作簿都会定期更改名称（例如......＆＃34; PD * Book1 - - .xls，在这种情况下＆＃ 34; Book1＆＃34;是常数，NW ** - ，在这种情况下NW是常数）
所以＆＃34; Live＆＃34;工作表活动在＆＃34; PD _Book1 _ .xls＆＃34;我已经尝试过了，但根本无法使用它。
Sub Lookup()
myFileName = ActiveWorkbook.Name
mySheetName = ActiveSheet.Name
myRangeName = Range("A:A")
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name Like "NW*.*" Then
wb.Activate
Exit Sub
End If
Next
Range("F1").Formula = "=VLOOKUP(A1,[" & myFileName & "]" & mySheetName & "!" & myRangeName & ",1,0)"
End Sub
我完全迷失在这一点上，任何帮助都会很棒。如果我无法在1个单元格上工作，我就不知道如何填写所有单元格了！
NW工作簿将始终处于打开状态，因为在我们达到这一点之前，它会通过宏进行大量数据清理。我很高兴PD * Book1 **。如果它更容易，现在可以打开xls。查找数据在工作表＆＃34; Live＆＃34;
上我是vba的新手，并且认为我咬过的东西比我能咀嚼的多。提前致谢。