如何批量修改文件夹下多个Excel表里面的sheet表名称

cmshun

$e = Get-Location
$b = dir -name *.xlsx
$xl = new-object -comobject excel.application
foreach ($c in $b) {
$ws = $xl.Workbooks.open("$e\$c")
$wx = $ws.Name -replace "[.a-z]{1,4}",""
$ws.Worksheets.Item(1).name = $wx
$ws.save()
$ws.Close()
}
$xl.Quit()
$WS = $NULL
$XL = $NULL
[GC]::Collect()

POWERSHELL脚本方法
把这个.PS1文件放在你要改名表的同目录下，右键“使用POWERSHELL"运行。

cmshun

不是吧，现在发贴还要审核？？


$e = Get-Location
$b = dir -name *.xlsx
$xl = new-object -comobject excel.application
foreach ($c in $b) {
$ws = $xl.Workbooks.open("$e\$c")
$wx = $ws.Name -replace "[.a-z]{1,4}",""
$ws.Worksheets.Item(1).name = $wx
$ws.save()
$ws.Close()
}
$xl.Quit()
$WS = $NULL
$XL = $NULL
[GC]::Collect()


powershell方法
把这段码另存为rensheet.ps1文件，放在你要改名表的同目录下，右键"使用powershell运行"

cmshun

3190496160 发表于 2022-11-7 11:30
Sub 批量该名称()
Application.ScreenUpdating = False
Set dlgOpen = Application.FileDialog(msoFileDi ...

这是JS吗？？

3190496160

cmshun 发表于 2022-11-8 11:56
这是JS吗？？

微软office的vba

鑫尼达

cmshun 发表于 2022-11-8 11:43
不是吧，现在发贴还要审核？？

这个叫什么语言,方便给个语法规则等入门教程链接或者关键词啥的有没有
看起来和VBA没多大差别,

sd2457934

感谢各位大神相助  最后找到了这个宏代码  实践可用
Sub  重命名()
  t = Timer
    Application.ScreenUpdating = False
         p = ThisWorkbook.Path & "\"
         s = Dir(p & "*.xls*")
      Do While s <> ""
           If s <> ThisWorkbook.Name Then
             Set wk = Workbooks.Open(p & s)
             wk.sheets(1).name ="Sheet1"
             wk.Close True
           End If
          s = Dir
      Loop
  t1 = Timer - t
MsgBox ("所有工作薄处理完毕,用时" & t1 & "秒")
Application.ScreenUpdating = True
End Sub

cmshun

鑫尼达 发表于 2022-11-9 14:17
这个叫什么语言,方便给个语法规则等入门教程链接或者关键词啥的有没有
看起来和VBA没多大差别,

windows自带的powershell，也是面对对象的

橒♂蝣

需要VBA吧，函数估计解决不了