accessからexcelへ出力時。。。

質問

３つのクエリを一つのエクセルシートへ出力しようとしているのですが、
3つ目が張り付きません。なんでなんでしょうか？どなたか教えてください。

Dim dbs As Database
Dim rst1 As Recordset
Dim rst2 As Recordset
Dim rst3 As Recordset

Dim intRow As Integer
Dim intCell As Integer
Dim xlsx As Object

Set dbs = CurrentDb
Set rst1 = dbs.OpenRecordset("クエリA")
Set rst2 = dbs.OpenRecordset("クエリB")
Set rst3 = dbs.OpenRecordset("クエリC")
Set xlsx = CreateObject("Excel.Application") 'Excelオブジェクトを生成

With xlsx

.ScreenUpdating = False '画面の再描画を抑止
.Workbooks.Add '新しいブックを追加

'---"クエリA"----------------------------------------------------
intRow = 1
For intCell = 1 To rst1.Fields.Count
.Cells(intRow, intCell).Value = rst1.Fields(intCell - 1).Name
.Cells(intRow, intCell).Interior.ColorIndex = 15
Next intCell

'各レコード出力
intRow = 2
Do Until rst1.EOF
For intCell = 1 To rst1.Fields.Count
.Cells(intRow, intCell).Value = rst1.Fields(intCell - 1)
Next intCell
intRow = intRow + 1
rst1.MoveNext
Loop

'集計Sum
For intCell = 4 To rst1.Fields.Count
.Cells(intRow + 1, intCell) = "=SUM(" & Cells(2, intCell).Address & ":" & Cells(intRow, intCell).Address & ")"
Next intCell

・
・2目のクエリはOK
・
・
’以下3つ目のクエリ

Dim intRow3 As Integer
Dim intCell3 As Integer

intRow3 = intRow + 5
intCell3 = 5

For intCell3 = 5 To rst3.Fields.Count
.Cells(intRow3, intCell3).Value = rst3.Fields(intCell3 - 1).Name
.Cells(intRow3, intCell3).Interior.ColorIndex = 15
Next intCell3

'各レコード出力
intRow3 = intRow + 6
Do Until rst3.EOF
For intCell3 = 5 To rst3.Fields.Count
.Cells(intRow3, intCell3).Value = rst3.Fields(intCell3 - 1)
Next intCell3
intRow3 = intRow3 + 1
rst3.MoveNext
Loop

'----
Dim rst3RC As Integer
rst3RC = intRow + 5 + rst3.RecordCount '863

'集計Sum
For intCell3 = 6 To rst3.Fields.Count - 1
.Cells(rst3RC, intCell3) = "=SUM(" & Cells(rst3RC - rst3.RecordCount, intCell3).Address & ":" & Cells(rst3RC - 1, intCell3).Address & ")"
Next intCell3

回答No.1

Hayashi_Trek

rst3 のフィールド数は何個でしょう？

フィールド数が５未満なら、For文の中は一度も実行されないことになります。

お礼

フィールドは４つでしたが、
ひとつづつ記述をし直して試していったところできました。
原因は分からないですが、どこかがちがっていたのかも。
ありがとうございました。