vba 读取txt文件写入到excel中

[elsie2137]

lz是小小菜鸟，刚接触，要做个小工具，请问诸位大侠，如何把txt中的内容读取到excel里呢，
txt中是以逗号分隔的数据，想去掉逗号直接插入到excel每一列中，并把第一行的名头背景色标为黄色
跪求。。。感激涕零。。。

[Jia_H]

你说的格式Excel认识的，直接打开就可以了。

[elsie2137]

额。。。。怎么打开呢，要写个程式

[Jia_H]

如下，data.csv是文件名，后面的参数说明是逗号分隔的。 Workbooks.OpenText filename:="data.csv", dataType:=xlDelimited, comma:=True

[dsd999]

第一行的名头背景色标为黄色： Rows("1:1").Interior.ColorIndex = 6 你可以用录制宏生成代码。

[elsie2137]

to Henry Jia: 你说的那种，是直接重新打开一个ｅｘｃｅｌ，而且，我的数据是日文的，会显示乱码， 我看书瞎写一段代码，Range("A3", "V3") = txt这行不理想，我希望的是数据输出到当前ｂｕｔｔｏｎ下面　第三行开始直到最后 Private Sub Open_File_Click() Dim txt As String Open "D:\P-2_1.txt" For Input As #1 Do While Not EOF(1) Line Input #1, txt Range("A3", "V3") = txt 　　Loop Close #1 End Sub

[哈了]

每天回帖即可获得10分可用分！

[bcrun]

可以参考一下同期正在讨论的 http://bbs.csdn.net/topics/390309082

[dong_y888]

Sub file_txt()
    Dim str_txt() As String, line As Integer, i As Integer, txt As String
    line = 1
    Open "D:\a.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, txt
        str_txt = Split(txt, ",")
         For i = 0 To UBound(str_txt)
            Cells(line, i + 1).Value = str_txt(i)
         Next i
        line = line + 1
     Loop
    Close #1
    ActiveSheet.Range(Cells(1, 1), Cells(1, ActiveSheet.UsedRange.Columns.Count)).Interior.ColorIndex = 6
End Sub

[tiangongzhicheng]

要是问题没解决，你发一个文件样式，让我看看，我可以帮你写写，而且你要说明，你要的样式！