VBA 打开另一个带有变量的工作簿和工作表

Posted 2023-04-13

【中文标题】VBA 打开另一个带有变量的工作簿和工作表

【英文标题】：VBA Open another workbook and sheet with variables

【发布时间】：2017-01-20 13:11:46

【问题描述】：

我还没有找到答案：

我有一张表格，其中 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))

【问题讨论】：

如果想去sheet，需要用ws.activate激活

谢谢，但它给了我一个编译错误：找不到方法或数据成员。

尝试把这行Set ws = BOM.Sheets(Range(PCode))改成Set ws = BOM.Sheets(PCode)

请更具体一些，也许您也可以显示您更改的代码。

在“Range(PCode)”中，PCode 是单元格的值，编译器需要一个范围地址。尝试将 PCode = ActiveCell.Offset(0, 1).Value 更改为 `PCode = ActiveCell.Offset(0, 1).Address'。

【参考方案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