批量给Excel表格添加一列序号列

Sub test()    Dim objFSO,objFolder,objFile As Object    Dim strFolderPath As String    Dim appTarget As Excel.Application    Dim wbTarget As Workbook    Dim wsTarget As Worksheet    Dim lngLastRow As Long    Dim strFileList As Variant    Dim i As Integer    strFolderPath = ThisWorkbook.Path & "\test\"    strFileList = Array("1.xlsx", "2.xlsx", "3.xlsx")    Set objFSO = CreateObject("Scripting.FileSystemObject")    If Not objFSO.FolderExists(strFolderPath) Then        MsgBox "找不到路径: " & strFolderPath, vbCritical, "错误"        Exit Sub    End If    On Error GoTo ErrorHandler    Set appTarget = New Excel.Application    With appTarget        .Visible = False        .ScreenUpdating = False        .DisplayAlerts = False    End With    For i = LBound(strFileList) To UBound(strFileList)        Dim strPath As String        strPath = strFolderPath & strFileList(i)        If objFSO.FileExists(strPath) Then            Set wbTarget = appTarget.Workbooks.Open(strPath)            Set wsTarget = wbTarget.Worksheets(1)            With wsTarget                .Columns(1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove                .Range("A1").Value = "序号"                lngLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row                If lngLastRow > 1 Then                    With .Range("A2:A" & lngLastRow)                        .Formula = "=ROW()-1"                        .Value = .Value                    End With                End If                .Columns(1).AutoFit            End With            wbTarget.Close SaveChanges:=True        End If    Next iCleanExit:    If Not appTarget Is Nothing Then        appTarget.Quit        Set appTarget = Nothing    End If    Set objFSO = Nothing    MsgBox "任务处理完成！", vbInformation, "提示"    Exit SubErrorHandler:    MsgBox "运行过程中发生错误: " & Err.Description, vbCritical    Resume CleanExitEnd Sub