vbs添加删除sheet

你可以使用VBA宏来添加和删除Excel工作簿中的工作表（Sheet）。

以下是添加工作表的示例VBA代码：

vbnetCopy code

Sub AddSheet()

Dim NewSheet As Worksheet

Set NewSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))

NewSheet.Name = "New Sheet"

End Sub

这将在当前工作簿中添加一个名为“New Sheet”的新工作表。

以下是删除工作表的示例VBA代码：

vbnetCopy code

Sub DeleteSheet()

Dim SheetToDelete As Worksheet

Set SheetToDelete = ThisWorkbook.Sheets("Sheet2")

Application.DisplayAlerts = False '禁用删除工作表的警告

SheetToDelete.Delete

Application.DisplayAlerts = True '启用删除工作表的警告

End Sub

这将删除名为“Sheet2”的工作表。在删除工作表时，要记得在执行删除 *** 作前禁用删除工作表的警告，并在删除 *** 作完成后启用删除工作表的警告。这是为了防止意外删除工作表时出现的警告d窗。

用BAT好办。递归就好。

@echo off

call :scan "HKCR\.doc"

:scan

for /f "skip=1 delims=" %%i in ('reg query %~1^|findstr "^HK"') do (

for /f %%j in ('echo %%i^|findstr /i "shellnew"') do reg delete "%%j"

call :scan "%%i"

)

---