所以我有一个工作表,使用其他2个工作表的信息生成图表类型的东西 . 在它上面我有一个提取按钮,它应该将整个工作簿复制到一个新的工作簿中,同时使数据被拉出的工作表对用户不可见 . 我的问题是,图表工作表有其他功能需要运行宏,例如隐藏其中的一些按钮等 . 问题是我无法找到它是否真的可以通过宏从工作簿复制到新复制的工作簿?任何人都有这个答案,如果是这样,你会怎么做?以下是我目前拥有的将工作簿复制到新工作簿中的代码:
Sub EWbtn()
Dim OriginalWB As Workbook, NewCRCWB As Workbook
Set OriginalWB = ThisWorkbook
Set NewCRCWB = Workbooks.Add
OriginalWB.Sheets("Generator").Copy Before:=NewCRCWB.Sheets("Sheet1")
OriginalWB.Sheets("Module Part Number Tracker").Copy Before:=NewCRCWB.Sheets("Generator")
OriginalWB.Sheets("CRC").Copy Before:=NewCRCWB.Sheets("Module Part Number Tracker")
Application.DisplayAlerts = False
NewCRCWB.Worksheets("Generator").Visible = False
NewCRCWB.Worksheets("Module Part Number Tracker").Visible = False
NewCRCWB.Worksheets("Sheet1").Delete
Application.DisplayAlerts = True
End Sub
2 回答
我设法找到我的问题的答案..此代码工作正常,但您需要通过工具 - >引用添加“Microsoft Visual Basic for Applications Extensibility 5.x”作为参考 . 这是代码:
图片来源:Copy VBA code from a Sheet in one workbook to another?
我将获取原始文件的副本并从中删除/隐藏工作表 .
所有代码都将作为保存的一部分进行复制 .