Excel 分配工作表名称时发生编译错误

我正在尝试为最后一个工作表之后的工作表指定工作表名称。但是，我一直得到一个编译错误：语法错误这是编译器说它有问题的代码。精确的行是添加工作表的行

logic = "S_ANY"
allowClear = "NO"
arrayIndex = 0
flowName = flow
flowSplit = Split(flowName, "_")
flowNameSuffix = flowSplit(0)
newWorkSheetName = "Test_Master_" & flowNameSuffix
Set ws = Workbooks.Open(pathToFile).Worksheets("Test_Master")
Set ws2 = Workbooks.Open(pathToXl)
ws2.Sheets.Add(After:=ws2.Sheets.Count)).Name = newWorkSheetName

ws2被定义为工作簿，newWorkSheetName是字符串。在此代码之前只有变量声明。我不确定我在这里做错了什么。任何帮助都会很好

试试这个：

With ws2.Sheets.Add(After:=ws2.Sheets(ws2.Sheets.Count))
    .Name = "XYZ"
End With

复制此文件：

    Set ws = Workbooks.Open(pathToFile).Worksheets("Test_Master")
    Set ws2 = Workbooks.Open(pathToXl)
    With ws2.Sheets.Add(After:=ws2.Sheets(ws2.Sheets.Count))
        .Name = newWorkSheetName
    End With

如果仍然引发错误-取消对With块的注释，然后查看宏是否工作

“After:=”排除实际的图纸对象

---

BR

谢谢你的回答。我试过这个。现在编译器说。“编译错误：应为：语句结束”。你知道有什么问题吗？请多发一点代码。（猜可能是拼写错误或语法错误）嘿，我按照你的要求添加了更多代码。以上代码都是变量声明。谢谢！我刚才遇到的错误现在已经解决了。虽然我现在得到了一个不同的错误。我想，我们不能一次打开两本工作簿，然后操纵其中一本