Excel VBA，錯誤438「對象不支持這個屬性或方法

我有這個代碼，我已經得到了一些幫助，但我遇到了一個問題，或者我認爲是一個問題最後一次查詢時，我被告知該對象不支持這個屬性或方法，我知道這可能是簡單的，但是我的大腦是陰鬱的，如果有人知道爲什麼會發生這種情況的答案，我想要一些幫助。Excel VBA，錯誤438「對象不支持這個屬性或方法

感謝。

Option Explicit 

Sub Update_Dakota() 

    Dim wsDAO As Worksheet    'Dakota OOR 
    Dim wsDAD As Worksheet    'Dakota Data 
    Dim wsDAR As Worksheet    'Dakota Archive 
    Dim wsPOR As Workbook    'New Workbook 
    Dim lastrow As Long, fstcell As Long 
    Dim strFile As String, NewFileType As String, filename As String 

    Set wsDAO = Sheets("Dakota OOR") 
    Set wsDAD = Sheets("Dakota Data") 
    Set wsDAR = Sheets("Dakota Archive") 


    With Application 
     .ScreenUpdating = False 
     .DisplayAlerts = False 
     .EnableEvents = False 
    End With 

    lastrow = wsDAD.Range("B" & Rows.Count).End(xlUp).Row + 1 

    With wsDAD 
     .Range("I2").Formula = "=COUNTIFS('Dakota OOR'!$B:$B,$A2,'Dakota OOR'!$D:$D,$C2, 'Dakota OOR'!$G:$G,$F2)" 
     .Range("J2").Formula = "=IF(I2,""Same"",""Different"")" 
     wsDAD.Range("I2:J2").Copy wsDAD.Range("I3:J" & lastrow) 
     wsDAD.Range("I:J").Calculate 
    End With 


    strFile = Application.GetOpenFilename() 
    NewFileType = "Excel Files 2007 (*.xls)" 
    Set wsPOR = Application.Workbooks.Open(strFile) 
    lastrow = wsPOR.Range("A" & Rows.Count).End(xlUp).Row + 1 

    wsPOR.Range("A2:G" & lastrow).Select 


End Sub

來源

2012-09-05 Matt Ridge

'LASTROW = wsPOR.Range（「A」＆行。 Count）.End（xlUp）.Row + 1'沒有與它關聯的工作表。 'wsPOR'被設置爲你的工作簿。您只能在工作表上找到範圍。另外，下一行'wsPOR.Range（「A2：G」＆lastrow）.Select'需要引用工作表，而不是工作簿。 –

的錯誤是在這裏

lastrow = wsPOR.Range("A" & Rows.Count).End(xlUp).Row + 1

wsPOR是一個工作簿而不是工作表。如果您正在使用該工作簿的「工作表Sheet1」工作再嘗試這種

lastrow = wsPOR.Sheets("Sheet1").Range("A" & _ 
      wsPOR.Sheets("Sheet1").Rows.Count).End(xlUp).Row + 1

同樣

wsPOR.Range("A2:G" & lastrow).Select

應該

wsPOR.Sheets("Sheet1").Range("A2:G" & lastrow).Select

來源

2012-09-05 19:46:00

+1你回答。我評論道。我們兩個都說同樣的事情！ –

如果你打算使用'ws'作爲'Worksheet'變量的前綴，然後使用不同的東西 - 例如'wb' - 作爲'Workbook'變量的前綴 – barrowc

我正在考慮這樣做。我只是想盡管這樣才能在調整小東西之前讓它工作......但是你是對的。 –

Excel VBA，錯誤438「對象不支持這個屬性或方法

回答

相關問題