求一个excel点打印后自动另存的宏

保存文件名为当前日期+单元格A3的内容另存在文件夹 F:文档里，

举报该问题

推荐答案 2014-03-26

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ThisWorkbook.SaveAs "F:\文档\" & Format(Date, "yyyymmdd") & [A3] & ".xls"
End Sub追问

把这个复制进去粘贴进去，怎么不行呢

追答

要复制到工程的ThisWorkBook里

追问

提示缺少End Sub,可是你给的这个末尾有啊，再加一个也是不行，把文件传给你麻烦您给弄一下方便吗

追答

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/UxspxxvUUn2xsvUDD2i.html

相似回答

excel 2003 自动保存的宏命令我套打表格后数据需要自动保存。答：ActiveSheet.PrintOut '打印当前表 ActiveWorkbook.Save '保存当前工作簿文档 end sub

Excel中利用宏将文件自动另存为,要求:保存到另一文件夹,文件名一样,格...答：Application.ScreenUpdating = False ipath = ThisWorkbook.Path & "\"For Each sht In Sheets sht.Copy ActiveWorkbook.SaveAs ipath & sht.Name & ".csv" '(工作表名称为文件名）ActiveWorkbook.Close Next Application.ScreenUpdating = True End Sub ...

excel关于写保存数据到指定表的宏代码,请高手指教,把表1的数据点击保存...答：在Sheet1插入一个ActiveX控件命令按钮其Caption属性取为“保存”对该命令按钮编程如下：Private Sub CommandButton1_Click()Dim i2 As Integer i2 = Sheet2.Range("A65536").End(xlUp).Row + 1 With Sheet2 .Cells(i2, 1) = Range("B3").Cells(i2, 2) = Range("D3").Cells(i2, ...

求VBA高手帮忙,想在Excel 宏A运行完成后自动另存为整个workbook,另存...答：你试试在“workbook"的 Private Sub Workbook_BeforeClose(Cancel As Boolean) 中加入如下句子：myNowTime = Format(Now, "yymmdd" &"-" & "hhmmss")ActiveWorkbook.SaveAs Filename:=currPath & myNowTime &".xls", AddToMru:=False ‘（”currPath“为你的路径及文件名称）...

在EXCEL中,如何编制一个宏,使sheet1中的内容自动保存到sheet2中,并自动...答：Sub 保存()lastrow = Sheets("sheet2").UsedRange.SpecialCells(xlCellTypeLastCell).Row Sheets("sheet2").Cells(lastrow + 1, 1) = Sheets("sheet1").Cells(1, 1)...Sheets("sheet2").Select Sheets("sheet2").Cells(lastrow + 1, 1).Select Sheets("sheet1").range("单元格地址")=...

excel用宏从一个工作薄中导出指定的几个工作表另存答："输出表","年级排名表")).Copy 实现新建工作簿的另存为，需要两个语句，一个是选择文件名：fn = Application.GetSaveAsFilename 下一个语句就是保存：ActiveWorkbook.SaveAs fn 当然，这两个语句可能需要更细化，例如选择文件夹时候指定默认位置、文件类型，保存前检查文件是否覆盖、名字后缀是否正确等。

大家正在搜

excel保存为什么是另存为怎么打印excel表格 excel表格怎么打印出来 excel表格打印不完整 excel表格打印没有表格线 excel打印设置 excel打印预览在哪里 excel怎么打印选定区域 excel打印表头每页都有

excel 点保存时自动另存一个文件

求高手为所有EXCEL定义一个自动另存为的宏

求VBA高手帮忙，想在Excel 宏A运行完成后自动另存为整...

求 excel 2010定时自动保存宏程序

excel表格的一个工作表打印后自动另存为另一个表格，到某...

EXCEL中如何实现要打印的数据自动记录下来