作者mindscold ()
看板Visual_Basic
标题[VBA ] 自access控制excel表格做自动填满
时间Wed Apr 2 09:30:16 2008
请问我希望从Access控制某Excel表格做自动填满的功能，而我从Excel的录制巨集中找到
如下的Code：
Selection.AutoFill Destination:=Range("A1:A3"), Type:=xlFillDefault
Range("A1:A3").Select
第2行我想应该是Excel自动填满後，画面上显示的选取范围，所以无视它；
而第1行的selection应该是用来参考填满什麽的基准资料格，而後面的Range应该就是要
填满的范围吧，於是我把Code改成以下的样子後填回Access的VBA里：
Dim Sht1 As Excel.Worksheet
Set Sht1 = Forms![报表]![排程表].Worksheets("sheet" & p)
sht1.Cells(4, 2).AutoFill Destination:=Range(Cells(4, 3), Cells(4, 10)),
Type:=xlFillDefault
但是执行到第3行时，总是会出现以下的错误讯息
执行阶段错误 '1004':
'Cells'方法('_Global'物件)失败
请问版上有神人知道怎麽解决吗？我Google了好几个小时，但找到的都只有从Excel本身
自己建VBA的范例说明
感谢大家>"<
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.248.17.41
1F：推 twtimbow: 修改Range(Cells(4, 3)....为Range(Cells(4, 2)...即可 04/02 10:48
2F：→ mindscold:我试过了耶 还是一样的错误讯息@@ 04/02 13:06
3F：推 twtimbow: 呵呵....大概了解你的点... 04/02 15:29
4F：→ twtimbow:Set sht1 = Excel.Application.Workbooks("档案名称.xls" 04/02 15:30
5F：→ twtimbow:).Sheets("活页名称") 04/02 15:30
6F：→ twtimbow: 我是在word里面试的...我没有access 04/02 15:31
7F：→ twtimbow: 当然前提是那个xls档案是已经开启的~ 04/02 15:33