錯誤1004主題不在工作表功能

Question

Private Sub Workbook_Open() 
Dim wksSubjectArea As Worksheet 
Dim wksFilter As Worksheet 
Dim strSubArea As String 

Set wksSubjectArea = Application.Workbooks(1).Worksheets(3) 
Set wksFilter = Application.Workbooks(1).Worksheets(4) 

Sheet4.cmbFilter.Clear 

wksSubjectArea.Select -Error Line 
wksSubjectArea.Range("F2").Select 

Do Until IsEmpty(ActiveCell) 
    strSubArea = ActiveCell 
    wksFilter.Select 
    Sheet4.cmbFilter.AddItem strSubArea 
    wksSubjectArea.Select 
    ActiveCell.Offset(1, 0).Select 
Loop 

Sheet4.cmbFilter.Text = "" 

這是在「ThisWorkBook」頁面中，我收到錯誤，無法解決它。 請幫助

Answer 1

您認爲您打開的工作簿是Workbooks集合中的第一個，這可能不正確。假設，你wksSubjectArea和wksFilter都處於剛剛打開工作簿中更改以下行：

Set wksSubjectArea = Application.Workbooks(1).Worksheets(3) 
Set wksFilter = Application.Workbooks(1).Worksheets(4) 

到這些的：

Set wksSubjectArea = ThisWorkbook.Worksheets(3) 
Set wksFilter = ThisWorkbook.Worksheets(4) 

此外，但不一定，你可以使用.Activate代替.Select在你的錯誤線。