Автоматизировать составление отчетов VBA

Question

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

• Я хочу, чтобы тип данных всех ячеек был текстовым, чтобы я мог преобразовать дату в дд / мм / гггг

• Он только изменяет некоторые файлы, а некоторые нет.

  Я перепробовал множество макросов, которые я сделал, но не могу исправить ошибки.

  Sub REP_DET_Report()
  myBook = ActiveWorkbook.Name
  Set nav = CreateObject("shell.application")
  folder = nav.browseforfolder(0, "PICK FOLDER", 0, "c:\").items.Item.Path
  ChDir folder & "\"
  file = Dir("*.txt")
  Do While file <> ""
  Workbooks.OpenText file, origin:=xlWindows, startrow:=1, DataType:=xlDelimited
  
  
  Dim objRange1 As Range
  'Set up the ranges
  Set objRange1 = Range("A1:A1048576")
  
  'Do the first parse
  objRange1.TextToColumns _
  Destination:=Range("A1"), _
  FieldInfo:=Array(Array(1, xlTextFormat), Array(2, xlTextFormat), Array(3, xlTextFormat), Array(4, xlTextFormat), Array(5, xlTextFormat), Array(6, xlTextFormat), Array(7, xlTextFormat), Array(8, xlTextFormat), Array(9, xlTextFormat), Array(10, xlTextFormat)), _
  DataType:=xlDelimited, _
  Tab:=False, _
  Semicolon:=False, _
  Comma:=False, _
  Space:=False, _
  other:=True, _
  OtherChar:="|"
  
  other = ActiveWorkbook.Name
  ActiveSheet.Copy before:=Workbooks(myBook).Sheets(1)
  Workbooks(other).Close False
  file = Dir()
  Loop
  End Sub