VBA 打开另一个包含变量的工作簿和工作表

Question

我还找不到这个问题的答案:

我有一张工作表，其中单元格 A2 中包含客户名称，单元格 B2 中包含产品代码。我有一个文件位置“C:\Users\Reception\Documents\Shared\Item Master Data\Customer BOMS\”，其中包含每个客户的工作簿。在这些工作簿中，每个产品代码都有一个选项卡，其中包含制造产品的配方。

我需要做的是告诉宏在单元格 A2 中打开特定客户的工作簿，然后转到单元格 B2 中的选项卡。

我能够打开工作簿，但无法打开工作表。这是我的代码:

Range("A2").Select

Dim CName As String

Dim PCode As String

Dim BOM As Workbook

Dim ws As Worksheet

CName = ActiveCell.Value

PCode = ActiveCell.Offset(0, 1).Value

Set BOM = Workbooks.Open("C:\Users\Reception\Documents\Shared\Item Master Data\Customer BOMS\" & CName & ".xlsm")

Set ws = BOM.Sheets(Range(PCode))

Answer 1

试试这个:

Range("A2").Select

Dim CName As String

Dim PCode As String

Dim BOM As Workbook

Dim ws As Worksheet

CName = ActiveCell.Value

PCode = ActiveCell.Offset(0, 1).Value

Set BOM = Workbooks.Open("C:\Users\Reception\Documents\Shared\Item Master Data\Customer BOMS\" & CName & ".xlsm")

Set ws = BOM.Sheets(PCode)
 ws.activate