批量修改文件名 将改名后的文件数据导出保存在表格中

很多朋友不知道该如何将文件进行批量改名,改名后如何将文件数据导出保存在表格里面,今天小编就分享一个方法,感兴趣的朋友就一起来看看吧!方法简单学会之后会大大提高工作效率。

第一步,运行文件批量改名高手,在文件批量重命名板块,点击添加文件。

 第二步,在弹出的文件框中将需要改名的文件进行添加。

 第三步,这时在原文件名栏中,即可看到文件一行一个排序着。

 第四步,可以自定义改名,将名称编号、编号位置等等进行设置一下,在新文件名栏中可以事先预览一下新名称。

 第五步,确认没有问题后,点击“开始改名”在状态栏中显示重命名成功,任意点击一行“右键”选择导出当前表格。

 第六步,选择一下保存位置,并且添加一个文件名称并保存。

 第七步, 这样数据就被导出保存在表格里面,可以看到原文件名、新文件名、文件位置、状态等等都一一显示着。

 

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
以下是一个 VBA 的示例代码,可以批量获取指定文件夹下的所有文件名,并将文件内容写入 Excel 表格。你可以根据自己的需求进行修改和调整。 ```VBA Sub BatchGetFileNameAndContent() Dim path As String Dim fileName As String Dim content As String Dim row As Integer '指定文件夹路径 path = "C:\test\" '新建一个Excel工作簿 Workbooks.Add '设置工作表名称 ActiveSheet.Name = "Files" '设置表头 Cells(1, 1) = "文件名" Cells(1, 2) = "文件内容" '获取文件名和内容并写入表格 fileName = Dir(path & "*.*") row = 2 Do While fileName <> "" '获取文件名 Cells(row, 1) = fileName '获取文件内容 Open path & fileName For Input As #1 content = Input(LOF(1), 1) Close #1 Cells(row, 2) = content '进入下一行 row = row + 1 '获取下一个文件名 fileName = Dir() Loop End Sub ``` 在上述代码,我们首先指定了要获取文件名和内容的文件夹路径 `path`,然后新建了一个 Excel 工作簿,并在其新建了一个名为 "Files" 的工作表。接下来,我们循环遍历该文件夹下的所有文件,通过 `Dir` 函数获取每个文件文件名,然后通过 `Open` 和 `Input` 函数获取文件内容,并将文件名和内容分别写入 Excel 表格。最后,我们通过 `Close` 函数关闭文件,循环进入下一个文件。 注意,在使用这个代码之前,你需要先在 VBA 编辑器打开工具->引用,勾选Microsoft Scripting Runtime库,否则会出现“类型不匹配”等错误。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值