怎么用VB把txt文本内容提取到excel中(求完整代码)
网上找了很多文章，试了试存不是出现问题就是不能满足我的需求，所以没办法才来问的。IneedHELP!Veryneed！比如把目录D:\test\下的灰常多的.txt文件，...
网上找了很多文章，试了试存不是出现问题就是不能满足我的需求，所以没办法才来问的。
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; 展开
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; 展开
1个回答
展开全部
应该很容易实现吧。具体要求再明确点，是只导入一个文件，还是把所有的文件都导入
需不需要用户来选择目录 或文件 ？
需不需要用户来选择目录 或文件 ？
更多追问追答
追问
把所有文件text1到textn都导入，保存到D:\test\Text1.xls。非专业编程人员，对我来说实现起来不简单，还需要大神指导
追答
1. 不同文本文件的内容依次按顺序添加到text.xls?
2 .用VB，还是直接用EXCEL的VBA实现
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
