====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*= [ 三流ＰＧ 番外編 今日の一品 No.021 ] 2000/04/04 火曜日 発送予定 =*====*====*====*====*====*====*====*====*====*====*====*====*====*====*==== 三流ＰＧ 番外編 今日の一品 は 隠し味として、 軽めのＶＢＡ関係のサブルーチンを載せていきたいと思います。 ----------------------------------------------------------------------------AccessでFile参照ダイアログ？
新社会人のみなさん、がんばってますか？（オマエが言うなって？、、、） 緊張しました？、、受け入れ側の先輩も緊張してますよキット ＊今年は、Ｋｅｎ３の会社には新人、入ってきませんでした。 ほっとしたような、ツマラナイような、、 前置きは、これくらいにして、 In message "質問 [1/5]", >はじめまして！ >いきなりですが 質問があります。 > >ACCESSにてファイルの参照、開くの仕方が解りません。 > >本屋でshell.dllを使えばできるとか、execlを使えばできるとか! >試してみましたが 良く分かりません。 >dllの使い方は解るのですがshell.dllのパラメータが解りません。 >（ちなみに圧縮ファイルの展開[UNLHA]は使っていますが........） > > >自分でオリジナルのフォルダー参照を作ったのですが >いまいちです（^.^） > >もし よかったら教えてください。 >とりあえず オリジナルのプログラムを見てください。 ---------------------- とメールをいただきました。 添付されたファイル、チラッとみました。 いいと思いますが、、、 下記、AccessからExcelを起動して、 ExcelのGetOpenFilenameを使った例です。 何かの参考となれば、幸いです。 '------- Access97 でテストしました。 Sub test() Dim FileName As String 'ファイル名受け取り用 Dim xlApp As Object 'Ｅｘｃｅｌ参照用 'エクセルオブジェクトを作成 Set xlApp = CreateObject("Excel.Application") xlApp.Visible = False '小細工で見えなくする '時間のある人はtrueに変えてテストして下さい FileName = xlApp.GetOpenFilename 'パラメーターで＊.ＴＸＴとかできますが、 '手抜きしましたExcelHelpで確認して下さい xlApp.Quit 'アプリを終了 Set xlApp = Nothing '確認で選択されたファイル名を表示 MsgBox "FileName = " & FileName End Sub '------------------------------------ ホントは、ＤＬＬを使って、カッコよくのほうがいいのかもしれませんが、 VBが客先に入っていなかったりして、ＤＬＬ，ＯＣＸが無い、、 なんてことあるので、この方法で逃げてます。 ＊でも、できる後輩達は、DLL,OCX使用ですね、、 （要望があれば、勝手にコピーしてソース載せます、、、解説できないけど） DLLやOCXの解説もできないの？やっぱ、三流だなぁ、、 と声が聞こえてきたところで、このへんで、、 今日も逃げ出す、、、コモンダイアログで痛い目みた Ｋｅｎ３ でした。
質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)
|
感想や質問・要望・苦情など 三流君へメッセージを送る。 時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。 |
| ←パソコンの技術系の書籍を探しているなら コンピュータ関連の出版社33社（アスキー、インプレス等）が共同運営するコンピュータの本・専門店 ※種類が豊富で探し易い※在庫ありが48時間以内発送 |