Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1883 / 9994

←次へ　｜　前へ→


	【11393】Excelの出力について

坂井 - 10/1/18(月) 10:41 -


	引用なし

	パスワード

クエリ（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

428 hits

▼

【11393】Excelの出力について 坂井 10/1/18(月) 10:41