作者yimean (溫柔殺手)
看板Office
標題Fw: [VBA ] 需要物件錯誤
時間Sat Sep 29 16:07:39 2018
※ [本文轉錄自 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://webptt.com/m.aspx?n=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
1F：→ soyoso: 因為是activesheet 不是acitvesheet 09/29 16:24
2F：→ yimean: 感謝S大大，我真的覺得自己有點智障，為了這個弄了3個小 09/29 16:39
3F：→ yimean: 時有，請問有好的工具可以找出這個問題嗎？Excel的VB編輯 09/29 16:40
4F：→ yimean: 環境好像，沒有標注這個錯誤的功能。 09/29 16:40
5F：→ soyoso: 如以這個問題的話，可以小寫鍵入，如打acitvesheet的話 09/29 16:44
6F：→ soyoso: 因無該物件所以會保持小寫狀態；如打activesheet則會變為 09/29 16:44
7F：→ soyoso: ActiveSheet 09/29 16:45
8F：→ soyoso: 以這樣的方式來提醒，看是否合適 09/29 16:45
9F：→ newacc: 也可以在檔案最一開始加上Option Explicit 09/29 22:20
10F：→ newacc: 如果有任何未宣告的變數或函式就會通知並無法編譯 09/29 22:21
11F：→ luckid: 或者可考慮將常用功能寫在class內,用intellisense避免錯誤 09/30 00:21
13F：→ luckid: 或是按右鍵>列出屬性或方法,此時打字亦可自動完成 09/30 00:27
14F：→ yimean: 感謝幾位大大的建議，你們真的是好人^^ 09/30 14:11