Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4851|回复: 7

[已解决]保存工作表区域内容,用指定单元格内容命名

[复制链接]
发表于 2017-1-11 15:41 | 显示全部楼层 |阅读模式
急求各老师帮忙解决,谢谢!

原有代码如下,功能是打印当前工作表F列至P列的内容,生成PDF文件(打印机默认设置为“Adobe PDF”)

现要求增加把生成的PDF文件,以当前工作表单元格I1内容为命名,保存至F:\work文件夹内,并关闭生成的PDF文件



Private Sub CommandButton5_Click()

    Range("F:P").Select
    ActiveSheet.PageSetup.PrintArea = "F:P"
    Selection.PrintOut Copies:=1, Collate:=True
   
End Sub

最佳答案
2017-1-13 12:17
本帖最后由 苏子龙 于 2017-1-13 12:21 编辑
  1. <div class="blockcode"><blockquote>见附件,批量可以加循环
复制代码

发表于 2017-1-11 16:02 | 显示全部楼层
office2010及以上可以试试另存为pdf格式
回复

使用道具 举报

 楼主| 发表于 2017-1-11 16:23 | 显示全部楼层
苏子龙 发表于 2017-1-11 16:02
office2010及以上可以试试另存为pdf格式

使用VBA,要求增加把生成的PDF文件,自动以当前工作表单元格I1内容为命名,保存至F:\work文件夹内,并关闭生成的PDF文件
回复

使用道具 举报

发表于 2017-1-11 19:36 | 显示全部楼层
wwj804 发表于 2017-1-11 16:23
使用VBA,要求增加把生成的PDF文件,自动以当前工作表单元格I1内容为命名,保存至F:\work文件夹内,并关 ...
  1. Sub TT() 'office 2007以上才能用
  2.     Dim myWbNm$
  3.     For i = 1 To 5
  4.         myWbNm = "F:\word文件" & Cells(i, "i").Value & ".pdf"
  5.         If Dir(myWbNm) = "" Then
  6.             ActiveSheet.Range("a1:d12").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  7.             myWbNm, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
  8.             IgnorePrintAreas:=False, OpenAfterPublish:=False '录制个宏,改下名称就可以了
  9.         Else
  10.             MsgBox "已存在"
  11.         End If
  12.     Next
  13. End Sub
复制代码
具体怎么处理,自己对应改下代码吧
回复

使用道具 举报

 楼主| 发表于 2017-1-11 19:57 | 显示全部楼层
苏子龙 发表于 2017-1-11 19:36
具体怎么处理,自己对应改下代码吧

不行啊,出现错误了,还有怎样录制宏啊



无标题1.png
无标题.png
回复

使用道具 举报

发表于 2017-1-11 21:10 | 显示全部楼层
wwj804 发表于 2017-1-11 19:57
不行啊,出现错误了,还有怎样录制宏啊

提问不发文件,让人猜吗?
回复

使用道具 举报

 楼主| 发表于 2017-1-12 15:43 | 显示全部楼层
苏子龙 发表于 2017-1-11 21:10
提问不发文件,让人猜吗?

对不起

book.rar

41.08 KB, 下载次数: 15

回复

使用道具 举报

发表于 2017-1-13 12:17 | 显示全部楼层    本楼为最佳答案   
本帖最后由 苏子龙 于 2017-1-13 12:21 编辑
  1. <div class="blockcode"><blockquote>见附件,批量可以加循环
复制代码

book.zip

40.64 KB, 下载次数: 52

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 13:34 , Processed in 0.570577 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表