VBA使用变量打开另一个工作簿和工作表

Question

I could not find an answer to this yet:

I have a sheet with the Customer name in Cell A2 and the product code in Cell B2. I have a file location "C:\\Users\\Reception\\Documents\\Shared\\Item Master Data\\Customer BOMS\\" with a workbook for each Customer. In these workbooks, there is a tab per product code with the formulation to make the product.

What I need to do is to tell the Macro to open the workbook for the specific customer in cell A2 and to then go to the tab in cell B2.

I have been able to open the workbook, but not the sheet. Here is my code:

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

Try this:

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