EXCEL对象另存为PDF

amwfjwxf

请问一下各位大佬，上面这个EXCEL另存为PDF档的代码要怎么写。

执骨哟

火山买不起，看看e

  

子程序名	返回值类型	公开	备 注
另存为PDF	逻辑型		另存为PDF
参数名	类 型	参考	可空	数组	备 注
工作表索引	整数型				工作表索引
选定区域	文本型				单元格选定区域
保存路径	文本型				保存路径可以包括完整路径
类型	整数型				0【PDF文档格 .pdf】、1【XPS文档 .xps】
质量	整数型				0【标准质量】、1【最低质量】

变量名	类 型	静态	数组	备 注
变体1	变体型

变体1.赋值 (保存路径, )
如果真 (是否为空 (工作表索引))
工作表索引 ＝ excel对象.读对象型属性 (“ActiveSheet”, ).读数值属性 (“Index”, )
excel对象.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Range”, 选定区域).方法 (“ExportAsFixedFormat”, 类型, 变体1, 质量)
返回 (excel对象.取错误 () ＝ “”)

.版本 2<br /> <br /> .子程序 另存为PDF, 逻辑型, 公开, 另存为PDF<br /> .参数 工作表索引, 整数型, 可空, 工作表索引<br /> .参数 选定区域, 文本型, , 单元格选定区域<br /> .参数 保存路径, 文本型, , 保存路径可以包括完整路径<br /> .参数 类型, 整数型, 可空, 0【PDF文档格 .pdf】、1【XPS文档 .xps】<br /> .参数 质量, 整数型, 可空, 0【标准质量】、1【最低质量】<br /> .局部变量 变体1, 变体型<br /> <br /> 变体1.赋值 (保存路径, )<br /> .如果真 (是否为空 (工作表索引))<br />     工作表索引 ＝ excel对象.读对象型属性 (“ActiveSheet”, ).读数值属性 (“Index”, )<br /> .如果真结束<br /> excel对象.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Range”, 选定区域).方法 (“ExportAsFixedFormat”, 类型, 变体1, 质量)<br /> 返回 (excel对象.取错误 () ＝ “”)