Fw: [VBA ] 需要物件錯誤

看板Office作者 (溫柔殺手)時間7年前 (2018/09/29 16:07), 7年前編輯推噓0(0014)
留言14則, 4人參與, 7年前最新討論串1/1
※ [本文轉錄自 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 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.195.98.141 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1538203871.A.96F.html ※ 編輯: yimean (123.195.98.141), 09/29/2018 14:55:49 ※ 發信站: 批踢踢實業坊(ptt.cc) ※ 轉錄者: yimean (114.33.116.8), 09/29/2018 16:07:39

09/29 16:24, 7年前 , 1F
因為是activesheet 不是acitvesheet
09/29 16:24, 1F

09/29 16:39, 7年前 , 2F
感謝S大大,我真的覺得自己有點智障,為了這個弄了3個小
09/29 16:39, 2F

09/29 16:40, 7年前 , 3F
時有,請問有好的工具可以找出這個問題嗎?Excel的VB編輯
09/29 16:40, 3F

09/29 16:40, 7年前 , 4F
環境好像,沒有標注這個錯誤的功能。
09/29 16:40, 4F

09/29 16:44, 7年前 , 5F
如以這個問題的話,可以小寫鍵入,如打acitvesheet的話
09/29 16:44, 5F

09/29 16:44, 7年前 , 6F
因無該物件所以會保持小寫狀態;如打activesheet則會變為
09/29 16:44, 6F

09/29 16:45, 7年前 , 7F
ActiveSheet
09/29 16:45, 7F

09/29 16:45, 7年前 , 8F
以這樣的方式來提醒,看是否合適
09/29 16:45, 8F

09/29 22:20, 7年前 , 9F
也可以在檔案最一開始加上Option Explicit
09/29 22:20, 9F

09/29 22:21, 7年前 , 10F
如果有任何未宣告的變數或函式就會通知並無法編譯
09/29 22:21, 10F

09/30 00:21, 7年前 , 11F
或者可考慮將常用功能寫在class內,用intellisense避免錯誤
09/30 00:21, 11F

09/30 00:25, 7年前 , 12F

09/30 00:27, 7年前 , 13F
或是按右鍵>列出屬性或方法,此時打字亦可自動完成
09/30 00:27, 13F

09/30 14:11, 7年前 , 14F
感謝幾位大大的建議,你們真的是好人^^
09/30 14:11, 14F
文章代碼(AID): #1RhpBD-d (Office)
文章代碼(AID): #1RhpBD-d (Office)