创建新Excel工作簿并复制指定工作表时遇‘Invalid Qualifier’编译错误求助

我来帮你排查这个报错的问题，先拆解代码里的几个关键问题：

错误原因分析 #

• 错误的对象调用方式：你写的wbkCurrent.Name.Worksheets(...)是问题核心。wbkCurrent已经是Workbook对象，直接使用wbkCurrent.Worksheets即可；而.Name是返回工作簿名称的字符串属性，字符串不能作为Worksheets的限定符，这就是触发“Invalid Qualifier”错误的直接原因。
• 混淆字符串与Workbook对象：FileUse是你拼接出来的文件名（字符串类型），但你试图用它来访问Worksheets属性（FileUse.Worksheets(...)），字符串没有这个属性，必须把新建的工作簿赋值给一个Workbook变量来操作。
• 潜在的ActiveWorkbook风险：依赖ActiveWorkbook切换可能会因为操作顺序导致对象指向错误，用变量直接引用更可靠。

修正后的代码 #

Sub NewWb()
    Dim Aname As String
    Dim Bname As String
    Dim FileUse As String
    Dim wbkCurrent As Workbook
    Dim wbkNew As Workbook '新增变量存储新建的工作簿
    
    Set wbkCurrent = ActiveWorkbook
    Aname = "NewWorkbook_"
    Bname = Format(Now, "YYYY-MM-DD")
    FileUse = Aname & Bname
    Debug.Print FileUse
    
    '新建工作簿并赋值给变量，避免依赖ActiveWorkbook
    Set wbkNew = Workbooks.Add
    '如果需要指定保存路径，可在FileUse前加上路径，比如："C:\YourPath\" & FileUse
    wbkNew.SaveAs Filename:=FileUse
    
    '从当前工作簿复制指定工作表到新工作簿的最后一个工作表之前
    wbkCurrent.Worksheets(Array("Tab1", "Tab2", "Tab3")).Copy Before:=wbkNew.Worksheets(wbkNew.Worksheets.Count)
End Sub

代码改动说明 #

1. 新增wbkNew变量，直接引用新建的工作簿，彻底避免ActiveWorkbook的不确定性。
2. 移除错误的wbkCurrent.Name，直接用wbkCurrent.Worksheets访问当前工作簿的工作表。
3. 用wbkNew.Worksheets(...)代替之前的FileUse.Worksheets(...)，因为wbkNew是真正的Workbook对象，拥有Worksheets属性。
4. 去掉了多余的wbkCurrent.Activate，直接用变量调用对象不需要切换激活状态，代码更高效可靠。

内容的提问来源于stack exchange，提问作者Zfunk