如何在VBA中处理发票编号非法字符实现文件自动命名保存

实现方案 #

你遇到的是Windows文件名不允许包含正斜杠的经典问题，只需调整文件名的拼接逻辑，不改动发票票面显示的编号格式即可实现需求，修改后的完整可运行代码如下：

Sub NextInvoice()
    ' 优化编号递增逻辑，适配带斜杠的完整编号格式，避免硬编码字符位置出错
    Dim arr As Variant
    arr = Split(Range("D12").Value, "/")
    ' 提取中间的4位编号递增
    arr(1) = Format(CInt(arr(1)) + 1, "0000")
    ' 拼接回完整编号写回单元格，票面仍显示带斜杠的格式
    Range("D12").Value = Join(arr, "/")
End Sub

Sub SaveInvoiceBothWaysAndClear()
    Dim NewFN As Variant
    Dim invoiceSeq As String
    ' 提取4位递增编号，用于生成合法文件名
    invoiceSeq = Split(Range("D12").Value, "/")(1)
    
    ' 生成PDF文件
    ActiveSheet.Copy
    ' 加容错，避免指定形状不存在时报错
    On Error Resume Next
    ActiveSheet.Shapes("Rectangle 2").Delete
    ActiveSheet.Shapes("Oval 1").Delete
    ActiveSheet.Shapes("Isosceles Triangle 3").Delete
    ActiveSheet.Shapes("Arrow: Pentagon 6").Delete
    ActiveSheet.Shapes("Arrow: Left-Right 7").Delete
    On Error GoTo 0
    
    ' 拼接PDF合法文件名，格式为ABC-0001
    NewFN = "D:\My data\Invoice\PDF\ABC-" & invoiceSeq & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    
    ' 保存Excel文件
    NewFN = "D:\My data\Invoice\Excel\ABC-" & invoiceSeq & ".xlsx"
    ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
    ActiveWorkbook.Close
    
    ' 清空内容并生成下一个编号
    Range("A20:C29").ClearContents
    NextInvoice
End Sub

调整说明 #

• 优化了编号递增逻辑，改用Split按斜杠拆分编号，不需要硬编码字符截取位置，后续财年变化也不需要调整代码
• 提取编号中间的4位递增序列拼接文件名，完全符合你要求的ABC-0001格式，彻底避免了正斜杠等文件名非法字符
• 新增了形状删除的容错逻辑，避免模板调整后指定形状不存在导致代码报错
• 发票票面显示的编号仍保留你需要的ABC/0001/2021-2022格式，不受文件名逻辑影响

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