Как читать текстовый файл с разделителями и экспортировать данные в отдельные столбцы таблицы Excel в VBA

Question

Файл, который я импортирую, состоит из вкладок и запятых, которые нужно будет исключить из нового листа Excel.Я не могу точно понять это, и это код, который я смотрел, чтобы использовать до сих пор .... Любая помощь будет оценена

Sub DelimitedTextFileToArray()
Dim Delimiter As String
Dim TextFile As Integer
Dim FilePath As String
Dim FileContent As String
Dim LineArray() As String
Dim DataArray() As String
Dim TempArray() As String
Dim rw As Long, col As Long

Delimiter = ","'I just used the comma as a test for the delimiter
FilePath = "C:\FILENAME.txt"
rw = 0

TextFile = FreeFile
Open FilePath For Input As TextFile

FileContent = Input(LOF(TextFile), TextFile)


Close TextFile


LineArray() = Split(FileContent, vbCrLf)

For x = LBound(LineArray) To UBound(LineArray)
  If Len(Trim(LineArray(x))) <> 0 Then
      TempArray = Split(LineArray(x), Delimiter)

    'Determine how many columns are needed
      col = UBound(TempArray)

    'Re-Adjust Array boundaries//Ive had problems debugging @ this step and beyond
      ReDim Preserve DataArray(col, rw)

    'Load line of data into Array variable
      For y = LBound(TempArray) To UBound(TempArray)
        DataArray(y, rw) = TempArray(y)
      Next y
  End If

    rw = rw + 1

Next x

End Sub

Answer 1

Замените эту строку

TempArray = Split(LineArray(x), Delimiter)

на

TempArray = Split(Replace(LineArray(x), vbTab, Delimiter), Delimiter)

Это сделает каждую вкладку запятой до разделения