运行时错误91 Excel VBA

Question

我正在使用以下代码：

Sub propZips()

' property variables
Dim wsProperty As Worksheet:              Set wsProperty = Worksheets("propertyOutput.csv")
Dim zipColumnProperty As Integer:       zipColumnProperty = 6
Dim propertyRows As Integer:               propertyRows = wsProperty.Cells(Rows.Count, 1).End(xlUp).Row - 1  ' less 1 for label row
Dim singlePropZip As String

' vendor variables
Dim wsVendor As Worksheet:                Set wsVendor = Worksheets("vendorOutput.csv")
Dim zipColumnVendor As Integer:         zipColumnVendor = 5
Dim vendorRows As Integer:                   vendorRows = wsVendor.Cells(Rows.Count, 1).End(xlUp).Row - 1 ' less 1 for label row
Dim venNameOffset As Integer:               venNameOffset = -3

' counter variables
Dim propCounter As Integer ' for loop through property zips
Dim venCounter As Integer '  for loop through vendors

Dim serviceArea As Range ' for holding cell address of vendor service area match
Dim firstAddress As String  ' also for helping match vendor service areas

Dim venName As Range ' hold vendors name
Dim singlePropAddress As String 'hold cell address of property zip code in question
Dim n As Integer ' count cells out to the right to print vendor names and categories on property page


For propCounter = 1 To propertyRows  ' loop through properties
    singlePropZip = wsProperty.Cells(propCounter + 1, zipColumnProperty) ' propety zip in question

    With Worksheets("vendorOutput.csv").Range(Cells(1, zipColumnVendor), Cells(vendorRows, zipColumnVendor))
            Set serviceArea = .Find(what:=singlePropZip, LookIn:=xlValues, LookAt:=xlPart)
            Debug.Print serviceArea.Address                   
    End With
Next propCounter ' end loop through properties
End Sub

我不断得到：

Runtime error '91'
object variable or with block variable not set

我不明白为什么。

Answer 1

尝试使用Worksheets（“ vendorOutput.csv”）。Range（Worksheets（“ vendorOutput.csv”）。Cells（1，zipColumnVendor），Worksheets（“ vendorOutput.csv”）。Cells（vendorRows，zipColumnVendor））

因为如果vendoroutput.csv不是活动工作表，则单元格（x，x）指向活动工作表上的单元格，即使Range是Worksheets（“ vendorOutput.csv”），这显然也不能很好地工作。