摘要：Sub 导出为pdf() aa = ThisWorkbook.Name ’当前工作薄名字aa = Replace(aa, ".xlsm", "") ’将当前工作簿名字的后缀去掉 Replace 字符串替换函数 ActiveWorkbook.ExportAsFixedFormat Type:=xlTy 阅读全文