请教如何逐行读取文本文件中每行以“tab”分割的数据，并写入制定的excel?

pyromania_z 2009-11-19 04:18:34

小弟我有这样的一个文本文档，其中数据大致如下：
2010.8 -30 TS4 ON -1 -31 -31.0565
2010.8 -30 TS4 ON -10 -40 -40.5189
2010.8 -30 TS4 ON -20 -50 -50.2598
2010.8 -30 ALL ON -1 -31 -30.9433
2010.8 -30 ALL ON -10 -40 -41.0027
2010.8 -30 ALL ON -20 -50 -49.9594

每一行中的每一列数据都是以tab分隔的。

我想实现的内容是：读取第一行文本数据，进行分割，写入excel表格。依次读取第二行，分割，写入....直至结束。
其实就是按照原有格式，把txt数据转成excel了，请各位大侠不吝赐教~

...全文

1756 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

ZenRoi 2010-06-21

打赏
举报



Sub InptDt()

    Dim Arr, Ary, k%, i%



    Open Application.GetOpenFilename("文本文件,*.txt", , "请选择：", , False) For Input As #1

    Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf): Reset

    

    ReDim Ary(0 To UBound(Arr), 0 To 6)

    For k = 0 To UBound(Arr)

        For i = 0 To 6

            Ary(k, i) = Split(Arr(k), vbTab)(i)

        Next

    Next

    [A1].Resize(k, 7) = Ary

End Sub

fzx4936 2010-06-12

打赏
举报

[Quote=引用 7 楼 cbirdno1no1 的回复:]
方法一：拷贝-粘贴
方法二：改文本文件的扩展名为xls
[/Quote]
方法二：改文本文件的扩展名为xls
这个是最简单的办法了因为excel可以直接读出以vbtab也就是chr(9)分隔并以chr(10)结束的字符串。
但是要注意如果其中某个字段里是很大的数值就会有很大的问题了所以在产生数据时要在数值的开头或结尾加个字符试其变成文本

hfCoder 2010-06-12

打赏
举报

不懂，帮顶

hongxuebiao 2010-06-12

打赏
举报

相同的效果用C++如何实现？请教高人指点

Tiger_Zhao 2009-11-25

打赏
举报

直接用 Excel 自己的导入功能

Sub Macro1()

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;C:\Temp\1.txt", _

        Destination:=Range("A1"))

        .Name = "1"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .TextFilePromptOnRefresh = False

        .TextFilePlatform = 936

        .TextFileStartRow = 1

        .TextFileParseType = xlDelimited

        .TextFileTextQualifier = xlTextQualifierDoubleQuote

        .TextFileConsecutiveDelimiter = False

        .TextFileTabDelimiter = True

        .TextFileSemicolonDelimiter = False

        .TextFileCommaDelimiter = False

        .TextFileSpaceDelimiter = False

        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)

        .TextFileTrailingMinusNumbers = True

        .Refresh BackgroundQuery:=False

    End With

End Sub

yanfengim 2009-11-25

打赏
举报

Open TmpPath For Binary As #filenum
fileContents = Space(LOF(filenum))
Get #filenum, , fileContents
Close filenum
fileInfo = Split(fileContents, vbCrLf)
For j = 0 To UBound(fileInfo)
str = Split(fileContents, vbTab)
For i = 0 To UBound(str)
Sheet1.cells(j+1,i+1) = str(i)
NEXT i
Next j
Close #filenum