====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*= [ 三流ＰＧ 番外編 今日の一品 No.026 ] 2000/04/20 木曜日 発送予定 =*====*====*====*====*====*====*====*====*====*====*====*====*====*====*==== 三流ＰＧ 番外編 今日の一品 は 隠し味として、 軽めのＶＢＡ関係のサブルーチンを載せていきたいと思います。 ----------------------------------------------------------------------------
今回は、前回番外編No25の違うやり方（こっちの方がかなり楽）
DoCmd.OutputToを載せます。。。
＊私の無知を笑いつつ、１つ知識を増やしてください。
えっ、これは知ってましたか、、、
In message "xcel形式へExport時に書式について",
Date Thu, 20 Apr 2000 09:53:56 +0900
********** さん wrote...
>はじめまして、いつもメルマガ読んでいます。
>ちょっと気になったので・・・
>
>今回の
>＞Accessのテーブル
>＞をExcel形式へエクスポートと同時に書式設定したいです。
>
>でTransferSpreadsheetメソッド使用してましたが
>書式をそのまま設定するのはDoCmd.OutputToを使用します。
>そうすれば別にOLEオートメーション使わなくても大丈夫です。
>
>
>手動でのエクスポートであればウィザードの「書式の保存」
>チェックボックスにチェックを入れれば可能ですが
>VBAからはDoCmd.OutputToを使用しないとできません。
やっぱり、あったんですね、、、
読者からの質問で、
質問のサンプルがTransferSpreadsheetでやっていて、
書式を含めたエクスポートができなかったので、
なんか、変だと思いつつ（何かあるだろうパラメーターとかで）、
ＯＬＥで作成しましたが、、
DoCmd.OutputTo 私も、勉強になりました。←オイオイ
モトネタ
>>In message "けんぞうさんへ質問",
>>Date Wed, 18 Apr 2000 12:19:27 +0900
>>Access VBAを使用して、テーブルをＥＸＣＥＬに変換後、
>>作業をやってます
>>DoCmd.TransferSpreadsheet acExport, 5, "管理MST", "C:\KANRI.XLS", True, ""
>>日付型はＹＹＹＹ／ＭＭ／ＤＤの形式、
>>12,345と数値にはカンマを付けたいのですが
>
>普通にやって、ならないの？かなぁ？
>テーブルに書式付けてます？
>でやってみると、、あれ、書式通りにはエクスポートされないんだね。
>＊↑質問者とＫｅｎ３の勘違いだったらすみません。
正解？は、（正解って書くと、プログラムに正しい答えなんかないと言われそうですが）
Private Sub コマンド2_Click()
DoCmd.OutputTo acOutputTable, "T_管理MST", acFormatXLS, "C:\TEST.xls", True
End Sub
で、ＯＫです
DoCmd.OutputTo acOutputTable, "T_管理MST", acFormatXLS, "C:\TEST.xls", True
(↑acOutputQueryなどもあります↑acFormatASP/IIS/HTML試してみたい)
詳しくは、ヘルプをみて下さい。
まぁ、今回も？質問者とＫｅｎ３の無知でしたね、、、
＊No.25のＯＬＥでAccessからExcelのコントロールサンプル、
罫線付けなどの処理で流用してください。
また、元ネタの質問メール読みなおして、気が付いたけど、
件名がけんぞうさんへ質問？になってたね、、、
ホントの名前は、Kenjiなんですが、、（酒屋の次男坊）
くだらない話は、置いといて、
何かお気付きの点などありましたら、
みなさん、どんどん、メールください。
＊無知なＫｅｎ３への辛口ご意見も募集中です。
では。。。ヤッパ三流プログラマーのＫｅｎ３より
PS.次は、なにかで名誉挽回？しないとなぁ、、
自分へ、、プライド、、なんてあったんだ、、
まぁ、三流なりに少しは、、、
質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)
|
感想や質問・要望・苦情など 三流君へメッセージを送る。 時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。 |
| ←パソコンの技術系の書籍を探しているなら コンピュータ関連の出版社33社（アスキー、インプレス等）が共同運営するコンピュータの本・専門店 ※種類が豊富で探し易い※在庫ありが48時間以内発送 |