VBA删除工作表已用西班牙语重命名的空白工作表？

Question

我正在使用已重命名工作表的文件。而不是Sheet1（通用名称），它是Hoja1（通用名称）。

想知道这是否会阻止我的代码工作。

我的代码非常简单。我不知道我可能遇到的其他错误。

Sub  Macro1()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets

Application.DisplaysAlerts = False
If LenB(ActiveSheet.Range("A5")) = "" Then ActiveSheet.Delete
Application.DisplayAlerts = True

Next ws

End Sub

谢谢。

Answer 1

如果它肯定会有＆＃34; Hoja＆＃34;在工作表名称中，这应该有用。

Sub Macro1()

Dim WS As Worksheet

Application.DisplayAlerts = False

For Each WS In ActiveWorkbook.Sheets

    If InStr(WS.Name, "Hoja") <> 0 Then WS.Delete

Next

Application.DisplayAlerts = True

End Sub

Answer 2

得到某人的帮助。

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets

Application.DisplayAlerts = False 
If LenB(ws.Range"A5")) = 0 Then ws.Delete
Application.DisplayAlerts = True

Next ws

西班牙语不是问题。

Answer 3

如果工作表在VBA浏览器中显示为@mappedSuperclass，则要获取名称Hoja1，您可以使用Hoja1(1)属性：

.CodeName