excel中html批量转化为pdf|excel中html批量转化为pdf,批处理|批量将EXCEL转为PDF 批量将EXCEL转为PDF|批处理

Sub 打印为一个PDF()
Dim MyPath As String, MyName As String
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.xls") '将需要打印的表格放在代码表格同目录下，取文件名
Application.ScreenUpdating = False
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
【excel中html批量转化为pdf|excel中html批量转化为pdf,批处理|批量将EXCEL转为PDF】Set wb = GetObject(MyPath & MyName) 'getobject隐式打开excel
For i = 1 To wb.Worksheets.Count
wb.Worksheets(i).Visible = -1 '显示隐藏的worksheet
Next
wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyPath & MyName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'上述几行代码为录制宏得到，也是核心代码
wb.Close False
Set wb = Nothing
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub

excel中html批量转化为pdf|excel中html批量转化为pdf,批处理|批量将EXCEL转为PDF

推荐阅读

oversize不适合哪些人 oversize是什么牌子

玉米粥和小米粥哪个减肥

车钥匙在哪里车钥匙怎么配要多少钱

博世壁挂炉不供水怎么办 ,什么是氟利昂

杨梅怎么做蜜饯

手机进水黑屏能自己恢复吗手机进水黑屏还有救吗

支付包钱包是什么？支付宝钱包怎么用？

原神塞西莉亚苗圃怎么解锁风墙原神塞西莉亚苗圃怎么解锁

oppo版荒野乱斗最新版下载，那里下载新版本

进京证过期一天可以办延期吗进京证到期了凌晨可以跑吗

红酥手黄藤酒后面的一句话是什么红酥手黄藤酒后面的一句话应该是什么

溃疡性结肠炎|一文了解：儿童溃疡性结肠炎的诊疗要点

下载不了小米路由器怎么办，下载不了小米路由器怎么办呢

平板支架

梦幻模拟战黎恩转职推荐黎恩转职路线一览

全球十大品牌床垫口碑最好的床垫品牌

电脑能带上飞机吗? 笔记本电脑能带上飞机吗?

2023年乌鲁木齐市中考报名条件 2023年乌鲁木齐市中考报名条件怎么样

蚂蟥咬怎么处理

孕妇补钙过多会导致胎盘老化吗