如何根据Excel列值匹配工作表生成PDF？VBA代码优化求助

原代码核心问题 #

• IF语句嵌套逻辑错误，第二个If缺少对应End If，导致代码结构混乱
• 行号Row的递增逻辑不合理，嵌套判断中多次执行Row = Row + 1会导致跳过数据行或重复处理
• Range("N1")未指定所属工作表，默认引用当前激活表，易引发引用错误
• PDF导出文件名未添加.pdf后缀，生成的文件可能无法被系统正常识别
• 重复代码冗余，可通过封装逻辑简化结构

优化后代码 #

Sub GenerateDataSheets()
    Dim wsData As Worksheet
    Dim templateSheet As Worksheet
    Dim instrumentType As String
    Dim rowNum As Long
    Dim pdfPath As String
    
    ' 处理Pressure Gauge工作表数据
    Set wsData = ThisWorkbook.Worksheets("Pressure Gauge")
    instrumentType = wsData.Range("N1").Value
    rowNum = 2
    
    Do Until IsEmpty(wsData.Cells(rowNum, 1))
        ' 根据仪器类型匹配模板
        Select Case instrumentType
            Case "Pressure Gauge"
                Set templateSheet = ThisWorkbook.Sheets("INS-TDS-7161")
            Case "Pressure Transmitter DPT"
                Set templateSheet = ThisWorkbook.Sheets("INS-TDS-7162")
            Case Else
                rowNum = rowNum + 1
                GoTo NextRow
        End Select
        
        ' 填充模板并导出PDF
        templateSheet.Range("D2") = wsData.Cells(rowNum, 1).Value
        pdfPath = ThisWorkbook.Path & "\" & wsData.Cells(rowNum, 1).Value & ".pdf"
        templateSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
        
NextRow:
        rowNum = rowNum + 1
    Loop
    
    ' 处理Data2工作表数据
    Set wsData = ThisWorkbook.Worksheets("Data2")
    rowNum = 2
    Do Until IsEmpty(wsData.Cells(rowNum, 1))
        Set templateSheet = ThisWorkbook.Sheets("Template2")
        templateSheet.Range("D2") = wsData.Cells(rowNum, 1).Value
        pdfPath = ThisWorkbook.Path & "\" & wsData.Cells(rowNum, 1).Value & ".pdf"
        templateSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
        
        rowNum = rowNum + 1
    Loop
    
    MsgBox "数据表格已生成。", vbOKOnly, "完成"
End Sub

优化说明 #

1. 修复逻辑结构：用Select Case替代嵌套IF，避免结构错误，逻辑更直观
2. 规范对象引用：所有单元格、工作表都明确指定所属工作簿，消除激活表依赖
3. 统一行号控制：将行号递增放在循环末尾，确保每行仅处理一次
4. 完善文件命名：添加.pdf后缀，保证生成的文件可被系统正常识别
5. 增加容错处理：遇到未知仪器类型时自动跳过该行，避免代码中断
6. 提升可读性：使用有意义的变量名，代码结构分层清晰

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