Accessのフォームにテキストボックスを設置し、
ボタンをクリックすると、
そのテキストボックスに入力されている言葉を含むフォルダを開きたいです。
Accessフォームで顧客名簿を作成していて、
サーバー上に顧客名ごと名前のついたフォルダがあります。
Dir関数を使って、
テキストボックスに「山田花子」と入力してボタンクリックすると、
「山田花子」を含むフォルダが存在するかどうかを
メッセージボックスで知らせる、というところまではうまくできました。
コードは以下です。
Dim MyPath, MyFullPath
MyPath = "\\×××\×××\×××\"
MyFullPath = Dir(MyPath & "*" & [テキストボックス] & "*", vbDirectory)
If MyFullPath = "" Then
MsgBox "存在しません"
Else
MsgBox "存在します"
End If
End Sub
この先、存在するならばそのフォルダを開くようにしたいです。
どうにかしてそのフォルダのフルパスを取得したいのですが
その方法がわかりません。
そもそもDir関数は必要なかったのか・・・そのへんもよくわかりません。
ご教授お願いいたします!
No.1ベストアンサー
- 回答日時:
Dirの戻り値が見つかったフォルダ名なので、こーかな・・
MyDirPath = Dir(...略...)
MyFullPath = MyPath & MyDirPath
フォルダを開くって、エクスプローラー(ウィンドウ)で、かな?
Shell "C:\Windows\Explorer.exe " & MyFullPath, vbNormalFocus
エクスプローラーはフォルダ管理ツール=独立したプログラムなので、
外部プログラムを実行するShellを使えばいいです。
http://officetanaka.net/excel/vba/function/Shell …
大変遅くなってしまって誠に申し訳ありません。
回答を拝見し、さっそくためしてみて大成功しました!
上司にもとてもほめられてうれしかったです~!
そのまま浮かれてお礼するのを忘れていました。最低です。
本当にありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Visual Basic(VBA) エクセルのマクロについて教えてください 物件ごとのフォルダを作成してます そのフォルダ内にサブフォル 2 2023/07/02 17:58
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
アクセスのボタンから指定のワードファイルを開く
Access(アクセス)
-
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
-
4
アクセスVBAのMe!と[ ]
Access(アクセス)
-
5
ACCESS クエリ→フォーム フィルターをかけたデータのみエクスポートしたい
Excel(エクセル)
-
6
アクセスのフォームのビューが表示されないのですが、
その他(データベース)
-
7
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
8
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
9
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
10
Accessで更新履歴情報を保存(表示)する方法を教えてください。
Access(アクセス)
-
11
新規レコード行を非表示にしたい
Access(アクセス)
-
12
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
13
テーブルに表示されているものがクエリに表示されない
Access(アクセス)
-
14
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
15
Accessでのレコード存在チェック
その他(データベース)
-
16
アクセスで同じフォームを違うクエリで共用したい
Access(アクセス)
-
17
ACCESSで日付ごとに自動連番(日付+連番)する方法
Access(アクセス)
-
18
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
19
サブレポートのレポートフッターが印刷されず困っています。
Access(アクセス)
-
20
Accessのリンク先を相対パスにしたい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
元のフォルダに矢印キーで帰りたい
-
excel VBA 特定の文字列を含む...
-
お気に入りフォルダの名前はど...
-
excel VBA 部分一致の名前をパ...
-
【マクロ】フォルダを2つのモ...
-
フォルダのサムネイル画像
-
エクスプローラ、「上へ」でフ...
-
PCで、FF11のマクロデータを移...
-
大量のフォルダへのハイパーリ...
-
撮影後、SDカードに作成される...
-
大量のファイルのファイル名を...
-
バッチファイルの親フォルダを...
-
Excel-VBA エクセル-VBA初心者...
-
特定のフォルダのみファイルの...
-
【VBA】環境文字を含んだVBAの...
-
C:\\Documents and Settingsが...
-
エクセルVBA、フォルダ選択時の...
-
OUTLOOK連絡先をグループ分けす...
-
excel VBA フォルダ内のサブフ...
-
謎のフォルダ「ドネュメント」
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダのサムネイル画像
-
【マクロ】エクセルにかいてあ...
-
C:\\Documents and Settingsが...
-
excel VBA 特定の文字列を含む...
-
元のフォルダに矢印キーで帰りたい
-
大量のフォルダへのハイパーリ...
-
撮影後、SDカードに作成される...
-
excel VBA 部分一致の名前をパ...
-
【マクロ】フォルダを3つ、PO...
-
AccessVBAで特定の文字を含むフ...
-
I386フォルダの役目とは
-
Windows11でフォルダを開いた時...
-
【マクロ】フォルダを2つのモ...
-
エクセルVBAで相対パスでフォル...
-
エクセルVBA、フォルダ選択時の...
-
お気に入りフォルダの名前はど...
-
バッチファイルの親フォルダを...
-
エクスプローラ、「上へ」でフ...
-
ディレクトリ数のみを取得する...
-
謎のフォルダ「ドネュメント」
おすすめ情報