※ [本文轉錄自 Visual_Basic 看板 #1Rho3Vbl ]
作者: yimean (溫柔殺手) 看板: Visual_Basic
標題: [VBA ] 需要物件錯誤
時間: Sat Sep 29 14:51:09 2018
軟體Excel 版本2013
各位大大午安，小弟遇到一個物件的問題想不通，請高手指導一下。
以下是我的程式碼。
在for迴圈的時候出現"此處需要物件"的錯誤。
我不是很懂，我不是已經在With fileA底下了嗎？
也.Activate了，怎麼會沒有物件?
另外，如果沒有物件，那我又怎麼能夠正確地找到最後一筆資料?
但是ggg卻可以讀到資料。
煩請指導，感恩。
Workbooks.Open Filename:=dpath & "\" & Fname & ".xlsx",
Set fileA = Workbooks(Fname & ".xlsx")
'=====================================================
'=======================寫入檔案======================
With fileA
.Activate
ActiveSheet.Range("A1").Select
Application.Goto reference:=ActiveSheet.Range("A1")
ActiveSheet.Range("A1").End(xlDown).Select '找到最後1筆資料
index_row = Selection.Row
index_column = Selection.Column
ggg = ActiveSheet.Cells(124, 1).Value
For c = 1 To 8
Head_previous(c) = AcitveSheet.Cells(index_row, c)
Next c

因為是activesheet 不是acitvesheet

感謝S大大，我真的覺得自己有點智障，為了這個弄了3個小時有，請問有好的工具可以找出這個問題嗎？Excel的VB編輯環境好像，沒有標注這個錯誤的功能。

如以這個問題的話，可以小寫鍵入，如打acitvesheet的話因無該物件所以會保持小寫狀態；如打activesheet則會變為ActiveSheet以這樣的方式來提醒，看是否合適

也可以在檔案最一開始加上Option Explicit如果有任何未宣告的變數或函式就會通知並無法編譯

或者可考慮將常用功能寫在class內,用intellisense避免錯誤https://imgur.com/WifaOKI或是按右鍵>列出屬性或方法,此時打字亦可自動完成

感謝幾位大大的建議，你們真的是好人^^