获取 Excel sheet 名称并使用 VB 脚本重命名

Question

我有三个 excel sheet 使用 VB 脚本我想获取每个 sheet 并用硬编码值重命名它们并保存他们在同一本 excel 工作簿中。例如：如果 sheet 1 with Name XYS 被获取重命名为 ABC，类似地 Sheet 2 with name PQR 被获取重命名为 DEF

请帮助我编写 vb 脚本。

谢谢

Answer 1

这是一个示例，只需更改要由 vbscript 打开的 excel 文件的位置：

Option Explicit
Dim objExcel,objWorkbook,Sheet1,Sheet2
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.WorkBooks.Open("C:\TestFolder\Test.xlsx")
Sheet1 = objExcel.ActiveWorkbook.Sheets(1).Name 
Sheet2 = objExcel.ActiveWorkbook.Sheets(2).Name

If Instr(Ucase(Sheet1),Ucase("XYS")) > 0 Then 
    objExcel.ActiveWorkbook.Sheets(1).Name = "ABC"
End If

If Instr(Ucase(Sheet2),Ucase("PQR")) > 0 Then 
    objExcel.ActiveWorkbook.Sheets(2).Name = "DEF"
End If

objExcel.ActiveWorkBook.Save
objExcel.ActiveWorkBook.Close(0)
objExcel.Quit

获取 Excel sheet 名称并使用 VB 脚本重命名

Fetch Excel sheet names and rename using VB Script

vbscript

excel

file