运行时错误“438”：对象不支持此属性或方法

Question

接收运行时错误“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

Answer 1

这是错误：ToWorkbook.Range("Z1")。无法将范围设置为工作簿。

请... 同样Dim x , y as String 使 y 为 string 和 x 为 variant。