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