＜Access97からExcel形式へExport時に書式設定を行いたい＞

今回は、
Accessのテーブル
を
Excel形式へエクスポートと同時に書式設定したいです。

>In message "けんぞうさんへ質問",
>Date Wed, 18 Apr 2000 12:19:27 +0900
>Access VBAを使用して、テーブルをＥＸＣＥＬに変換後、
>作業をやってます
>DoCmd.TransferSpreadsheet acExport, 5, "管理MST", "C:\KANRI.XLS", True, ""
>日付型はＹＹＹＹ／ＭＭ／ＤＤの形式、
>12,345と数値にはカンマを付けたいのですが

普通にやって、ならないの？かなぁ？
テーブルに書式付けてます？
でやってみると、、あれ、書式通りにはエクスポートされないんだね。
＊↑質問者とＫｅｎ３の勘違いだったらすみません。

なんか、おかしい と おもいつつ
Access97 VBAからExcel ファイルを開いて、
設定するサンプルを下記に載せます。
'--------
'例）Ｂ列が日付、Ｃ〜Ｆ列をカンマ区切りにする。
'--------
Private Sub コマンド0_Click()
On Error GoTo Err_コマンド0_Click

    'ここで、まず、テーブルからＥＸＣＥＬファイルを作成
    DoCmd.TransferSpreadsheet acExport, 5, "管理MST", "C:\TEST.XLS", True, ""

    'Excel起動

    Dim oApp As Object

    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True

    'ブックを開く
    oApp.Workbooks.Open FileName:="C:\TEST.XLS"

    '書式を設定する
    oApp.Columns("B:B").Select
    oApp.Selection.NumberFormatLocal = "yyyy/mm/dd"
    
    oApp.Columns("C:F").Select
    oApp.Selection.NumberFormatLocal = "\#,##0;\-#,##0"

    '参照を解除する
    Set oApp = Nothing

Exit_コマンド0_Click:
    Exit Sub

Err_コマンド0_Click:
    MsgBox Err.Description
    Resume Exit_コマンド0_Click
    
End Sub
'-------------------------------------------------

まず、
    Dim oApp As Object

    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
の部分ですが、どこかで見たなぁ、、って人いますよね？
ウイザードで作成したソース、そのままです。









これだけで、Ｅｘｃｅｌ起動のモジュールを勝手に作ってくれます




次に、Excelファイルのオープンと書式の設定の部分ですが、
    'ブックを開く
    oApp.Workbooks.Open FileName:="C:\TEST.XLS"

    '書式を設定する
    oApp.Columns("B:B").Select
    oApp.Selection.NumberFormatLocal = "yyyy/mm/dd"

上記は、Excel上でマクロ記録を行って、
それの頭に、oApp.を付けただけです。
例）マクロ記録でブックを開くが下記の用に記録される
　　Workbooks.Open FileName:="C:\TEST.XLS"
    これに、ただ、oApp.を付けただけで、コントロールしてます。




目的の操作を行い、記録終了


AltとＦ11を押して、ＶＢＡの編集画面を起動、、抜き出す。



三流さん、
    oApp.Columns("B:B").Select
    oApp.Selection.NumberFormatLocal = "yyyy/mm/dd"
は一行にまとめてよ、マクロ記録まるだしジャン
と
バレたところで、、このへんで今日も失礼します。

三流プログラマーのＫｅｎ３ でした。

ＰＳ.せっかく読者数１５００人越えて
　　　祝１５００人突破記念号を出そうと思ったが、
　　　　一個前のグチ読んで、また、解除が続出、、、
　　　　　＊グチと一品サンプルのメルマガ、、分けようかなぁ、、

いつのまにか読者も減って８７０人、どこまで減るのか（笑）
(2003/01/06)

質問や要望、クレームを送る(三流君に連絡する 連絡方法)

質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)

感想や質問・要望・苦情など 三流君へメッセージを送る。 時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。 あなたのお名前（ニックネーム）:さん 返信は？: 不用(HP更新を待つ) , E-mail→ アドレス:に返事をもらいたい ここに 感想や質問・要望・苦情など 三流君へ送るメッセージを 気軽に書いてください (感想や質問・要望・苦情はHPで記事に載せることがあります。)

急ぎで連絡がほしい、そんな時は:[三流君連絡先]に連絡してください。

番外編 愚痴系で書いてた今日の一品 (短いサブ関数など)