• 所有问题

    • 求高手:用VBA批量提取多个txt文件的每行指定数据

    列:有若干txt文件，每个TXT文件有大约7000行，每行使用回车换行符，文本类型为字符型，每行中间含空格数字，需提取每行第22-26个字符，文本数据类型如下图，谢谢！

    举报该问题
    推荐答案   2018-09-20
    用Replace Pioneer按照第一列的内容对第二列累加，详细步骤： 1. ctrl-o打开文本文件a.txt 2. ctrl-h打开replace窗口 * replace unit选择Line * 点击Advanced选项页 在insert begin text输入get_values_all() 在run following at the beginning of replace输入clear_values_all() 在run following for each matched unit输入set_value($match[1],get_value($match[1])+$match[2]); 3. 点击Replace即可。 4. ctrl-s保存为b.txt
    温馨提示：答案为网友推荐，仅供参考
    其他回答
    第1个回答  2018-09-20
    要什么VBA，先把txt文件合并成一个（一句命令就够了），然后excel打开，以空格分列，最后一列不就是你要的了？
    算法永远是最重要的。。。追问

    请问下怎样用vba处理，我这里写了个VBA就是只能每个文档的第一行数据

    追答

    你问问最佳答案的那个人吧。你这个问题我反正不会用VBA这么笨的方法去处理。

    第2个回答  2018-09-20
    我可以写的。
    第3个回答  2018-09-20
    报价 80 写个追问

    那么贵

    追答

    我专业做表的， 这是 很正常的报价了，觉得贵了 不做没关系

    您的时间要是不值钱的话，当然可以慢慢找

    第4个回答  2018-09-20
    会，就是没动力
    12
    相似回答
    如何用Excel VBA读取某一文件夹下批量TXT文本内的某行某列?答：具体步骤如下：打开office excel；Alt+F11打开VBA编辑器；复制如下代码到模块中；F5运行该模块；按照提示进行如下步骤即可。Sub xxx()Dim myFile As StringDim myText As StringDim myString As StringDim i As SingleWith Application.FileDialog(msoFileDialogFolderPicker).Show.AllowMultiSelect = Falsemy...
    VB将TXT中特定的行提取到EXCEL中答：在Excel中使用VBA编写宏程序，可以将TXT文件中的特定行提取到EXCEL中。这里提供一个具体的例子，通过宏程序实现这一功能。首先定义了一些变量，如需要导入的数据文件名、文件号、起始字符串和结束字符串等。在示例中，文件名为"D:\桌面\test.txt"，起始字符串为"101C"，结束字符串为"805"。选择工作表...
    ...如何提取多个txt文本中含指定字符串/关键词的行,并写入一个新的Exc...答：导出TXT，自行用EXCEL打开另存。导出的TXT与源文件不要放在同一目录。echo off(for /f "delims=" %%a in ('dir /a-d/s/b *.txt') do for /f "delims=" %%b in ('type "%%a"^|find /i "error"') do echo;%%~na %%b)>"D:\out.TXT"...
    如何用vba读取多个txt文件名和txt文件内容写入excel中?答：在多个txt文件的文件夹中新建一个EXCEL，在其VBA中输入ReadTextFiles()，然后运行：Sub ReadTextFiles()Dim n As Long, a(), ff As Integer, txt As String, myDir As String, x Dim myF As String, i As Long myDir = ThisWorkbook.Path & Application.PathSeparator myF = Dir(myDir &...
    ...有十几个空行,要求每隔3个空行导出一个txt 文件答：En, Mark + 1)End SubSub SaveTxt(ByVal S As Integer, ByVal E As Integer, ByVal M As Integer) Dim Path As String Dim i As Integer Dim Str As String Path = ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, _ Application.Find(".", ThisWorkbook.Name...
    如何使用VBA批量导入txt文件到一共工作簿中,且每个txt文件的数据都在...答：Sub Import_Txt()On Error Resume NextDim myPath, myTxt As StringWith Application.FileDialog(msoFileDialogFolderPicker).Show.AllowMultiSelect = FalsemyPath = .SelectedItems(1)End WithmyTxt = Dir(myPath & "\" & "*.txt")Do While Len(myTxt) <> 0Worksheets.AddActiveSheet.Name = ...
    如何用EXCEL搜索一个文件夹中N个TXT文档中的指定行数据?答：ThisWorkbook.Sheets("sheet1").Cells(lngRow, 2).Value = strContent 'B列为txt文件指定行内容 lngRow = lngRow + 1 '结果行增1 strFile = Dir Loop MsgBox "共提取：" & lngRow - 1 & "个txt文件指定行内容！"End Sub 结果会在当前excel的sheet1中列出所有FFC文件名和指定行内容。
    excel 批量导入txt文件答：一、用浏览文件夹控件选择指定目录 二、遍历指定目录下的所有文件，每遍历一个TXT文件——1、提取不带后缀的文件名 2、利用循环语句找到首行从B列开始的第一个空单元格，退出循环 3、把不带后缀的文件名写入找到的首行第一个空单元格内 4、打开当前的TXT文件并利用循环语句逐行读入，然后执行：1）...
    VBA多个txt批量导入到excel答：Sub 导入指定行() Dim myfile Dim f As String, mypath As String f = ThisWorkbook.Path & "" & "*.txt" myfile = Dir(f) s2 = 1 Do While myfile <> "" mypath = ThisWorkbook.Path & "" & myfile ' On Error Resume Next Open mypath For Input...
    大家正在搜
    护花高手在都市全文免费阅读全能高手免费阅读都市巅峰高手秦墨都市至尊高手秦墨极品全能高手txt乡村小说网txt
    相关问题
    【50分求EXCEL高手】批量转置粘贴的问题！！宏，vba，...
    请高手帮忙做个提取多张表格数据，进行透视的。VBA程序
    Excel中把指定内容筛选出,并复制到指定的工作簿中，并保存...
    Excel中把指定内容筛选出,并复制到指定的工作簿中，并保存...
    VBA中 如何编写程式 批量复制文件夹？从 F盘复制到D盘、...
    Execl高手用VBA解决数据两个统计区域
    VBA搜索当前目录下所有excel文件中的以“19801”开...
    求VBA高手：用VBA实现 在excel某一固定列中 筛选出...