Question

怎么用VB把txt文本内容提取到excel中(求完整代码)

网上找了很多文章，试了试存不是出现问题就是不能满足我的需求，所以没办法才来问的。
I need HELP! Very need！
比如把目录D:\test\下的灰常多的.txt文件，把文件内容提取并保存到D:\test\Text1.xls。内容存在表格的sheet1的第1列、第11列、第21列、第31列、第10n+1列,并自动将内容分列：以分隔符号分号“;”来分列。txt的内容类似这样：
Time; Avg.; max;Stop; Avg.; max;Stop;
No.:; 1; 1; 1; 2; 2; 2;
1020; 0; 0; 0; 22; 68; 21;
1140; 0; 5; 2; 14; 37; 10;
1260; 2; 4; 0; 12; 39; 13;
1380; 13; 39; 6; 18; 41; 9;
1500; 8; 31; 7; 9; 24; 6;
1620; 16; 65; 6; 25; 65; 21;
1740; 3; 18; 3; 20; 46; 14;
1860; 13; 37; 4; 14; 40; 7;
1980; 5; 12; 4; 3; 19; 9;
2100; 7; 12; 2; 21; 66; 16;

Answer 1

应该很容易实现吧。具体要求再明确点，是只导入一个文件，还是把所有的文件都导入
需不需要用户来选择目录 或文件 ？

追问

把所有文件text1到textn都导入，保存到D:\test\Text1.xls。非专业编程人员，对我来说实现起来不简单，还需要大神指导

追答

1. 不同文本文件的内容依次按顺序添加到text.xls?
2 .用VB，还是直接用EXCEL的VBA实现

追问

1. 对

2. 用vb实现