Bulk Change Many Excel Workbook 2366

У вашего броузера проблема в совместимости с HTML5

Copy and paste this VBA code:
Sub ChangeSheetNameAllWorkbooks()
Dim WB As Workbook
For Each cell In Selection
Set WB = Workbooks.Open(cell.Value)
WB.Worksheets(1).Name = Left(WB.Name, Len(WB.Name) - 5)
WB.Close SaveChanges:=True
Next
End Sub

Today’s question from Lakshmi. She wants to bulk change all workbooks in a folder so that the Sheet name is the name of the workbook. In this special case, there is only one worksheet per workbook. I talked to Lakshmi and asked if the workbook name is C:\Customers\Apple.xlsm then the sheet name would be Apple.

This workbook shows off three skills
Table of Contents
(0:00) Welcome and Question
(0:33) Use Power Query to bring a list of files into Excel
(1:36) Launch Excel VBA Macro editor for first time. Display Project Explorer and Insert a module
(2:01) Copying and running a macro
(2:28) Wrap up