求助帮忙修改下代码，输出文件类型pdf改为xlsm

vins_li · 发表于 2024-5-24 11:23

求助帮忙修改下代码，输出文件类型pdf改为xlsm！

Sub 打印PDF()
Sheet1.Range("A1:K33").ExportAsFixedFormat xlTypePDF, "C:\Users\Administrator\Desktop\" & Format(Sheet1.Range("B4").Value, "YYYY-MM-DD") & Sheet1.Range("B5").Value & ".pdf", , , False
End Sub

半百 · 发表于 2024-5-24 14:30

请测试

Sub 打印xlsm()
Sheet1.Copy
s = Format(Sheet1.Range("B4").Value, "YYYY-MM-DD") & Sheet1.Range("B5").Value
With ActiveWorkbook
.Sheets(1).Rows("34:65536").Delete '删除多余行
.Sheets(1).Columns("l:iv").Delete '删除多余列
.SaveAs "C:\Users\Administrator\Desktop" & s & ".xlsm", xlOpenXMLWorkbookMacroEnabled
.Close
End With
End Sub

复制代码

lln0618 · 发表于 2024-5-24 17:08

Sub 打印XLSM()
Sheet1.Range("A1:K33").ExportAsFixedFormat xlTypePDF, "C:\Users\Administrator\Desktop\" & Format(Sheet1.Range("B4").Value, "YYYY-MM-DD") & Sheet1.Range("B5").Value & ".xlsm", , , False
End Sub

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

[求助] 求助帮忙修改下代码，输出文件类型pdf改为xlsm

评分

评分