Access：データシート形式表示のフォームをそのままExcelへ

質問

Access2003　WinXPです。
フォームにサブフォームを置き、クエリで抽出したデータを
データシート形式で表示しているフォームをサブフォームへ表示させています。
この、サブフォーム、またはデータシート形式のフォームをまるっと新規Excelへエクスポートしたいのですが、うまくいきません。
クエリをエクスポートは出来ますが、ユーザーがサブフォームに表示されたデータのフィールドを入れ替えて、その見た目のまま出力したいという希望があるので。。。
分かる方いらっしゃいましたら、宜しくお願いします。

回答No.2

bonaron

#1 さんの
> データシートの左上四角部分をクリックしてコピー、Excelシート上で貼り付け、
> の方が確かかと思います。（項目部分がわかりやすい表示になるとか）

これを VBA で実現してみました。

Private Sub コマンド1_Click()
　　　　Dim oApp As Object
　　　　Set oApp = CreateObject("Excel.Application")
　　　　oApp.Workbooks.Add

　　　　Me.サブフォーム名.SetFocus
　　　　DoCmd.RunCommand acCmdSelectAllRecords
　　　　DoCmd.RunCommand acCmdCopy

　　　　oApp.activesheet.Paste
　　　　oApp.Columns.EntireColumn.AutoFit
　　　　oApp.Visible = True
　　　　Set oApp = Nothing
End Sub

お礼

回答ありがとうございます！
参考に動かしてみたら、サブフォーム上では非表示にしているだけの列が出てしまったので、Excel側で消してみました。
　　　　Dim oApp As Object
　　　　Set oApp = CreateObject("Excel.Application")
　　　　oApp.Workbooks.Add

　　　　Me.サブフォーム名.SetFocus
　　　　DoCmd.RunCommand acCmdSelectAllRecords
　　　　DoCmd.RunCommand acCmdCopy

　　　　oApp.activesheet.Paste
　　　　oApp.Columns.EntireColumn.AutoFit

'不要な列を削除
MaxCol = oApp.ActiveSheet.Cells.CurrentRegion.Columns.Count
For i = 1 To MaxCol
strTitle = oApp.ActiveSheet.Range("A" & i).value

'本来は表示オプションボタンのTrueFalseを見てますが、仮に
If strTitle = "ID" Then
oApp.ActiveSheet.Range("A" & i).EntireColumn.Delete
End If
Next

　　　　oApp.Visible = True
　　　　Set oApp = Nothing

まだいじり中ですが、思ったように動いているようです！
ありがとうございます！
今の所特にエラーメッセージは無いのですが、本来の量のデータでも試してみようと思います。

補足

あ、嘘です（汗）色々とコードをいじった後でした。
列と行を間違えていたり、まだ全然でした。。。
もぅ少しいじってみます。