※ [本文转录自 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或是按右键>列出属性或方法,此时打字亦可自动完成

感谢几位大大的建议，你们真的是好人^^