INTO文発行でExcel(*.xls)を作成する>こんにちは、三流プログラマーのKen3です。INTO文を発行して、Excel(*.xls)を作成してみたいと思います。拾い読みして、何かの参考となれば幸いです。1.今回のキッカケ*/前回、ADOでExcelと接続して、データを取得しました。8.0;Database=Drive:\Path\File].[Sheet]なんて、SQL文を発行すると、出来るみたいです。ADOでExcel-->Accessの逆、MDBのテーブルをシートにできないかなぁとフト思い、いろいろと試行錯誤してみました。条件って感じでもOKです。この方法をテストしてみます。db.openここまでは、お約束?じゃないけど、MDBファイルへの接続を作りました。次に、出力先のExcelファイルを指定します。"].[DATA]"たんに、Server.MapPathで今実行中の位置+a.xlsのパスを作成、シート名は固定でDATAとしました。普通につなげてSQL文を作成します。strFROMで、作成したSQL文を発行。'SQL文の発行あれれ、思ったより、すんなり出来た(笑)a.xlsの中身を見ると、DATAシートも出来てるし。よし、データを追加・変更して再度実行しよう。あらら、同じファイル、同じシート名には、上書きしてくれないのか。a.xlsを消すか、ダブらないシート名にしないと行けないのか。シート名は時刻で9時10分15秒ならs091015にします。これなら同じ秒数にテストしなければ大丈夫かな。後日削除しやすいようにTEMP\a20030520.xlsとフォルダーも指定して作成します。ASP,VBScriptでFormat関数使えないんだよなぁ。日付関係の関数を駆使して、文字列を作成するか。えっと、現在時刻はNow関数でわかるから、あとはこれを変換すればいいのか。Second()関数に日付の値を渡すと変換できます。2)と小細工で、0と+してから、右端から2文字取るかな。2)で、ファイル名とシート名を作成しますか。strSこんな感じかな。3.調査、テスト結果を合わせて、1つのプログラムを作成*/ここまでくれば、見通しが明るいので、1つにつなげてみた。Nothing%><hr>作成終了です。Target="_Blank">db026.mdbへデータを登録する</a><br></body></html>http://www.ken3.org/cgi-bin/test/test054-1.aspでテストできてるので、確認してみてください。パス名に間違いがないことと、ファイルが置かれたサーバーに接続していることを確認してください。えっ、なんで?あっ、tempフォルダ作るの忘れた(笑)保存先のフォルダも作ったし、OK、なんとか出来ました。使って、Excelファイルを作成してみました。感覚的には、ADOで接続さえクリアすれば、あとは、SQLやADOのいつもの感覚で処理可能なので、楽かなぁ。http://www.ken3.org/cgi-bin/test/test054-1.aspでテストできてるので、遊んでみてください。ASP、VBScript勉強中の三流プログラマーのKen3でした。ページフッターここまで、読んでいただきどうもです。三流君へメッセージを送る。下記のフォームからメッセージを送ることができます。気軽に書いてください(感想や質問・要望・苦情はHPで記事に載せることがあります。↓を選択してください。基本はデータの受け取りかなぁ。・[Form等を使用したデータのやり取り]・・・ASPと言っても、HTMLの入力フォームからデータを受け取ります。POSTやGETでやりとりを押さえますか。・[ADOでMdbファイルを使う]・・・MDBと接続して、簡単な追加・更新・削除を行った。・[ADOでExcelと接続してみた]・・・.xlsと接続してSQLを使ってみた。テキストを読み出した。・[テキストファイル処理]・・・ファイルを開いて、書き込む。1行読み込みなどを軽くVBScriptでFormat関数が無いなど、微妙にVBAと違うけど[VBScript関数関係の説明]・・・少し、処理を書いてみた。[その他処理サンプル]・・・あまり良いサンプル作れなかったけど。何かの参考となれば幸いです。バックナンバー目次]広告:。