VBA将Excel导出为PDF，根据sheet页名称命名PDF，带#时出错

陈宫在家吗 · 发表于 2024-5-31 09:18

本帖最后由陈宫在家吗于 2024-5-31 10:33 编辑

如题，将Excel内的工作表按sheet页分别导出为PDF，并根据sheet页名称来命名PDF。

Sub test()
Dim i%
For i = 1 To ThisWorkbook.Sheets.Count
ThisWorkbook.Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=Format(i, "000") & " " & ThisWorkbook.Sheets(i).Name, From:=1, To:=1
Next
End Sub

复制代码

但是当sheet页名称带有“#”时，PDF不能正确生成。请教大家该如何解决？

ykcbf1100 · 发表于 2024-5-31 10:19

本帖最后由 ykcbf1100 于 2024-5-31 10:25 编辑

保存时把“#”替换成别的可认可字符就行。

ykcbf1100 · 发表于 2024-5-31 10:20

本帖最后由 ykcbf1100 于 2024-5-31 10:25 编辑

改好了。。。

Sub test() '//2024.5.31
For Each sht In Sheets
m = m + 1
With sht
fn = Replace(.Name, "#", "号")
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Format(m, "000") & "-" & fn, From:=1, To:=1
End With
Next
End Sub

复制代码

陈宫在家吗 · 发表于 2024-5-31 10:32

ykcbf1100 发表于 2024-5-31 10:20
改好了。。。

感谢！看来是#符号无法正确命名啊！

ykcbf1100 · 发表于 2024-5-31 10:36

陈宫在家吗发表于 2024-5-31 10:32
感谢！看来是#符号无法正确命名啊！

有些字符不能用于文件名的。

陈宫在家吗 · 发表于 2024-5-31 10:37

ykcbf1100 发表于 2024-5-31 10:36
有些字符不能用于文件名的。

但是 # 是可以用于文件名的，手动修改可以，VBA生成却不行……

MR_PP · 发表于 2024-5-31 11:13

本帖最后由 MR_PP 于 2024-5-31 11:38 编辑

Sub SaveAsPDFWithName()

Dim desktopPath As String
Dim i%

' 获取桌面路径
desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")

For i = 1 To ThisWorkbook.Sheets.Count

'另存为 PDF 文件到桌面
ThisWorkbook.Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=desktopPath & "\" & Format(i, "000") & " " & ThisWorkbook.Sheets(i).Name & ".pdf", Quality:=xlQualityStandard

Next

End Sub
应该可以。

MR_PP · 发表于 2024-5-31 11:20

应该可以。

陈宫在家吗 · 发表于 2024-5-31 13:41

MR_PP 发表于 2024-5-31 11:20
应该可以。

果然可以！

ph378 · 发表于 2024-8-11 15:40

学习再学习一下

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

[已解决] VBA将Excel导出为PDF，根据sheet页名称命名PDF，带#时出错

评分

评分