excel工作表另存为PDF格式,路径跟excel文档一致

cjzhangyong

录制宏的代码

Sub 宏3()
    Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
    Sheets("Sheet1").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\哔哔艮艮为山\财务报表.pdf", Quality:=xlQualityStandard, IncludeDocProperties:= _
        True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

但是修改 Filename后面的另存为地址报错



立即窗口用这个代码可以显示下方路径，但是替换录制宏的路径 九报错?""""ThisWorkbook.Path &"\"& "财务报表.pdf"&""""
"C:\Users\cjzha\Desktop\财务报表.pdf"

cidanji

为什么要加这部分内容

ykcbf1100

没搞懂楼主意思？看代码感觉应该是三个表都另存为PDF，但没有表循环的话，只能另存当前表。

cjzhangyong

ykcbf1100 发表于 2023-6-24 18:43
没搞懂楼主意思？看代码感觉应该是三个表都另存为PDF，但没有表循环的话，只能另存当前表。

三张表另存为pdf格式，然后pdf路径就是excel文件所在的路径

cjzhangyong

cidanji 发表于 2023-6-24 18:28
为什么要加这部分内容

录制宏这里有双引号"D:\哔哔艮艮为山\财务报表.pdf"

ykcbf1100

cjzhangyong 发表于 2023-6-24 18:46
三张表另存为pdf格式，然后pdf路径就是excel文件所在的路径

附件供参考。。。

cidanji

cjzhangyong 发表于 2023-6-24 18:47
录制宏这里有双引号"D:\哔哔艮艮为山\财务报表.pdf"

那没必要，去掉红框就可以了。
双引号表示文本，你的变量已经是文本类型了就不需要在两头加双引号