将打印区域转存为excel文件 怎么写宏？

来源：百度知道 编辑：UC知道 时间：2024/06/28 06:02:28
将excel工作表打印区域转存为excel文件 怎么写宏？
导出excel工作表打印区域 ,单独存为一个文件 。 代码如何写？ 或如何录制？

我写了一个，可以做到楼主的要求，代码如下：

Sub Macro2()
Dim myStr As String
myStr = ActiveSheet.PageSetup.PrintArea
If myStr = "" Then
MsgBox "未设置打印区域，默认为整个工作表！", vbInformation
Cells.Select
Else
Range(myStr).Select
End If
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Name = "PrintAreaCopy"
ActiveWorkbook.SaveAs Filename:="D:\Book00.xls"
End Sub

注意：最后那几句中的工作表名与文件名，你可自行修改。并且执行完成后，当前文件是新建的这个文件，不是原文件。

Good Luck!

录制宏,把你要做的事情录下来就够了,如果区域不固定,就把区域设个变量也就可以了