vba 读取txt文件写入到excel中

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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 #1End Sub

Answer 5

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

Answer 6

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