| |
クエリ（Table_003）を既存のExcel003.xlsに出力するため、以下のコードを
実行し、ずっと使ってましたが、急に動きがおかしくなりました。
その原因を調べましたが、知識不足で、わかりません。
教えていただきたいです。
よろしくお願いします。
・環境
ＯＳ：WindowsXP
ACCESS：2003
EXCEL：2003
現象：Excel003.xlsへの出力結果は、
一行しか出力されていない、その以外のデータは全く出力されていない。
Private Sub コマンド4_Click()
Const csXlPath As String = "C:\Excel003.xls"
Dim i As Long
Dim xlsApp As Object
Dim xlsWkb As Object
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Table_003", dbOpenSnapshot)
Set xlsApp = CreateObject("Excel.Application")
Set xlsWkb = xlsApp.Workbooks.Open(csXlPath)
With xlsWkb.Sheets("shiharaimeisai")
.Range("A1:R60000").ClearContents
For i = 1 To rs.Fields.Count
.Cells(1, i).Value = rs(i - 1).Name
Next
.Range("A2").CopyFromRecordset rs
End With
xlsWkb.Close True: Set xlsWkb = Nothing
xlsApp.Quit: Set xlsApp = Nothing
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
