遍历文件夹中的 excel 文件并对每个文件执行一个过程 VBA

Question

我的目标：

此过程旨在循环遍历指定文件夹中的excel文件并执行子（cleanDataAndTransfer），该子程序旨在清理循环通过的文件中的数据，然后将其粘贴到主文件中的新工作表中.

我的问题：

我收到运行时错误“91”：.Title = "Select A Target Folder" 行上未设置对象变量或块变量。

我尝试了不同的解决方案来纠正这个问题，但没有任何效果。

我的代码：

Sub loopAllExcelFilesInFolder()

Dim wb As Workbook
Dim myPath As String
Dim myFile As String
Dim myExtension As String
Dim FldrPicker As FileDialog

  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual

  Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker)

    With FldrPicker
      .Title = "Select A Target Folder"
      .AllowMultiSelect = False
        If .Show <> -1 Then GoTo NextCode
        myPath = .SelectedItems(1) & "\"
    End With

NextCode:
  myPath = myPath
  If myPath = "" Then GoTo ResetSettings

  myExtension = "*.xls*"

  myFile = Dir(myPath & myExtension)

  Do While myFile <> ""
      Set wb = Workbooks.Open(FileName:=myPath & myFile)
    
      DoEvents
    
      Call cleanDataAndTransfer
    
      wb.Close SaveChanges:=True
      
      DoEvents

      myFile = Dir
  Loop


ResetSettings:
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

非常感谢有关如何解决此错误和任何其他改进的任何建议！在此先感谢:)

Answer 1

我没有 Mac 来测试这个，但你可以试试 InputBox。

更新 - 目录上没有过滤器

Sub loopAllExcelFilesInFolder()

   Sub loopAllExcelFilesInFolder2()

    Const EXT = "csv"

    Dim wb As Workbook, myPath As String, myFile As String
    Dim count As Integer, isWindows As Boolean
    
    myPath = ThisWorkbook.Path & Application.PathSeparator
    myPath = VBA.InputBox("Enter folder", "Folder", myPath)
    If myPath = "" Then Exit Sub

    If Right(myPath, 1) <> Application.PathSeparator Then
        myPath = myPath & Application.PathSeparator
    End If
   
    myFile = Dir(myPath)
    Do While myFile <> ""
        If Right(myFile, Len(EXT)) = EXT Then
 
            Set wb = Workbooks.Open(Filename:=myPath & myFile)
            Call cleanDataAndTransfer
            wb.Close SaveChanges:=True
            count = count + 1

        End If
        myFile = Dir
    Loop
    MsgBox count & " files cleaned", vbInformation
End Sub