Question

求用EXCEL中VBA编个读文件的范例。 例如，用VBA将某个txt文件中的一列数据分别读入到EXCEL中的特定的方格中

Answer 1

你好，vba不能读取txt的一列，只能先读取到行，然再到列，我给你举个例子吧
假设d盘文件夹123中，有一个456的txt文件，456.txt的第10行为：a-b-c ，现在将b读取到sheet1的a1单元格。下面是代码
sub ff()
dim a，k%,i%
Open "d:\123\456.txt" For Input As #1 '读取456txt文件，为1号文件
a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) '将txt文件内容赋值给数组a，a的元素为txt的一行
Close #1 '关闭txt文件
k=ubound(a) 'txt的行数，注意a的上限为0，下限为k，txt共有k+1行
worksheets("sheet1").[a1]=split(a(9),"-")(1) ‘a（9）表示第10行，此语句将第10行以“-”分割成数组，"b"为数组的第二个元素。
end sub

追问

这样的例子能写嘛，能的话，写出来下，我把分给你
如E:\22文件夹中的1.txt记事本中每行只有一个数值
1100
1250
1400
1650
1800
.
.
.依次导入到excel工作表中的a12,a15,a18,a21依次类推下去，哪位大神帮帮忙呢

追答

sub ff()
dim a，k%,i%
Open "e:\22\1.txt" For Input As #1
a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
k=ubound(a)
for i=0 to k
worksheets("sheet1").cells(3*i+12,1)=a(i)*1
next
end sub

你试试，应该没问题。

Answer 2

不用写程序的。以office2007为例，在的数据菜单下有个文本文件的按钮，点一下导入就可以了啊。