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

如题所述

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

温馨提示:答案为网友推荐,仅供参考
相似回答