Excel 365中使用变量实现发票另存为的问题求助

问题1：用变量替代ActiveCell指定发票文件名 #

原代码依赖ActiveCell获取发票号，改用变量invoiceNumber直接读取命名区域Invoice_N的值，避免因单元格激活状态出错。修改后的代码：

Dim invoiceNumber As String
' 从命名区域获取发票号，无需激活窗口
invoiceNumber = ThisWorkbook.Range("Invoice_N").Value

' 直接使用完整路径保存，无需ChDir
ThisWorkbook.SaveAs _
    Filename:="F:\Finance\Invoices\" & invoiceNumber, _
    FileFormat:=xlOpenXMLWorkbook, _
    CreateBackup:=False

说明： #

• 用ThisWorkbook替代窗口激活操作，直接操作当前模板工作簿，避免窗口切换导致的错误。
• 直接从命名区域Invoice_N读取值赋值给变量，无需激活单元格，逻辑更稳定。

问题2：读取客户名称并保存PDF到对应文件夹 #

原代码错误地将命名区域名称当作变量使用，需通过单元格引用获取客户名称，同时要确保目标文件夹存在（不存在则创建），避免保存失败。修改后的代码：

Dim companyName As String
Dim invoiceNumber As String
Dim pdfPath As String

' 获取客户名称和发票号
companyName = ThisWorkbook.Range("Invoice!R9C1").Value
invoiceNumber = ThisWorkbook.Range("Invoice_N").Value

' 构建完整PDF保存路径
pdfPath = "F:\Clients and Prospects\" & companyName & "\Invoices\"

' 检查文件夹是否存在，不存在则创建
If Dir(pdfPath, vbDirectory) = "" Then
    MkDir pdfPath
End If

' 导出PDF，使用完整路径和变量命名
ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:=pdfPath & "I" & invoiceNumber, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True

说明： #

• 直接从指定单元格Invoice!R9C1读取客户名称，若需保留原命名区域，可替换为companyName = ThisWorkbook.Range("companyname").Value。
• 添加文件夹检查与创建逻辑，避免因文件夹不存在导致的保存错误。
• 直接在Filename中使用完整路径，无需ChDir，逻辑更清晰。

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