VBA打开工作簿，将某些单元格复制到特定的工作表中，并关闭源woorkbook

Question

我已经创建了一个工作簿，并发送给其他员工，以便他们记录某些项目。用户将工作簿另存为“ STATS（其徽章编号）”并发回。我从其工作簿（Sheet1.range（“ B4：B29”）和.Range（“ F1：G2））中复制单元格，然后粘贴到我的主工作簿（STATS Total）中的标签上，这些标签上标有每位员工的姓氏。我是尝试自动打开他们发送给我的大量书籍（所有书籍都在同一个文件夹中），复制数据，然后将其粘贴到相同的单元格（B4：B29和F1：G2在其命名的工作表上），然后关闭“源”工作簿。为了提供帮助，我在主书的工作表的Cell（“ I2”中的每个“源”书中都添加了完整的路径名。因此，在主书中，有一个名为“ Smith”的工作表，而在I2中是工作簿的路径名他寄给我。这是我尝试过的代码，但无法正常工作。我应该做些什么？

Sub CopyAndPaste()
Dim x As Workbook, y As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet

Set x = Workbook(Sheet6.Range("I2").Text) 'copied book
Set y = ThisWorkbook 'pasted to this book


Set ws1 = x.Sheet1 'copied from
Set ws2 = y.Sheets("copied to")

ws1.Cells.Copy ws2.Cells
y.Close True
x.Close False
End Sub

Answer 1

您应使用：