運行時錯誤「438」：對象不支持此屬性或方法

接收運行時錯誤「438」：對象不支持此屬性或方法運行時錯誤「438」：對象不支持此屬性或方法

有人能幫助我調試和找到原因我用.Find方法收到此錯誤？

Sub TestCode() 
'=============================================================================================== 
'Description: Loops through the selected site and adds in the vulnerability totals for each _ 
    systems 
'Originally written by: Troy Pilewski 
'Date: 2016-06-30 
'=============================================================================================== 

'Declares variables 
Dim ToWorkbook, FromWorkbook As Workbook 
Dim ToWorksheet, FromWorkSheet As Worksheet 
Dim DataRange, WholeRange As Range 
Dim FromWorkbookVarient As Variant 
Dim TitleString, FilterName, CurrentSystemName As String 
Dim LastRow As Long 

'----------------------------------------------------------------------------------------------- 
Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

Set ToWorkbook = ActiveWorkbook 
Set ToWorksheet = ToWorkbook.Worksheets("SITE") 

LastRow = ToWorksheet.Range("Z:Z").Find(_ 
    What:="*", _ 
    After:=ToWorkbook.Range("Z1"), _ 
    LookAt:=xlByRows, _ 
    SearchOrder:=xlByRows, _ 
    SearchDirection:=xlPrevious _ 
).Row 

MsgBox _ 
    Title:="Ship Range", _ 
    Prompt:="Z1:Z" & LastRow 

End Sub

來源

2016-07-13 TroyPilewski

這是錯誤：ToWorkbook.Range("Z1")。不能將範圍設置爲工作簿。

Fyi ... 也Dim x , y as String使y爲string和x爲variant。

來源

2016-07-13 16:46:35 cyboashu

謝謝你的回答。一旦時間允許，我會接受。我一定錯過了那條線。雖然，不知道你爲什麼說要按照你所說的聲明變量。 – TroyPilewski

在您提出並接受答案之前沒有其他答案。只是在開玩笑:)我這麼說，因爲對於這一行「Dim ToWorkbook，FromWorkbook As Workbook」而言，「FromWorkbook」被聲明爲「Workbook」類型。「ToWorkbook」仍然是「變體」。正確的方法是：Dim ToWorkbook As Workbook，FromWorkbook As Workbook' – cyboashu

Roger！我明白！ – TroyPilewski

運行時錯誤「438」：對象不支持此屬性或方法

回答

相關問題