お世話になっております。
一応自身で解決はしているのですが、釈然としないため質問させていただきます。
開発環境はVB2008 ACCESS2010です。
件名にあります通り、データベースの値を降順でExcelファイルへ出力するものとなっています。
趣旨としては、顧客が 何の果物を、どの販売店で買ったか、を集計するものとなっています。（果物は一人1個
他にもう少し賢いやり方があれば、ご教示願いたく思います。
他に何かありそうな気がするのですが、無いような気もするし、という漠然とした状況で、
どういう情報を元に、今回の件を調べれば分からなかったのでこちらで書かせていただきます。
以下、概要及び、私が実施したことです。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
T_果物集計
顧客ID
果物CD
果物名
販売店(データ型はInt で、A=1 B=2 C=3 と定義する）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
というテーブルからSQLでCOUNT(顧客ID)を取得し、以下のようなレイアウトにて
果物名の総合計値を降順にて出力します。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
列
｜総合計｜販売店A｜ B ｜ C ｜
果物名1 １０ ６ ３ １
果物名2 ５ ２ ２ １
果物名3 ２ ０ ０ ２
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
この際、VB側で、下記SQLを生成しDataAdapterにて接続したデータテーブルから値を集計し、
あらかじめ用意してある、Cols().Rows()という配列へ格納しています。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
SQL
'果物売上取得（降順用）
sSQL = "SELECT 果物_集計.果物コード,果物_集計.果物名,COUNT(果物_集計.顧客ID) AS 件数, FROM 果物_集計 "
sSQL &= " GROUP BY 果物_集計.果物,果物名"
sSQL &= " ORDER BY COUNT(果物_集計.顧客ID) DESC;"
'果物売上取得（販売店用）
sSQL = "SELECT 果物_集計.販売店,果物コード,果物_集計.果物名,COUNT(果物_集計.顧客ID) AS 件数, FROM 果物_集計 "
sSQL &= " GROUP BY 果物_集計.販売店,果物コード,果物名"
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
やったこととしては、まず、どの果物が一番売れたかを降順で出力するためのSQLから値を取得します。
その後、Cols(0).Rows().RowName というプロパティ値へ.Item("果物名")を入れます。
Rows(1).RosName = バナナ
Rows(2).RosName = リンゴ
Rows(3).RosName = スイカ
その後、このような感じで一度果物名を降順にてエクセルへ出力します。
For i = 1 To UBound(Cols(0).Rows)
'エクセル行生成
xlSheet.Range("A" & iRow, "V" & iRow).Insert()
xlSheet.Cells(iRow, 1).Value = Cols(0).Rows(i).RowName
iRow = iRow + 1
Next
次に、取得した配列の、Rows.RowNameの値のみを残し、他のデータを削除し、
Cols(1)～(3)のRows.RowNameへ、Cols(0)で取得したRowNameを再定義しなおします。
そして、販売店用のSQLより再度データを取得し、（こちらでは販売店も集計条件としています）
Cols(1)=1(販売店A)
Cols(2)=2(販売店B)
Cols(3)=3(販売店C) とし、
一致する販売店の、Rows.RowNameが一致する箇所へ
Cols().Rows().Countというプロパティ値へデータを積み上げていきます。
（販売店Aでリンゴがいくつ売れましたー）
そして、各販売店でどの果物が売れたか積み上げていったデータをエクセルへ出力します。
以上です、どうぞよろしくお願いします。
