请求合并3个VBA为一个并实现按单元格值命名导出文件

以下是合并后的完整VBA代码，实现循环处理A列指定项、按规则生成导出文件名、完成导出后自动执行后续操作的需求：

Sub ExportAndProcessAll()
    ' 初始化SAP连接（沿用原有逻辑）
    Dim SapGuiAuto As Object, Application1 As Object, Connection As Object, session As Object
    If Not IsObject(Application1) Then
        Set SapGuiAuto = GetObject("SAPGUI")
        Set Application1 = SapGuiAuto.GetScriptingEngine
    End If
    If Not IsObject(Connection) Then
        Set Connection = Application1.Children(0)
    End If
    If Not IsObject(session) Then
        Set session = Connection.Children(0)
    End If

    Dim sht As Worksheet
    Dim lastRowA As Long, i As Long
    Dim targetCol As String, exportFileName As String
    Dim exportRange As Range, lastRowCol As Long
    Dim newWB As Workbook, savePath As String

    ' 指定操作工作表
    Set sht = ThisWorkbook.Worksheets("sheet1")
    ' 获取A列最后一行（确定需要处理的任务数）
    lastRowA = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

    ' 设置导出文件保存路径，请替换为实际路径，末尾必须加\
    savePath = "C:\YourExportDirectory\"

    ' 循环处理A列每个任务项
    For i = 1 To lastRowA
        ' 从A列获取目标列标识（如A1单元格值为"C"，对应导出C列数据）
        targetCol = sht.Cells(i, "A").Value
        ' 按示例生成导出文件名
        exportFileName = "Export Data Range " & targetCol & ".xlsx"

        ' 若A列直接存储完整文件名，可替换为下面一行：
        ' exportFileName = sht.Cells(i, "A").Value

        ' 获取目标列的有效数据范围（从第2行到最后一行）
        lastRowCol = sht.Cells(sht.Rows.Count, targetCol).End(xlUp).Row
        Set exportRange = sht.Range(targetCol & "2:" & targetCol & lastRowCol)

        ' 复制目标列数据
        exportRange.Copy

        ' 新建工作簿并粘贴数据（仅粘贴值和格式，避免公式问题）
        Set newWB = Workbooks.Add
        newWB.Worksheets(1).Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        Application.CutCopyMode = False

        ' 保存导出文件：先删除已存在的同名文件，再保存
        On Error Resume Next
        Kill savePath & exportFileName
        On Error GoTo 0
        newWB.SaveAs Filename:=savePath & exportFileName, FileFormat:=xlOpenXMLWorkbook
        newWB.Close SaveChanges:=False

        ' ---------------------- 导出完成后执行后续操作 ----------------------
        ' 在此添加你需要自动执行的代码，示例如下：
        ' 1. 标记任务完成状态到B列
        sht.Cells(i, "B").Value = "导出完成：" & exportFileName
        sht.Cells(i, "B").Interior.Color = RGB(146, 208, 80) ' 绿色标记

        ' 2. 调用其他宏或处理逻辑
        ' Call YourPostProcessMacro(savePath & exportFileName)

        ' 3. 打开导出文件进行后续编辑
        ' Dim processedWB As Workbook
        ' Set processedWB = Workbooks.Open(savePath & exportFileName)
        ' ... 编写你的处理代码 ...
        ' processedWB.Close SaveChanges:=True
        ' -------------------------------------------------------------------
    Next i

    MsgBox "全部导出任务及后续操作已执行完毕！", vbInformation
End Sub

关键说明 #

1. SAP连接：保留了原代码的SAP会话初始化逻辑，需确保SAP已开启脚本权限。
2. 文件名规则：默认按A列单元格的列标识（如"C"、"D"）生成示例格式的文件名；若A列直接存储完整文件名，注释掉对应两行并启用直接读取A列值的代码即可。
3. 数据导出：自动获取目标列的有效数据范围，复制后粘贴到新工作簿并保存，避免公式和格式错乱。
4. 后续操作：在指定区域添加自定义代码，可实现标记任务状态、调用其他宏、处理导出文件等需求。
5. 路径设置：务必将savePath替换为实际的文件夹路径，确保路径存在且有读写权限。

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