作者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/cn.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