我在每个工作簿（“VAL”）的同一张表中有50个excel工作簿，其中包含相同范围的“SensResultsCopy” . 我想将这些表中的数据复制到我打开的工作簿中 . 要从中复制的工作簿是动态的，并从范围（“ProjModel”）中获取，但我不知道如何将粘贴到位置动态 . 来自每个工作簿的数据需要进入自己的工作表，该工作表具有数据所需的命名范围，因此工作簿1的数据需要进入名为“1”的工作表和名为“SensResPaste1”的工作簿，工作簿2的数据需要进入名为“2”的工作表和名为“SensResPaste1”的范围等 . 我想使用范围“ActiveProjModel”来确定工作表的这部分，以确定工作表和范围“PasteRange”作为范围到被粘贴到：

y.Sheets（ “1”） . 范围（ “SensResPaste1”）

目前我只知道如何为特定的工作表和范围执行此操作，例如上面的示例，第1页 . 完整代码如下 . 谢谢！

Sub DataCapture2()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False

Dim x As Workbook
Dim y As Workbook
Dim ws1 As Worksheet

'## Open both workbooks first:
Set y = ThisWorkbook
Set x = Workbooks.Open(Range("ProjModel"))

'Copy from x:
x.Sheets("VAL").Range("SensResultsCopy").Copy

'Paste to Worksheet in y:
y.Sheets("1").Range("SensResPaste1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

'Close x:
x.Close
excel vba excel-vba