将选定图纸保存到VBA中的其他工作簿

我想将当前工作簿中的许多工作表保存到其他工作簿中，并从保存过程中排除当前工作簿中名为buttons的工作表

有人能帮忙吗？工作表的数量可供参考

以下是我到目前为止所拥有的，包括当前工作簿中的所有工作表

Sub SaveAs()

D1 = VBA.Format(Now, "mm_DD_yyyy")
For Each ws In Application.Workbooks
    ws.SaveAs Filename:="C:\Users\e2309\Desktop\Andy's\GBB_Report_" & D1 & ".csv"
Next ws

Application.Quit
End Sub

---

这可能会让你更靠近一点。注意：这是不完整的，而且未经测试

Sub work()
Dim WB As Workbook
Dim Nwb As Workbook
Dim WS As Worksheet
Set Nwb = New Workbook
Set WB = ThisWorkbook

For Each WS In WB.Sheets
    If WS.Name <> "Don't copy" Then
        WS.Copy Nwb.Sheets("sheet1")
    End If
Next

Nwb.Save

End Sub

或者更直接地

复制整个工作簿 删除多余的工作表 代码

---

Huy，请注意，在Bigtree有“nwb.Save”的地方，您将使用ws.SaveAs行。确保用他的NWB替换您的ws。sheet1在那里做什么？我想我不需要Nwb，对吧？错误429:ActiveX组件无法在设置Nwb=New工作簿上创建对象行ws.copy ws.sheetssheet1错误。对不起，我对VBA很陌生。问题解决了。Sub SaveAs D1=VBA.FormatNow，mm_DD_yyyyy，适用于应用程序中的每个ws。Workbooks Application.DisplayAlerts=False Sheetsbuttons.delete ws.SaveAs文件名：=C:\Users\23225\Desktop\Andy\GVS_Report\ud1和.csv下一个ws应用程序。退出应用程序。DisplayAlerts=True End Subyes！我就是这么想的。非常感谢！

Sub Simpler()

Dim wb As Workbook
Dim strFile As String

strFile = "C:\temp\yourfile.xlsm"
ThisWorkbook.SaveAs strFile, xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = False
ThisWorkbook.Sheets("buttons").Delete
Application.DisplayAlerts = True
End Sub