Excel自动导出为XPS格式：免对话框按发票号存指定目录

• 直接通过VBA宏读取发票编号，指定默认文档路径导出，跳过保存对话框，完全实现自动化。

具体代码实现 #

假设发票编号在A1单元格，工作表名为「发票」，你可以根据实际情况修改这些参数：

Sub AutoSaveInvoiceAsXPS()
    Dim invoiceNum As String
    Dim savePath As String
    
    ' 读取发票编号（修改单元格位置匹配你的实际文件）
    invoiceNum = ThisWorkbook.Sheets("发票").Range("A1").Value
    
    ' 处理文件名非法字符（避免保存失败）
    invoiceNum = Replace(invoiceNum, "/", "-")
    invoiceNum = Replace(invoiceNum, "\", "-")
    invoiceNum = Replace(invoiceNum, ":", "-")
    invoiceNum = Replace(invoiceNum, "*", "-")
    invoiceNum = Replace(invoiceNum, "?", "-")
    invoiceNum = Replace(invoiceNum, """", "-")
    invoiceNum = Replace(invoiceNum, "<", "-")
    invoiceNum = Replace(invoiceNum, ">", "-")
    invoiceNum = Replace(invoiceNum, "|", "-")
    
    ' 指定默认文档目录为保存路径
    savePath = Environ("USERPROFILE") & "\Documents\" & invoiceNum & ".xps"
    
    ' 导出为XPS，无弹窗直接保存
    ThisWorkbook.Sheets("发票").ExportAsFixedFormat _
        Type:=xlTypeXPS, _
        Filename:=savePath, _
        Quality:=xlQualityStandard
End Sub

操作步骤 #

1. 打开你的发票Excel文件，按Alt + F11打开VBA编辑器。
2. 左侧工程窗口右键点击你的工作簿，选「插入」→「模块」，粘贴上面的代码。
3. 修改代码里的工作表名称和发票编号单元格位置，匹配你的实际文件。
4. 按F5运行宏，或者回到Excel界面添加按钮绑定这个宏，点击即可自动导出。

注意点 #

• 确保Excel启用宏功能，打开文件时如果提示宏禁用，选择「启用内容」。
• 如果需要批量处理多张发票，可以在代码里加循环逻辑，遍历不同的发票数据行。

内容的提问来源于stack exchange，提问作者arkero24