[已解决]求助！Excel自动按工作表内特定值自动批量重命名，请问该如何编写VBA？谢谢

ellick1988 · 发表于 2016-4-4 10:54

本帖最后由 ellick1988 于 2016-4-4 14:25 编辑

如题：求助！Excel自动按工作表内特定值自动批量重命名

具体就是如附件里面所有excel文件自动批量重命名为“表格k1"“表格k2"“表格k3"....请问该如何编写VBA？
求教了！谢谢！

新建文件夹.rar (31.79 KB, 下载次数: 8)

爱疯 · 发表于 2016-4-4 11:31

Sub test()
Dim fso As Object '文件系统对象
Dim fld As Object '文件夹对象
Dim fl As Object '文件对象
Dim i As Integer
Dim p As String
Dim f As String

p = ThisWorkbook.Path
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(p)

For Each fl In fld.Files
      If fl.Name <> ThisWorkbook.Name Then
         i = i + 1
         f = "表格" & i & "." & fso.GetExtensionName(p & fl.Name)
         If fl.Name <> f Then fl.Name = f
      End If
Next
End Sub

1.rar (8.64 KB, 下载次数: 6)

dsmch · 发表于 2016-4-4 11:49

Sub Macro1()
mypath = ThisWorkbook.Path & ""
wj = Dir(mypath & "*.xls*")
Application.ScreenUpdating = False
Do While wj <> ""
If wj <> ThisWorkbook.Name Then
With Workbooks.Open(mypath & wj)
.SaveAs mypath & "命名后\表格" & .Sheets(1).[b3] & ".xlsx"
.Close 0
End With
'Kill mypath & wj
End If
wj = Dir
Loop
Application.ScreenUpdating = True
End Sub

复制代码

ellick1988 · 发表于 2016-4-4 11:50

爱疯发表于 2016-4-4 11:31
Sub test()
Dim fso As Object '文件系统对象
Dim fld As Object '文件夹对象

谢谢
我刚把你的文件放进附件文件夹里使用，虽然是自动批量重命名了不过并不是按文件里面的值“k1”“k2”...改成加“表格K1”“表格k2”...名字，请问是我操作问题出问题了吗？

爱疯 · 发表于 2016-4-4 11:59

ellick1988 发表于 2016-4-4 11:50
谢谢
我刚把你的文件放进附件文件夹里使用，虽然是自动批量重命名了不过并不是按文件里面的值“k1”“ ...

把你测试失败的所有文件打包压缩，放上来看看

乐乐2006201506 · 发表于 2016-4-4 12:55

这道题比较简单，百度就可以了。

ellick1988 · 发表于 2016-4-4 14:24

爱疯发表于 2016-4-4 11:59
把你测试失败的所有文件打包压缩，放上来看看

谢谢三楼兄台的回复可以很好解决我的问题了

ellick1988 · 发表于 2016-4-4 14:25

dsmch 发表于 2016-4-4 11:49

谢谢你的答案！很好的解决了我的问题太感谢了！

ellick1988 · 发表于 2016-4-4 14:35

ellick1988 发表于 2016-4-4 11:50
谢谢
我刚把你的文件放进附件文件夹里使用，虽然是自动批量重命名了不过并不是按文件里面的值“k1”“ ...

如果创建出现文件重复名字的能否设定成默认不覆盖替换，如命名成“表格K3”存在了就变成"表格K3(2)"这样子的呢？

		自动登录	找回密码
密码			注册

[已解决]求助！Excel自动按工作表内特定值自动批量重命名，请问该如何编写VBA？ 谢谢

相关帖子

[已解决]求助！Excel自动按工作表内特定值自动批量重命名，请问该如何编写VBA？谢谢