====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*= [ 三流ＰＧ 番外編 今日の一品 No.018 ] 2000/03/29 水曜日 発送予定 =*====*====*====*====*====*====*====*====*====*====*====*====*====*====*==== 三流ＰＧ 番外編 今日の一品 は 隠し味として、 軽めのＶＢＡ関係のサブルーチンを載せていきたいと思います。 ----------------------------------------------------------------------------VBA 手抜きで、処理後、explorerを開く
またまた、読んでいただいてすみません。 今回は、変換処理後（簡単なテキストファイル変換など） プログラムメニューから、いつも、エクスプローラーを開いて、 処理していました。 一連の流れで、処理したいので、 変換終了後、目的のディレクトリー（フォルダー）を エクスプローラーで開けたらなぁ、、と思い、簡単にやってみました。 ＊かっこいい開き方、募集です。（調理法・テクニック教えてください） 私が使用した方法、下記の用にShellで簡単に作成 例)ＤドライブのTempディレクトリ(フォルダー) を選択した状態で、エクスプローラを開く Shell "explorer.exe /n,/e,D:\TEMP", vbNormalFocus * VB,Access,Excel で使用できると思うので、 処理後、固定のディレクトリを開きたい時などに使用してください。 Access97 でテスト '---------------------------- Sub test() 'テーブルをテキスト変換 T_DATA --> D:\TEMP\outDATA.TXT へ DoCmd.TransferText acExportDelim, "", "T_DATA", "D:\TEMP\outDATA.TXT", True, "" '変換データをコピーしやすいように、エクスプローラーを開く Shell "explorer.exe /n,/e,D:\TEMP", vbNormalFocus End sub VB5でテスト '---------------------------- Private Sub cmdTxtExp_Click() 'テキストファイルを作成、、、（処理は、はぶきます） '変換終了後、エクスプローラーで出力先のディレクトリを開く Shell "explorer.exe /n,/e," & OUT_TXT.Text, vbNormalFocus End Sub '---------------------------------------------- こんな感じで、作業性がＵＰすれば、、、 何かの参考になれば、、、では、、また。 三流プログラマーの Ｋｅｎ３ でした。。。
質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)
|
感想や質問・要望・苦情など 三流君へメッセージを送る。 時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。 |
| ←パソコンの技術系の書籍を探しているなら コンピュータ関連の出版社33社（アスキー、インプレス等）が共同運営するコンピュータの本・専門店 ※種類が豊富で探し易い※在庫ありが48時間以内発送 |