指定区域一键保存为PDF格式文件

jackqiu · 发表于 2019-1-21 11:16

要求：
点击“按钮1”或“CommandButton1”时自动将A2:H30保存为PDF文件，并且以A1单元格内容命名文件；同时保存到与EXCEL相同文件夹里。谢谢！

liulang0808 · 发表于 2019-1-21 11:29

截图代码供参考。。。。。。

jackqiu · 发表于 2019-1-21 12:45

弄好了怎么不行啊！麻烦帮看看问题出在哪儿！谢谢！

liulang0808 · 发表于 2019-1-21 13:20

jackqiu 发表于 2019-1-21 12:45
弄好了怎么不行啊！麻烦帮看看问题出在哪儿！谢谢！

楼主代码抄写的不对啊，该有的空格得有啊

jackqiu · 发表于 2019-1-21 13:55

谢谢！开始没注意这个问题，现在已弄好了。但现在有个新问题，excel有隐藏部分PDF也不需要显示出来。请问需要加哪些？

tptopy · 发表于 2019-1-21 14:52

点击按钮，试试这个

jackqiu · 发表于 2019-1-21 20:09

按6楼的方法需要一个空白表，这不太方便。可否拷贝到同一个表下面空白行，比如2000行以后。那么宏该怎么写呢！

jackqiu · 发表于 2019-1-22 08:50

liulang0808 发表于 2019-1-21 13:20
楼主代码抄写的不对啊，该有的空格得有啊

请问：如果将取值范围改为A1到H列非空行的宏怎么写？

小fisher · 发表于 2019-1-22 09:19

ExportAsFixedFormat方法也是Range对象的成员，所以没必要新建一个工作簿来中转
Private Sub CommandButton1_Click()
Sheet1.Range("a2:h30").ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & Sheet1.Range("a1").Value & ".pdf"
End Sub

liulang0808 · 发表于 2019-1-22 10:17

jackqiu 发表于 2019-1-22 08:50
请问：如果将取值范围改为A1到H列非空行的宏怎么写？

cells(1,1).resize(cells(rows.count,"h").end(3).row ,8)

		自动登录	找回密码
密码			免费注册

[求助] 指定区域一键保存为PDF格式文件