免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

打開APP

未登錄

開通VIP，暢享免費(fèi)電子書等14項(xiàng)超值服

開通VIP

首頁

好書

留言交流

下載APP

聯(lián)系客服

Excel 怎樣批量重命名工作簿和工作表？

超越夢想之上 >《電腦知識(shí)》

2017.03.10

關(guān)注

Sub ReName()
Dim Mypath As String
Dim Myfile As String
Dim WBName As String
Dim WS As Worksheet
Application.DisplayAlerts = False
With Application.FileDialog(msoFileDialogFolderPicker)
      .Show
      If .SelectedItems.Count = 0 Then Exit Sub
      Mypath = .SelectedItems(1)
End With
Myfile = Dir(Mypath & "\*.xls*")
Do Until Myfile = ""
      With Workbooks.Open(Mypath & "\" & Myfile)
         WBName = Left(.Name, Len(.Name) - 4)
         For Each WS In .Sheets
            WS.Name = WBName & WS.Name
         Next
         .Close Savechanges:=True
      End With
      Myfile = Dir
Loop
Application.DisplayAlerts = True
MsgBox "OK"
End Sub

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊舉報(bào)。

打開APP，閱讀全文并永久保存查看更多類似文章