网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
01月28日漏签0天
vba吧 关注:17,092贴子:66,941
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 10回复贴,共1页
<<返回vba吧
>0< 加载中...

求助各位大神!小女子想用vba将excel自动转化成pdf(

  • 只看楼主
  • 收藏

  • 回复
  • Jinyiwen0324
  • 初涉江湖
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
如题,本人有个工作簿,里面含有多个工作表,想用vba编程,自动将每个工作表分别对应转换成pdf,pdf的名字与工作表保持一致!求助!!!百度只有把所有工作表转化成一个完成pdf的代码,〒_〒


  • ffll_518
  • 英雄豪杰
    10
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
完全不了解pdf文件的格式,所以也不知道如何写入;不过如果你的工作薄能先合并为一个工作表的话也是可以用工具软件完成的


2026-01-28 22:45:55
广告
不感兴趣
开通SVIP免广告
  • h3533
  • 初涉江湖
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
ChDir "C:\Users\QUAN\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\QUAN\Desktop\工作簿1.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
录制的,自己修改一下就能批量转存PDF了,只有EXCEL2013才可以。


  • ffll_518
  • 英雄豪杰
    10
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
今天抽点时间测了一下2007以上版本都支持自动另存单表为PDF,其实很简单
Sub test()
Dim she As Worksheet
For Each she In ThisWorkbook.Worksheets
she.ExportAsFixedFormat xlTypePDF, she.Name
Next
End Sub
楼主自己也测试一下吧


  • wanao1
  • 武林新贵
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Excel可以另存为PDF文件,另存为时有很多选项可选,你自已录个宏试试:


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 10回复贴,共1页
<<返回vba吧
分享到:
©2026 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示