Невозможно скопировать имя «fileobj» из цикла в диапазон электронных таблиц

Question

Я установил объект файла с файлами на USB-накопителе и хочу скопировать их имена в диапазон Excel на листе, он работает до тех пор, пока вы не попытаетесь сохранить fileObj.Name в диапазоне.

Большая часть кода была получена от превосходного ответа этого джентльмена на этот вопрос 5 лет назад «проблемы с кодом для чтения нескольких файлов в цикле для чтения и специальных строк для импорта», он дал два превосходных ответа; и это в основном работает, за исключением несоответствия типов или ошибки установки объекта в зависимости от того, что вы меняете.

    Option Explicit
    Sub Test1()

      Dim FileSysObj As Object
      Dim FolderObj As Object
      Dim FileColl As Object
      Dim FileObj As Object
      Dim s, fc, f1, CurrFile, cfile
      Dim PathSearch As String
      Dim FinalRow As Range


      ' This assumes the text files are in the same folder as the workbook holding the macro.
      ' Use PathSearch = "C:\ ..." if you would rather have the files in a different folder.
      PathSearch = ActiveWorkbook.Path

      Set FileSysObj = CreateObject("Scripting.FileSystemObject")
      Set FolderObj = FileSysObj.getfolder(PathSearch)
      Set FileColl = FolderObj.subfolders


     ' For Each FileObj In FileColl


           ' Set CurrFile = FileObj.Files

          '  For Each cfile In CurrFile
           '  s = s & cfile.Name

       '    ***FinalRow = Cells(Rows.Count).End(xlUp).Row.Value***

    ' Ans = FinalRow.Value = s
     "Here is the solution code

           For Each FileObj In FileColl


        Set currfile = FileObj.Files

        For Each cfile In currfile
         i = i + 1
         f = cfile.Name

      'Now deal with your worksheets

        Cells(i, 1).Value = f


      Next

  Next

End Sub





I have added the solution. below was the problem, no one replied.

Я получаю либо ошибку несоответствия типов, либо набор или не установлен для ошибки объекта, я хочу получить имена файлов в папках на USB в электронной таблице, чтобы сохранить базу данных содержимого моих USB.