VBA：將單元格從一個工作簿復制到另一個工作簿將產生空白結果

Question

我有四個子例程，每個子例程都使用一個指定的外部文件，並將該文件中的工作表復制到運行該子程序的工作簿中的工作表中。 對於3/4潛艇，效果很好。 但是，第四小節給了我目的地空白的結果。 所有四個子代碼都相同，只是文件名已更改。 我看到可能導致此錯誤的最大區別是所討論的源工作簿受到保護。 我正在使用我的潛水艇解鎖它，然后復制文件。 將手表添加到來源中，整個范圍顯示為“ Variant / Empty”

' declare variables
    Dim financialReportBook As Workbook
    Set financialReportBook = Workbooks.Open(FileNavPrompt.financialFilePath)
    Dim financialSheet As Worksheet
    Set financialSheet = FileNavPrompt.mainBook.Sheets("Financial Status")
    Dim copyRange As String
    copyRange = "A1:AA5000"

' unprotect workbook
    financialReportBook.Unprotect ("{password removed}")          ' unprotect workbook for copying

' pull data from report
    financialSheet.Cells.Clear      ' start with a clean slate
    financialSheet.Range(copyRange).Value = financialReportBook.Sheets(1).Range(copyRange).Value
    financialSheet.Range(copyRange).NumberFormat = financialReportBook.Sheets(1).Range(copyRange).NumberFormat                                

' close report
    financialReportBook.Close False

' unrelated code continues below...

Answer 1

最終的問題是，源工作簿的索引為1的表的屬性為xlVeryHidden。 當我將第一個可見工作表稱為索引1而不是實際的索引2時，這引起了混亂。