VBA用variables打开另一个工作簿和工作表

我还找不到答案:

我有一个单元格A2单元格中的客户名称和单元格B2中的产品代码。 我有一个文件位置“C:\用户\接待\文件\共享\项目主数据\客户BOMS \”与工作簿为每个客户。 在这些工作簿中,每个产品代码都有一个制表符以制作产品。

我需要做的是告诉macros打开单元格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)) 

尝试这个:

 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