Question

我正在寻找使用正确语法的解决方案。

我从另一本工作簿中提取了工作表名称，并将其放入我正在处理的当前工作簿中的工作表中。

我想使用单元格值作为参考，将工作表复制并粘贴到我当前的工作簿中。

    Workbooks.Open Filename:= _
     "D:\Projects\ASE Templates\ASE Template White Book.xlsx"
      Application.Left = 192.25
        Application.Top = 1
        Sheets("Indirect('[ASE RTU Addressing with Automation.xlsm]' & 
                                  ""'Tab Names from white book'"" & ""!A1"")).Select"
        Sheets("2S0 P143 MAIN BUS SECTION").Copy After:=Workbooks( _
           "ASE RTU Addressing with Automation.xlsm").Sheets(4)

选择的第一部分是我如何尝试将间接功能合并到工作表（REF）下一行工作，因为它使用工作表（名称）

工作表名称永远不会相同，这就是我在尝试运行此代码之前提取的原因

Answer 1

假设您的工作表名称位于单元格A1：A10：

中

Dim oCell As Range
Workbooks.Open Filename:= _
 "D:\Projects\ASE Templates\ASE Template White Book.xlsx"
For Each oCell In ThisWorkbook.Sheets("Tab Names from white book").Range("A1:A10")
    Sheets(oCell.Value).Copy After:=Workbooks( _
       "ASE RTU Addressing with Automation.xlsm").Sheets(4)
Next

使用间接函数在另一个工作簿中的参考表

1 个答案: