＜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)

VBA系の無料メルマガ書いてます
メルマガ『ＶＢＡで楽しくプログラミング』(無料) を購読しませんか？
	E-mail

ＶＢＡで楽しくプログラミング	最新情報	掲示板	バックナンバー	メルマガ登録と解除
コンビニのオモテとウラ話	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ＡＳＰで遊ぶ、失敗する	最新情報	掲示板	バックナンバー	メルマガ登録と解除
AB型三流ＰＧ 業務のグチ	最新情報	掲示板	バックナンバー	メルマガ登録と解除
初心者にやさしいプログラム	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ネットで稼ぐ本音と失敗談	最新情報	掲示板	バックナンバー
www.ken3.org(サイト内)から を利用して、 を