天津网站建设专家,肇庆网站制作策划,东莞工业设计公司,找代码的网站学习Excel技术#xff0c;关注微信公众号#xff1a;excelperfectQ#xff1a;如下图1所示#xff0c;一个名为“InputFile.csv”文件#xff0c;每行有6个数字#xff0c;每个数字使用空格分隔开。图1现在#xff0c;我要将以60至69开头的行放置到另一个名为“OutputFi… 学习Excel技术关注微信公众号excelperfectQ如下图1所示一个名为“InputFile.csv”文件每行有6个数字每个数字使用空格分隔开。图1现在我要将以60至69开头的行放置到另一个名为“OutputFile.csv”的文件中。图1中只是给出了少量的示例数据我的数据有几千行如何快速对这些数据进行查找并将满足条件的行复制到新文件中AVBA代码如下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个值是否处于60至69之间 如果是则将其写入文件号指定的文件 If buf(0) 60 And buf(0) 70 Then Print #2, ReadLine End If Loop 关闭文件 Close #2 Close #1End 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函数将字符串使用指定的空格分隔符拆分成下标以0为起始值的一维数组。6.Print语句将ReadLine变量中的字符串写入文件号#2的文件。7.Close语句关闭指定的文件。代码的图片版如下运行代码后将在工作簿所在的文件夹中生成一个如下图2所示的名为“OutputFile.csv”的文件。图2
