将工作表从一个工作簿复制到另一个“不工作”

Question

我有工作簿A，该工作簿执行大量计算以选择要在建筑中使用的零件，并在“数据表”工作表上列出零件清单。 工作簿B处理定价，并具有一个称为“数据表”的相同工作表，我想通过工作簿A中的宏将其替换为工作簿A中的“数据表”。

这是我到目前为止的内容：

Sub CopyToWorkBookB()

Dim wbb As Workbook

Dim wba As Workbook

Dim filename As Variant

Set wba = ActiveWorkbook

filename = Application.GetOpenFilename()
Set wbb = Workbooks.Open(filename)


wba.Activate


Sheets("Data Sheet").Copy Before:=Workbooks("wbb").Sheets("Sheet 6")
End Sub

到目前为止，它在最后一行给出了一个错误，但是即使修复该错误也无法使它按我的意愿去做。 我不仅希望添加新副本，还希望替换工作簿B中的旧“数据表”。此外，两个工作簿都将针对使用它们的每个项目进行重命名，因此我无法对工作簿名称进行硬编码。 有任何想法吗？ 谢谢。

Answer 1

您在打开工作簿对象时将wbb var设置为它，因此Workbooks("wbb")应该只是wbb 。

wba.workSheets("Data Sheet").Copy Before:=wbb.workSheets("Sheet 6")

我仍然对名为Sheet 6的工作表有些怀疑。 通常，在默认工作表名称中插入空格不会引起麻烦。