VBA錯誤：對象變量或與變量未設置

Question

在VBA運行該子程序時，我收到一個奇怪的錯誤：

Sub NameColumns() 
' name key columns for later reference in formulas 
Dim startdatecol As Integer 

' name start date column 
startdatecol = ActiveSheet.Cells.Find(What:="Start Date", after:=[a1], LookIn:=xlValues, _ 
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ 
MatchCase:=False, SearchFormat:=False).Column 
End Sub 

Run time error '91': Object variable or With variable not set

我如何能解決這個子程序錯誤任何想法？爲什麼它正在發生？

感謝， AME

Answer 1

的問題是，Find沒有找到小區。

你會發現（雙關語意），以下爲真：

MsgBox ActiveSheet.Cells.Find(What:="Start Date", after:=[a1], LookIn:=xlValues, _ 
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ 
MatchCase:=False, SearchFormat:=False) Is Nothing 

你應該做的第一件事就是解決您的搜索，這樣它找到你要找的細胞。

編輯：

可能發生變化，更好地說明這個問題是這樣的：

Dim found as Range 
Dim startDateCol as Integer 

Set found = ActiveSheet.Cells.Find(What:="Start Date", after:=[a1], LookIn:=xlValues, _ 
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ 
MatchCase:=False, SearchFormat:=False) 

If Not found Is Nothing Then startDateCol = found.Column 

MsgBox startDateCol 'This will be zero if the "Start Date" cell wasn't found. 

編輯迴應評論：

'This should find the exact text "Start Date" (case sensitive) in the header row. 
'A cell containing, for example "The Start Date" will not be matched. 
Set found = ActiveSheet.Range("1:1").Find("Start Date", LookIn:=xlValues, _ 
              LookAt:=xlWhole, MatchCase:=True)