excel - 尝试选择工作表时，工作表类的选择方法失败

Question

我构建了打开 Excel 工作簿的 VBA，根据名称选择特定的工作表，将工作表复制到新的工作簿中，代码如下。

Dim myBook As Workbook
    Dim sheet As Worksheet
    Dim targetSheet1, targetSheet2, targetName1, targetName2, targetDir As String
    
    targetDir = "C:\Users\kamsiong.ong\Desktop\temp"
    
    targetSheet1 = "Uob(Airpay)Wallet Paid"
    targetName1 = targetDir + "\" + targetSheet1 + ".csv"
    
    targetSheet2 = "Uob(Airpay)Offline Payment"
    targetName2 = targetDir + "\" + targetSheet2 + ".csv"
    
    
    Set myBook = Workbooks.Open("C:\Users\kamsiong.ong\Desktop\temp\Daily Financial Report Tool -12092021")
    
    For Each sheet In myBook.Worksheets
    
        If sheet.Name = targetSheet1 Then
            
            myBook.Sheets(targetSheet1).Select # Error
            myBook.Sheets(targetSheet1).Copy
            ChDir targetDir
            ActiveWorkbook.SaveAs Filename:=targetName1, FileFormat:=xlCSVUTF8, CreateBackup:=False
            
        ElseIf sheet.Name = targetSheet2 Then
        
            myBook.Sheets(targetSheet2).Select
            myBook.Sheets(targetSheet2).Copy
            ChDir targetDir
            ActiveWorkbook.SaveAs Filename:=targetName2, FileFormat:=xlCSVUTF8, CreateBackup:=False
                
        End If
        
    Next sheet
    
    ActiveWindow.Close
    Set myBook = Nothing

但是，我的程序遇到了一个错误，上面写着 Select Method of WorkSheet class failed在 For-Loop 内当我按名称选择工作表时 myBook.Sheets(targetSheet1).Select .

请告知可能是错误的原因。

Answer 1

工作表是 隐藏 - 这就是为什么它不能被选中。请参阅属性屏幕截图的最后一个条目。
正如其他人已经说过的:select不需要复制工作表。
您可以简单地使用 myBook.Sheets(targetSheet1).Copy没有选择。
但是无法复制隐藏的工作表 - 因此，除非您使其可见，否则复制行中将出现错误。