[VBA ] 自access控制excel表格做自動填滿

[mindscold ()]

請問我希望從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
推 twtimbow: 修改Range(Cells(4, 3)....為Range(Cells(4, 2)...即可
→ mindscold:我試過了耶 還是一樣的錯誤訊息@@
推 twtimbow: 呵呵....大概了解你的點...
→ twtimbow:Set sht1 = Excel.Application.Workbooks("檔案名稱.xls"
→ twtimbow:).Sheets("活頁名稱")
→ twtimbow: 我是在word裡面試的...我沒有access
→ twtimbow: 當然前提是那個xls檔案是已經開啟的~