第1步，将文件名，放到Excel里面

我们可以将文件路径放在浏览器中，然后复制，粘贴到浏览器中就可以获取所有文件了：

我们只需要保留A列数据，BC列数据可以删除

第2步：我们输入新文件名

例如B列是我们想改的新的名字，我们在C列就可以把名字和后缀连接起来，获取了新的命名：

=B2&".txt"

如果是其它的后缀，就引用其它的数据

第3步：公式代码

A2是旧名称，C2是新名称，我们输入公式：

=CONCAT("ren """,A2,""" """,C2,"""")

得到了如下的代码

第4步，新建文件文档

在一个文件夹下，新建一个TXT文档，然后复制粘贴Excel中生成的代码，然后另存为，编码格式，设置成ANSI格式的编码

第5步，运行代码

将这个新建的文本文档后缀，改成.bat格式，双击运行BAT代码，所以文件的名字就对应修改完成了

这个技巧，你学会了么？自己动手试试吧！

","gnid":"9cdfb8d23f4e4135c","img_data":[{"flag":2,"img":[{"desc":"","height":"583","title":"","url":"https://p0.ssl.img.360kuai.com/t015cd30309850734f2.jpg","width":"1100"},{"desc":"","height":819,"title":"","url":"https://p0.ssl.img.360kuai.com/t017febf59ec3bdc0d4.jpg","width":1091},{"desc":"","height":"810","title":"","url":"https://p0.ssl.img.360kuai.com/t01428dbb7a86479e9e.jpg","width":"1158"},{"desc":"","height":"401","title":"","url":"https://p0.ssl.img.360kuai.com/t01dd3be3801f9ea0e8.jpg","width":"893"},{"desc":"","height":"648","title":"","url":"https://p0.ssl.img.360kuai.com/t0116b1c870870ad1dd.jpg","width":"965"},{"desc":"","height":"1068","title":"","url":"https://p0.ssl.img.360kuai.com/t0132d3edc3abe07c2c.jpg","width":"1044"}]}],"original":0,"pat":"art_src_3,fts0,sts0","powerby":"pika","pub_time":1699617600000,"pure":"","rawurl":"http://zm.news.so.com/574e2a10c3911a9db068c12e1866feb9","redirect":0,"rptid":"bd3c82d947b0332b","rss_ext":[],"s":"t","src":"Excel自学成才","tag":[{"clk":"kdigital_1:excel","k":"excel","u":""}],"title":"万能的Excel，还可以批量修改文件名字，你会么？

俟齐话712有没有什么办法可以批量生成txt文件, 我的EXCEL里面 A列是TXT内容 B列是TXT文件名称,谢谢! -
羊褚桑19683109547 ______ Sub txt() i = 1 '指定从第一行开始,如果数据从第二行开始,则修改为2即可,依此类推 OutDir = ＂C:\...

俟齐话712excel怎么把每个单独的单元格内容批量导出txt -
羊褚桑19683109547 ______ 假如你要把A列的A1~A100批量导出txt,插入以下宏并执行:Sub bod() Dim nm$ For I = 1 To 100 n = n + 1 nm = ThisWorkbook.Path & ＂\＂ & Application.Trim(Cells(I, 1)) & ＂.txt＂ Open nm For Output As #I Print #I, Cells(I, 1) 'Cells(i, 1)为每个txt里面要放的内容,可替换,内容为空则删除 Close #I Next End Sub

俟齐话712批处理 excel 批量转换成 txt -
羊褚桑19683109547 ______ 1.建立工作表在Excel中建立学生名册和批处理工作表,在学生名册工作表A、B两列中分别输入学号、姓名.在批处理工作表A1单元格中输入“md”,A2单元输入“=学生名册!A1&&学生名册!B1”,拖动自动填充句柄到没有学生名单为止. ...

俟齐话712如何将Excel转换成txt,txt转为Excel -
羊褚桑19683109547 ______ Excel转TXT技巧: 众所周知,Excel另存为中已经包含了TXT格式,所以我们可以直接将Excel表格另存为TXT格式,但是最后的效果好像不是很令人满意(如下图);这种方式是将表格以空格符分隔来排出来的,若表格很长的话可能就不是很好...

俟齐话712如何将excel每行单独导出为单独txt文件?
羊褚桑19683109547 ______ 在此Excel文件中,同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码: Sub test() Application.ScreenUpdating = False Dim i As Integer ChDrive ＂D:＂ For i = 1 To Range(＂A9999＂).End(xlUp).Row - 1 Rows(i).Copy Workbooks....

俟齐话712怎样把excel数据导出成多个文本txt方法
羊褚桑19683109547 ______ 先把加载宏安全性设为中或低.然后到VBA编辑器里插入一个模块,把下面代码加进去,保存以后关闭EXCEL再重新打开.然后按ctrl+shift+P就完成导出了.导出到D盘根目录下. Sub Auto_Open() Application.OnKey ＂^{P}＂, ＂DaoChu＂ ...

俟齐话712excel数据怎么导出.txt -
羊褚桑19683109547 ______ excel中,“文件”“另存为”,格式选用“文本文件 (制表符分隔)”即可.

俟齐话712怎么将excel中多个工作表转换成一个个TXT?请将宏代码发出来 -
羊褚桑19683109547 ______ Sub 按钮1_单击() Application.DisplayAlerts = False Application.ScreenUpdating = False mypath = ThisWorkbook.Path & ＂\xls文件\＂ mypathtxt = ThisWorkbook.Path & ＂\txt文件\＂ myfilename = Dir(mypath & ＂*.xls＂) Do While (Len(...

俟齐话712excel每行批量文章怎么导出独立txt文件 -
羊褚桑19683109547 ______ 1、在D盘建一文件夹D:\TXT 2、打开数据文件 3、Alt+F11打开VBA编辑器,插入-模块 4、复制以下代码过去 Sub test() For i = 1 To Range(＂A65536＂).End(xlUp).Row Open ＂D:\\txt\＂ & Cells(i, 1).Value & ＂.txt＂ For Output As #1data = ＂＂ For j = 1 To 14 data = data & Cells(i, j).Value & vbTab Next Print #1, data Close #1 Next End Sub 5、运行宏test

俟齐话712把excel中数据导出成TXT
羊褚桑19683109547 ______ 先另存为CSV文件,然后修改文件后缀为TXT即可.

（编辑：自媒体）