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

Question

如题所述

Answer 1

亲，打开你的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