批量将Txt文件内容拆分成Excel文件

第1步：新建一张Excel 表，并输入需要拆分Txt文件所在文件夹位置，以及拆分后数据保存Excel的路径信息，并保存名为"拆分.xlsm"格式

第2步：创建文件夹，以及保存Txt文件内容的Excel表格"test.xlsx"

第3步：编写测试用例txt文件内容，将其拆分为6行4列数据

通州区通州北关 2021年3月15日 3月
通州区通州北关 2021年3月15日 3月
通州区梨园 2021年3月16日 3月
通州区通州北关 2021年3月16日 3月
通州区次渠南 2021年3月16日 3月
通州区通州北关 2021年3月16日 3月

第4步：编写宏，用于拆分数据

Sub splitTxt_Click()'获取存放结果的文件路径Dim resultPath As StringresultPath = ThisWorkbook.Sheets(1).Range("c2")  '存放数据文件路径所在列'获取txt文件所在文件夹的集合arr = ThisWorkbook.Sheets(1).Range("B2:B" & ThisWorkbook.Sheets(1).UsedRange.Rows.Count)'遍历集合 获取文件夹For i = LBound(arr) To UBound(arr)'返回路径下的文件夹对象Dim file As Object, folder As ObjectSet Fso = CreateObject("scripting.FileSystemObject")Set folder = Fso.GetFolder(arr(i, 1))For Each file In folder.Files '遍历文件'判断文件是否为txt文件If FileSearch(file.Name) Then'转化txt为excelCall splitTxt(file.Path, resultPath)End IfNextNextEnd SubPrivate Function splitTxt(filePath As String, resultPath As String)'打开保存结果的文件Dim resultbook As WorkbookDim maxLine As Integer, row As IntegerSet resultbook = Workbooks.Open(resultPath)maxLine = resultbook.Sheets(1).UsedRange.Rows.CountDebug.Print maxLineDim ts As ADODB.StreamSet ts = New ADODB.Streamts.Type = adTypeTextts.Charset = "Unicode"ts.LineSeparator = adLFts.Open'文件装载ts.LoadFromFile (filePath)'开始写入的位置If maxLine <> 1 Thenrow = maxLine + 1Else: row = maxLineEnd If'读取txt文件Do While Not (ts.EOS)lineStr = ts.ReadText(adReadLine)'截取第一列resultbook.Sheets(1).Cells(row, 1) = Trim(Mid(lineStr, 1, InStr(lineStr, "   ")))lineStr = Trim(Mid(lineStr, InStr(lineStr, "   ")))'截取第四列resultbook.Sheets(1).Cells(row, 4) = Trim(Mid(lineStr, InStrRev(lineStr, "日") + 1))lineStr = Trim(Mid(lineStr, 1, InStr(lineStr, "日")))'截取第三列If InStr(lineStr, "年") <> 0 Thenresultbook.Sheets(1).Cells(row, 3) = Trim(Mid(lineStr, InStr(lineStr, "年") - 4, InStr(lineStr, "日")))lineStr = Trim(Mid(lineStr, 1, InStr(lineStr, "年") - 5))Elseresultbook.Sheets(1).Cells(row, 3) = ""End If'截取第二列resultbook.Sheets(1).Cells(row, 2) = lineStrrow = row + 1Loopresultbook.Saveresultbook.CloseEnd Function'判断文件是否为txt文件
Private Function FileSearch(fname As String) As BooleanIf fname Like "*.txt" ThenFileSearch = TrueElseFileSearch = FalseEnd If
End Function

第5步：点击"拆分.xlsm"里的开始按钮，数据就会进行拆分

批量将Txt文件内容拆分成Excel文件相关推荐

linux c编程获取excel文件内容,c读取excel文件内容
如何用C语言实现读取excel文件中的数据呢? 要做的是在Linux环境下使用C语言实现快速读取excel文件并保存成文本格式基本思路基础实现方法同上篇文章<直接通过ODBC读.写Excel表 ...
将xmind文件内容导出为Excel文件
import openpyxl from xmindparser import xmind_to_dict from openpyxl.styles import Alignmentdef xmind ...
用python将txt文件中的内容导入到excel文件中
背景日志文件中的内容不方便阅读统计,需要用excel表格的形式显示出来日志文件内容如下: info***LCAM_SC.DM_RP_DIS_DEVICE_TEMP*1*1*0*0*0*0*N*Y* ...
VBA把txt文件内容放入excel
VBA把txt文件内容放入excel,代码如下: Sub bb() Dim a, k%, i% Dim abc As String '---------------cycle to open the ...
应用MIME将ZPT内容输出为excel文件(word文件)
应用MIME将ZPT内容输出为excel文件(word文件) MIME (Multipurpose Internet Mail Extensions),意为多目的Internet邮件扩展,它设计的最初 ...
python批量合并单元格_Python批量合并有合并单元格的Excel文件详解
合并单元格合并单元格相信大家都会,比如下面这段简单的代码就可以实现: app='Word' word=win32.gencache.EnsureDispatch('%s.Application' % ...
python 数据处理----读取txt 一列数据写入excel 文件
将txt数据从某一行开始写入excel文件中(例子为从Appthroughput写至excel_result1.xlsx中) import sys import random import time ...
python自动下载邮件附件_Python批量下载电子邮件附件并汇总合并Excel文件
原标题:Python批量下载电子邮件附件并汇总合并Excel文件前几天在公众号搞了一波送书活动,详见福利:免费赠送240本Python教材,该文推送之后,立刻收到了大量的样书申请表,那么接下来的工作 ...
python批量合并单元格的快捷键_关于Python批量合并有合并单元格的Excel文件详解...
经常使用Excel的用户都知道,合并单元格的存在,这篇文章主要给大家介绍了关于利用Python如何批量合并有合并单元格的Excel文件的相关资料,文中通过示例代码介绍的非常详细,对大家的学习或者工作具 ...

批量将Txt文件内容拆分成Excel文件

批量将Txt文件内容拆分成Excel文件

第1步：新建一张Excel 表，并输入需要拆分Txt文件所在文件夹位置，以及拆分后数据保存Excel的路径信息，并保存名为"拆分.xlsm"格式

第2步：创建文件夹，以及保存Txt文件内容的Excel表格"test.xlsx"

第3步：编写测试用例txt文件内容，将其拆分为6行4列数据

第4步：编写宏，用于拆分数据

第5步：点击"拆分.xlsm"里的开始按钮，数据就会进行拆分

批量将Txt文件内容拆分成Excel文件相关推荐

最新文章

热门文章

批量将Txt文件内容拆分成Excel文件

批量将Txt文件内容拆分成Excel文件

第1步： 新建一张Excel 表，并输入需要拆分Txt文件所在文件夹位置，以及拆分后数据保存Excel的路径信息，并保存名为"拆分.xlsm"格式

第2步：创建文件夹，以及保存Txt文件内容的Excel表格"test.xlsx"

第3步： 编写测试用例txt文件内容，将其拆分为6行4列数据

第4步：编写宏，用于拆分数据

第5步：点击"拆分.xlsm"里的开始按钮，数据就会进行拆分

批量将Txt文件内容拆分成Excel文件相关推荐

最新文章

热门文章

第1步：新建一张Excel 表，并输入需要拆分Txt文件所在文件夹位置，以及拆分后数据保存Excel的路径信息，并保存名为"拆分.xlsm"格式

第3步：编写测试用例txt文件内容，将其拆分为6行4列数据