vba 读取txt文件写入到excel中
lz是小小菜鸟，刚接触，要做个小工具，请问诸位大侠，如何把txt中的内容读取到excel里呢，txt中是以逗号分隔的数据，想去掉逗号直接插入到excel每一列中，并把第一行的名头背景色标为黄色
跪求。。。感激涕零。。。 --------------------编程问答-------------------- 你说的格式Excel认识的，直接打开就可以了。 --------------------编程问答-------------------- 额。。。。怎么打开呢，要写个程式 --------------------编程问答-------------------- 如下，data.csv是文件名，后面的参数说明是逗号分隔的。
Workbooks.OpenText filename:="data.csv", dataType:=xlDelimited, comma:=True
--------------------编程问答-------------------- 第一行的名头背景色标为黄色：
Rows("1:1").Interior.ColorIndex = 6
你可以用录制宏生成代码。 --------------------编程问答-------------------- 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分可用分！ --------------------编程问答-------------------- 可以参考一下同期正在讨论的
http://bbs.csdn.net/topics/390309082 --------------------编程问答-------------------- 要是问题没解决，你发一个文件样式，让我看看，我可以帮你写写，而且你要说明，你要的样式！ --------------------编程问答--------------------
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
补充：VB , VBA
