excel怎么筛选内容到另一个文本文件中？
发布时间：2022-04-15 12:16:50
Q：如下所示，一个名为“InputFile.csv”文件，每行有6个数字，每个数字使用空格分隔开。
现在，我要将以6 至69开头的行放置到另一个名为“OutputFile.csv”的文件中。中只是给出了少量的示例数据，我的数据有几千行，如何快速对这些数据进行查找并将满足条件的行复制到新文件中？
A：VBA代码如下：
Sub FilterTextFile()
Dim ReadLine As String
Dim buf
‘使用Open语句打开或创建文件
OpenThisWorkbook.Path & “\InputFile.csv” For Input As #1
OpenThisWorkbook.Path & “\OutputFile.csv” For Output As #2
‘循环直至到达指定文件末尾
Do Until EOF(1)
‘读取文件中的一行并将其赋值给ReadLine变量
Line Input #1, ReadLine
‘将ReadLine中的字符串拆分成数组
buf =Split(ReadLine, ” “)
‘判断数组的第1个值是否处于6 至69之间
‘如果是则将其写入文件号指定的文件
If buf( ) >= 6 And buf( ) < 7 Then
Print #2, ReadLine
End If
Loop
‘关闭文件
Close #2
Close #1
End Sub
代码假设“InputFile.csv”和“OutputFile.csv”文件都放置在与代码工作簿相同的文件夹中。
代码中：
1.第1个Open语句用来打开“InputFile.csv”文件，指定文件号#1。
2.第2个Open语句用来创建“OutputFile.csv”文件，指定文件号#2。由于文件夹中事先没有这个文件，因此Excel会在文件夹中创建这个文件。
3.EOF(1)用来检测是否到达了文件号#1的文件末尾。
4.Line Input语句从文件号#1的文件中逐行读取其内容并将其赋值给变量ReadLine。
5.Split函数将字符串使用指定的空格分隔符拆分成下标以为起始值的一维数组。
6.Print语句将ReadLine变量中的字符串写入文件号#2的文件。
7.Close语句关闭指定的文件。
代码的图片版如下：
运行代码后，将在工作簿所在的文件夹中生成一个如下所示的名为“OutputFile.csv”的文件。
0
投稿猜你喜欢
- 在制作wps文档的时候，怎么在文档中添加横线呢?新手不会，上网找怕麻烦，而且教程太乱没有统一的答案怎么办,哪里有更好的方法?下面小编就为你介
- 我们在做演讲的时候需要快速定位到某张幻灯片页面的时候可以准确快速的定位，不用再上下键或滚轮来回寻找了。有需要的童鞋快来学习下。快速定位到某一
- 预览和打印若要按显示“打印”对话框。Ctrl+P 或 Ctrl+Shift+F12在打印预览中使用下列按键（若要定位到打印预览，请按 Alt
不要说大家都知道，有使用电脑就会留下电脑记录。你浏览了什么网页，做了什么事情都会在电脑上留下来，就跟人一样走过这条路，就留下来一个脚印。最近- 在幻灯片的占位符、文本框和图形中有四种填充方式，下面给大家简单的介绍一下 一、纯色填充纯色填充是指填充颜色，如：红色、蓝色、绿色等
- windows7 自动关机如何设置呢？如果电脑设置自动关机，就可以在下班时不用去关电脑，时间到了就会自动关机等，那么这个要怎么设置呢？下面小
- 在制作完毕一份 PPT时，我们可能会面临着被他人篡改内容的风险，那么在手机版WPS中，如何防止PPT被篡改呢，下面就跟大家分享操作步骤。第一
- 问题：如何实现多条件的基准表匹配？ 解答：利用Vlookup+IF组合函数搞定！ 具体操作如下： 在输入函数前，先要对上图所谓的“基准表”做
- 用word2003编辑文档时，第一页可能是写目录，第二页开始才是内容，要求第一页不需要页码，第二页显示页码是第一页。word2003文档第二
- 有时需要通过开根，开放计算一些体积，流量，空气阻力等，用计算器不是太方便可以通过EXCEL的函数公式开方，开根号，很方便，很实用。今天，小编
- 想必大家都清楚如果操作者没有足够的权利，那么在Win7旗舰版中，便有很多操作都是无法执行的。这就好比一把钥匙，要打开这个门才可以看到里面更多
- 使用电脑过程中，我们经常会需要重装系统，毕竟使用久了会发生各种各样的问题，但是一些用户发现电脑在重装Win10之后没有声音的问题出现，那么我
- 作表格前需要你在心里先构思下表格的大致布局和样式，以便实际操作的顺利完成。下面小编就为大家详细介绍Excel如何快捷制作表格方法，一起来学习
- 当输入好文本，想要做些设计的时候，可以使用SmartArt。具体操作看下图： PPT插入SmartArt PPT插入S
- 如何在Pages文稿中添加超链接？在Pages文稿中添加超链接怎么做？下面分享给大家！在Pages文稿中添加超链接步骤一、首先选中需要加超链
- 屏幕保护功能是Win10系统自带的个性化功能，可以在离开电脑一段时间后自动开启，避免被人看到电脑页面正常使用的内容。对于喜欢观看影视剧的用户
- 由于最近工作比较繁忙，所以一直无法写博客，双休日来了，抽得半日闲，极速做了一个小作品与大家分享一下。 这次做的作品纯粹是“内容之上”，同时也
- 对于字符串的截取，在Excel日常使用中非常的频繁，也非常的有用，因此，office在新版本更新中也增加了更为便捷的方式。但是可能更多的人，
- usb驱动更新的方式有很多种，这里给大家列举几种常见的驱动更新方式，如果您在更新驱动时有碰到各种无法下载或者无法安装的问题，可以尝试本篇提供
- 交叉引用是对Microsoft Word文档中其他位置的内容的引用。以下是关于交叉引用的用法，希望小编整理的对你有用!交叉引用是对Micro
