如何将with语句与if语句合并？

Question

我一直在编写一个代码，弹出一个消息框，您可以键入工作表的名称，然后它将在所有其他具有该名称的工作表的末尾创建一个新工作表。

在谷歌搜索的帮助下，我能够编写一个代码，弹出一个输入inputbox ，在其中输入我想要为新工作表命名的名称，并带有with语句，它将在所有其他工作表的末尾创建该代码。

我遇到的问题是if语句，它应该说，如果该名称不存在，请继续运行代码，如果该名称确实存在，请退出sub（不要继续处理下面的代码）。 我得到If Not xSht Is Nothing Then的工作方式，就是将它编写为If xSht Is Nothing Then ，但这会创建两个if语句，因此第一部分将完全无效。 我也尝试将其编写为else语句，但是由于下面的with语句，它跳过了msgbox并仍然创建了一个新表。

Dim ws As Worksheet
Dim xName As String
Dim xSht As Object

Set xSht = Sheets(xName)
xName = InputBox("Enter Sheet Name")

If xName = "" Then Exit Sub

If Not xSht Is Nothing Then
    MsgBox ("Name already exists")
    Exit Sub
End If

With ThisWorkbook   'Adds new sheet with the name it has been given
    Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))
    ws.Name = xName
End With

<More code>

Answer 1

颠倒顺序：

Set xSht = Sheets(xName)

和：

xName = InputBox("Enter Sheet Name")

（可能还有其他问题）

Answer 2

尝试这个。 您可以在检查工作表是否存在时关闭错误。 输入名称后定义变量，否则将出现另一个错误。

Sub x()

Dim ws As Worksheet
Dim xName As String
Dim xSht As worksheet

xName = InputBox("Enter Sheet Name")
If xName = "" Then Exit Sub

On Error Resume Next 'avoids error if sheet doesn't exist
Set xSht = Sheets(xName)
On Error GoTo 0      'turn off error avoidance

If Not xSht Is Nothing Then
    MsgBox "Name already exists"
    Exit Sub
End If

With ThisWorkbook
    Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count))
    ws.Name = xName
End With

End Sub