如何读取分隔的文本文件并将数据导出到VBA中Excel工作表的各个列中

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)

这将使每个制表符在拆分之前成为逗号