請問，打開EXCEL指定Sheet表的代碼怎么寫？

bshchangss

看了壇子里的一個精華帖關于如何將ACCESS數(shù)據(jù)轉(zhuǎn)換到EXCEL的，我就把源代碼拷下來照做了一個，但因為對VB代碼不懂，修改的時候遇到了一些問題，請老師指導，謝謝！
問題如下：
如何將數(shù)據(jù)導到Excel的指定Sheet表中（如Sheet1）

bshchangss

帖上我的代碼，中間那段用于指定填充內(nèi)容地點的代碼已省略，請在問號處把代碼加上，謝謝：

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

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

Henry D. Sy

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

roych

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

1、貌似要先MoveLast，再MoveFirst才能計算出RecordCount。
2、建議使用完i變量后，設置變量為0。如果有For語句嵌套，注意不能使用兩個相同的變量。
3、建議傳上附件。

ycxchen

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

請問，為何用完i變量后，設置變量為0的？

roych

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

bshchangss

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

bshchangss

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

灰太郎

，11111111