[已解决]关于改名运行

wwk527

Sub rename()

For i = 1 To Sheets.Count

Sheets(i).Name = Sheets(i).Cells(4,1).Value

Next

End Sub

以上代码实现工作表以第4行第1列Cells(4, 1)命名

我目标是：运行时选择文件夹  批量选择文件 改名 完成关闭
请高手 指点

最佳答案

月排行榜 / 总排行榜

suye1010

2014-12-15 16:44

1. Dim EAPP,TEMPwb,i,Shell,ObjectPath,FolderPath,FSO,FSOFolder,FSOFile
   
2. Set EAPP=CreateObject("Excel.Application")
   
3. Set Shell = CreateObject("Shell.Application")
   
4. Set ObjectPath = Shell.BrowseForFolder(0, "请选择工作表的所在的文件夹", 0, 0)
   
5. If ObjectPath Is Nothing Then
   
6. Wscript.Quit
   
7. End If
   
8. FolderPath=ObjectPath.Self.Path
   
9. Set FSO = CreateObject("Scripting.FileSystemObject")
   
10. Set FSOFolder = FSO.GetFolder(FolderPath)
    
11. For Each FSOFile In FSOFolder.Files
    
12. Set TEMPwb=EAPP.Workbooks.Open(FSOFile)
    
13. For i=1 to TEMPwb.Worksheets.Count
    
14.         TEMPwb.Sheets(i).Name=TEMPwb.Sheets(i).Cells(4,1).Value
    
15.         TEMPWB.Close True
    
16. Next
    
17. Next
    
18. Msgbox "已完成"&FolderPath&"文件夹下工作表改名"
    
19. EAPP.Quit

复制代码

复制粘贴到记事本，另存为.vbs文件，双击运行即可

跳转到最佳答案楼层

qh8600

这只是工作表改名啊

wwk527

对  不过要改的 文件有点多   所以需要   
运行时 手动先选文件夹  批量选文件 然后处理 然后保存 然后关闭 这样一个过程

Excel学徒123

你是要改工作簿的名字还是说每个工作簿里面的工作表的名字？你这个只能更改活动工作簿里面的每一个工作表的名字。

wwk527

工作簿 不改名 只改 工作表   

suye1010

1. Dim EAPP,TEMPwb,i,Shell,ObjectPath,FolderPath,FSO,FSOFolder,FSOFile
   
2. Set EAPP=CreateObject("Excel.Application")
   
3. Set Shell = CreateObject("Shell.Application")
   
4. Set ObjectPath = Shell.BrowseForFolder(0, "请选择工作表的所在的文件夹", 0, 0)
   
5. If ObjectPath Is Nothing Then
   
6. Wscript.Quit
   
7. End If
   
8. FolderPath=ObjectPath.Self.Path
   
9. Set FSO = CreateObject("Scripting.FileSystemObject")
   
10. Set FSOFolder = FSO.GetFolder(FolderPath)
    
11. For Each FSOFile In FSOFolder.Files
    
12. Set TEMPwb=EAPP.Workbooks.Open(FSOFile)
    
13. For i=1 to TEMPwb.Worksheets.Count
    
14.         TEMPwb.Sheets(i).Name=TEMPwb.Sheets(i).Cells(4,1).Value
    
15.         TEMPWB.Close True
    
16. Next
    
17. Next
    
18. Msgbox "已完成"&FolderPath&"文件夹下工作表改名"
    
19. EAPP.Quit

复制代码

复制粘贴到记事本，另存为.vbs文件，双击运行即可

wwk527

楼上的不行啊