Question

我正在将.txt文件直接转换为excel VBA中的数组。默认分隔符是＆＃34;，＆＃34; （逗号）我需要将其更改为＆＃34; vblf＆＃34;。我无法通过今天的代码弄清楚如何做到这一点。

请帮忙

    Const strFileName As String = [file]
    Dim CONFIGTXT(1 To 13000) As String
    Dim intFileNum As Integer
    Dim intCount As Integer
    Dim strRecordData As String

    intFileNum = FreeFile
    intCount = 1
    Open strFileName For Input As #intFileNum
    Do Until EOF(intFileNum) Or intCount > 13000
        Input #intFileNum, strRecordData
        CONFIGTXT(intCount) = strRecordData
        intCount = intCount + 1

    Loop
    Close #intFileNum

    Range("Q2:Q" & UBound(CONFIGTXT) + 1) = WorksheetFunction.Transpose(CONFIGTXT)

Answer 1

更改

points

到

Input #intFileNum, strRecordData

Line Input #intFileNum, strRecordData旨在读取逗号分隔的数据，一次读取一个变量。例如，如果您有

的数据

12345,789

并使用语句

Input

然后Input #intFileNum var1, var2将获得值var1，12345将获得值var2。

789旨在一次读取一行，由新行字符（通常为CR / LF）分隔。

注意：如果您的数据包含换行符分隔的信息，则不会将这些部分分隔为数组中的单独条目。因此，如果您的数据包含

XXX / XXX / XXX

其中Line Input实际上是换行符，整个记录将被放入最终输出中的一个单元格中。

使用自定义分隔符

1 个答案: