使用 VBA 同时格式化多个 .csv 文件

问：

我正在尝试运行一个代码，该代码一次格式化特定文件夹中的多个 .csv 文件。在原始数据表中，包含值的行是间隔开的。

我想删除空行并将单元格中包含的数值提取到另一个相邻单元格。

我尝试使用的代码适用于单个工作表，但一旦我无法将其调整为在多个文件上使用。

Sub RunOnAllFilesInFolder()
    Dim folderName As String, eApp As Excel.Application, fileName As String
    Dim wb As Workbook, ws As Worksheet, currWs As Worksheet, currWb As Workbook
    Dim fDialog As Object: Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
    Set currWb = ActiveWorkbook: Set currWs = ActiveSheet
 
   folderName = "C:\xxxx\test\"
    
    
    'Create a separate Excel process that is invisibile
    Set eApp = New Excel.Application:  eApp.Visible = False
    
    'Search for all files in folder [replace *.* with your pattern e.g. *.xlsx]
    fileName = Dir(folderName & "\*.csv")
    Do While Len(fileName) > 0
        'Update status bar to indicate progress
        Application.StatusBar = "Processing " & folderName & "\" & fileName
 
 
        Set wb = eApp.Workbooks.Open(folderName & "\" & fileName)
        '...
        
        
        
    Dim s As String, i As Long, L As Long, c As String, temp As String, d As String, p As String, v As String
    
    Range("A11").Select
    Selection.Cut
    Range("A10").Select
    ActiveSheet.Paste
    Range("A13").Select
    Selection.Cut
    Range("A11").Select
    ActiveSheet.Paste
    Range("A15").Select
    Selection.Cut
    Range("A12").Select
    ActiveSheet.Paste
    
    s = [A9]
    L = Len(s)
    temp = ""
    For i = 1 To L
        c = Mid(s, i, 1)
        If c Like "[0-9]" Then
            temp = temp & c
        Else
            temp = temp & " "
        End If
    Next i

    temp = "'" & Application.WorksheetFunction.Trim(temp)
    temp = Replace(temp, " ", ",")

    [D9] = temp
    
    
    d = [A10]
    L = Len(s)
    temp = ""
    For i = 1 To L
        c = Mid(d, i, 1)
        If c Like "[0-9]" Then
            temp = temp & c
        Else
            temp = temp & " "
        End If
    Next i

    temp = "'" & Application.WorksheetFunction.Trim(temp)
    temp = Replace(temp, " ", ",")

    [D10] = temp
    
    
    
    p = [A11]
    L = Len(s)
    temp = ""
    For i = 1 To L
        c = Mid(p, i, 1)
        If c Like "[0-9]" Then
            temp = temp & c
        Else
            temp = temp & " "
        End If
    Next i

    temp = "'" & Application.WorksheetFunction.Trim(temp)
    temp = Replace(temp, " ", ",")

    [D11] = temp
    
    
    v = [A12]
    L = Len(s)
    temp = ""
    For i = 1 To L
        c = Mid(v, i, 1)
        If c Like "[0-9]" Then
            temp = temp & c
        Else
            temp = temp & " "
        End If
    Next i

    temp = "'" & Application.WorksheetFunction.Trim(temp)
    temp = Replace(temp, " ", ",")

    [D12] = temp
    
    
    
    
        '...
       wb.Close SaveChanges:=True 'Close opened worbook w/o saving, change as needed
       Debug.Print "Processed " & amp; folderName & amp; "\" & amp; fileName
       fileName = Dir()
       
       
    Loop
    eApp.Quit
    Set eApp = Nothing
    'Clear statusbar and notify of macro completion
    Application.StatusBar = ""
    MsgBox "Completed executing macro on all workbooks"
End Sub

我尝试使用我在网上找到的一些代码，它将始终运行而不会出现错误消息，但最终，这些文件似乎不受影响。即使在拆分任务后（例如，只是在不提取数值的情况下移动数据），它仍然无法正常工作。