excel表格的一个工作表打印后自动另存为另一个表格，到某个文件夹里，名字为某个单元格的内容

 我来答

1个回答

#合辑# 面试问优缺点怎么回答最加分？

真真真白丁
2014-11-13 · TA获得超过8521个赞

知道大有可为答主

回答量：4644

采纳率：85%

帮助的人：1732万

我也去答题访问个人页

关注

展开全部

亲，打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧双击“ThisWorkbook”，右侧空白处粘贴下面的代码。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "D:\" & Range(A1) & ".xlsx"
End Sub

追问

wps是否可以？

粘贴之后怎么做？如何执行？是说我每次打印之后自动另存了么？

我只想保存当前意见书工作表为另一个表格，不要包含sheet2和3的内容（因为我“意见书”工作表的内容是从另两个工作表调用出来的数据）

追答

Sorry，笔误，忘了加双引号。

另外，根据你新的要求做了更改：

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "意见书" Then
    With ThisWorkbook.ActiveSheet
        Workbooks.Add
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="D:\" & .Range("A1") & ".xlsx"
        Application.DisplayAlerts = False
        .Copy Before:=ActiveWorkbook.Sheets(1)
        ActiveWorkbook.Close True
    End With
End If
End Sub