請(qǐng)問(wèn)，打開(kāi)EXCEL指定Sheet表的代碼怎么寫(xiě)？

bshchangss

看了壇子里的一個(gè)精華帖關(guān)于如何將ACCESS數(shù)據(jù)轉(zhuǎn)換到EXCEL的，我就把源代碼拷下來(lái)照做了一個(gè)，但因?yàn)閷?duì)VB代碼不懂，修改的時(shí)候遇到了一些問(wèn)題，請(qǐng)老師指導(dǎo)，謝謝！
問(wèn)題如下：
如何將數(shù)據(jù)導(dǎo)到Excel的指定Sheet表中（如Sheet1）

bshchangss

帖上我的代碼，中間那段用于指定填充內(nèi)容地點(diǎn)的代碼已省略，請(qǐng)?jiān)趩?wèn)號(hào)處把代碼加上，謝謝：

Dim xlapp As Object
Set xlapp = CreateObject("excel.application")
Dim i As Long

xlapp.Application.Visible = True
Set xlbook = xlapp.workbooks.Open(CurrentProject.Path & "\Master List for Records.xls")
？？？？

Next

Set xlapp = Nothing

End Sub

bshchangss

另外，我想問(wèn)問(wèn)下面這句是什么意思？
For i = 1 To Me.history.Form.RecordsetClone.RecordCount
我想要復(fù)制上面這句加以修改，變成對(duì)應(yīng)窗體里的另一個(gè)子窗體，但不是簡(jiǎn)單的把窗體名改掉就可以，我把它改為下面這樣：
For i = 1 To Me.defectrecord.Form.RecordsetClone.RecordCount
就會(huì)提示我"For變量已在使用"，應(yīng)該怎么修改��？
{:soso_e101:}

Henry D. Sy

Me.defectrecord.Form.RecordsetClone.RecordCount
當(dāng)前窗體defectrecord子窗體的記錄數(shù)

roych

bshchangss 發(fā)表于 2012-1-10 23:48
另外，我想問(wèn)問(wèn)下面這句是什么意思？
For i = 1 To Me.history.Form.RecordsetClone.RecordCount
我想要復(fù) ...

1、貌似要先MoveLast，再M(fèi)oveFirst才能計(jì)算出RecordCount。
2、建議使用完i變量后，設(shè)置變量為0。如果有For語(yǔ)句嵌套，注意不能使用兩個(gè)相同的變量。
3、建議傳上附件。

ycxchen

roych 發(fā)表于 2012-1-11 00:57
1、貌似要先MoveLast，再M(fèi)oveFirst才能計(jì)算出RecordCount。
2、建議使用完i變量后，設(shè)置變量為0。如果有 ...

請(qǐng)問(wèn)，為何用完i變量后，設(shè)置變量為0的？

roych

for i=1 to 20
………………
Next i
i=0

bshchangss

已將此內(nèi)容轉(zhuǎn)到ACCESS版

bshchangss

附件超大了，我該怎么辦？？
我只能發(fā)1.95M。這個(gè)有2.3M{:soso_e101:}

灰太郎

，11111111