参考Excel工作簿由Worksheet.copy方法

Question

我正在尝试编写一个宏来使用.Copy(MSDN)方法将工作表复制到新的工作簿中,然后保存并通过电子邮件发送这些新创建的文件.

为此,我需要在宏中引用新创建的工作表.我还没有找到一种方法直接使用副本,并且总是犹豫不决Book1.xlsx.

有没有办法获取最近打开的工作簿或轻松比较工作簿集合之前和之后？

Answer 1

您可以告诉工作表Copy方法将工作表放在另一个工作簿中的工作表之前/之后.因此,创建一个新工作簿,然后将工作表复制到新工作簿中的第一个工作表之前.

Dim newBook As Workbook

Set newBook = Workbooks.Add

Workbooks("source_book.xlsx").Worksheets("sheet_name").Copy Before:=newBook.Worksheets(1)

然后,您已获得有效的工作簿参考书,其中包含工作表的副本.