如何使用VBA从已关闭的Excel工作簿中复制和粘贴范围

Question

与此帖类似

Iterate through spreadsheets in a folder and collect a value from each

我试图做同样但不是单一的值，我想循环到52个不同的数组，例如（使用pseduo代码）路径是外部的

For each workbook in path
 While week < 52
   week1 = path.workbook.sheet1.range(A1:J20);
   consol.range("A" & row & ":J " & row2) = week1
   row = row + 20
   row2 = row2 + 20
   week++
 Wend
Next

这甚至可能吗？

Answer 1

我刚刚查看了我的笔记，我得到了这个：

week1="'" & path & "[" & FileName & "]" & Sheet1.Name & "'!" & _
Range("A1:J20").Range("A1").Address ( ,,xlR1C1)

我认为它仍然需要一些调整，因为我在代码的“A1”部分丢失了......

这对你有帮助吗？