レコードセットデータのExcelシートへの出力方法

質問

VBEで外部データベースにアクセスしてデータを取得することは出来るんですがそのデータを綺麗にエクセルデータに出力できません。
下記のコードはデータ出力のモジュールなんですがこれだと、レコードセットの中身をただ書き出してるだけになり見た目もよくありません。
どなたかレコードセットデータを綺麗に整形するいい方法を知っている方がいれば助けて頂きたいです。

###　モジュールの一部　#####

' オブジェクトのインスタンス化
Set cmdCommand = New ADODB.Command
Set cmdCommand.ActiveConnection = myConn

Set myRS = New ADODB.Recordset
Set myRS.ActiveConnection = myConn

' コマンドテキストの設定
With cmdCommand
.CommandText = strSQL
.CommandType = adCmdText
.Execute
End With

' レコードセットのオープン
myRS.Open cmdCommand, , adOpenForwardOnly, adLockReadOnly

' データの削除
Worksheets("sheet2").Cells.Clear

' フィールド名の表示
For colnum = 0 To 29
Worksheets("sheet2").Cells(2, colnum + 2) = myRS(colnum).name
Next

' データの表示
rownum = 0
Do Until myRS.EOF
For colnum = 0 To 29
Worksheets("sheet2").Cells(rownum + 3, colnum + 2) = myRS(colnum).Value
Next
myRS.MoveNext
rownum = rownum + 1
Loop

'######　完了メッセージの表示　################################

If Worksheets("Sheet2").Range("B3") = "" Then
MsgBox "抽出条件に該当するデータが存在しません"
Else
MsgBox "データを出力しました"
End If

'レコードセットの開放
myRS.Close: Set myRS = Nothing
myConn.Close: Set myConn = Nothing

End Sub

回答No.1

Chary_spy · ベストアンサー

＞レコードセットデータを綺麗に整形するいい方法

この意味がよくわかりません。
エクセル的にきれいにといっているのでしょうか?

それであれば、エクセルの機能を使えばいいだけですが?

分からなければ、マクロを記録する機能がありますよね、それで、例えばセルを２、３つ選択して、背景を黄色にするとかで終了させます。

それでマクロの中身をみれば、エクセルのオブジェクトに対して、どのようにしているか分かりますよね。エクセル関数、オブジェクトを勉強してください。

エクセルオブジェクトに扱いはヘルプにも記載されています。ＣＯＭオブジェクトとしてＶＢＡから使用します。

お礼

回答ありがとうございます。
もう少し勉強してから出直してきます。

回答No.2

imogasi

>外部データベース
どういうソフトで作られたデータか。
＞レコードセットデータを綺麗に整形するいい方法を知っている方・・
＞レコードセットデータ、というより、エクセルのセルに「値」をセットして後、エクセルシートのセルの表示形式・書式などを整えれば
済むのではないか？
それなら具体的にそのこと（表示形式・書式などを）を聞くべきで、持って来るデータベースがどうか、長々したコードを読ませる必要はないと思う。
＞するいい方法を知っている方がいれば
質問の意味が明瞭でなくて、知っている方、もない。

お礼

知識があまり無いので稚拙な文章になってしまいました。
もう少し勉強してみます。
御回答いただきありがとうございました。