如何输出PDF

blackttea1

我的用excel 2003兼容2007版，运行上面程序，在红色部分出现问题，（但此程序在wps中能运行），不知能修改，请达人指点下，谢谢！

ykcbf1100

工作表转为PDF文件

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.21   工作表另存为PDF文件
   
2.     Application.ScreenUpdating = False
   
3.     p = ActiveWorkbook.Path & "" & "PDF合同"
   
4.     If Dir(p, vbDirectory) = "" Then MkDir p
   
5.     With ActiveSheet
   
6.         f = p & .Range("g2").Value '& ".pdf"
   
7.         .ExportAsFixedFormat Type:=xlTypePDF, fileName:=f
   
8.     End With
   
9.     Application.ScreenUpdating = True
   
10.     MsgBox "合同PDF文件已保存至：" & p
    
11. End Sub
    

复制代码

blackttea1

楼上的程序：出现运行错误“438”，对象不支持此属性与方法。

ykcbf1100

blackttea1 发表于 2024-7-21 19:24
楼上的程序：出现运行错误“438”，对象不支持此属性与方法。

我这里正常的。是版本的关系？我是office2021,代码应该是正常的。

ykcbf1100

blackttea1 发表于 2024-7-21 19:24
楼上的程序：出现运行错误“438”，对象不支持此属性与方法。

我建议升级office系统，只要升级上去，啥问题都没有了。

blackttea1

应是版本关系，换用高版本的就行，谢谢指导。