□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 指定（直近日）ﾌｫﾙﾀﾞにある指定ﾌｧｲﾙを起動するVBAｺｰﾄﾞについて | |
|---|---|
[196488] 指定（直近日）ﾌｫﾙﾀﾞにある指定ﾌｧｲﾙを起動するVBAｺｰﾄﾞについて- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/03/11(23:22)) □U R L/ １．Dドライブ上に「買い物」フォルダを作成済み ２．そのフォルダの中に下記のような日付フォルダを作成済み （今後も新しい日付フォルダが作成される） ・20240105フォルダ ・20250309フォルダ ・20231201フォルダ ・20221212フォルダ ・20250305フォルダ ・ ・ ・ ・ ３．それぞれのフォルダには りんご.xlsm があります この時に デスクトップ上に 直近リンゴ.xlsmを起動して コマンドボタンを押下すると Dドライブ/買物/20250309 のフォルダ中の りんご.xlsm を起動させたいのです なお、日付フォルダは今後も新しい日付で作成されます （その中にりんご.xlsmもあります） どの方か デスクトップ上に 直近リンゴ.xlsmを起動して 本件のVBAがあるコマンドボタンを押下すると 上記のような直近のフォルダから りんご.xlsmを起動させるような VBAコードについて ご教示いただけますと幸いです WIN１１です エクセル２０１９です ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[196489] Re[1]: 指定（直近日）ﾌｫﾙﾀﾞにある指定ﾌｧｲﾙを起動するVBAｺｰﾄﾞについて- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/03/12(11:01)) □U R L/ 参考 moug速攻テクニック 【サブフォルダの一覧を取得する】 ｈｔｔｐｓ：／／ｗｗｗ．ｍｏｕｇ．ｎｅｔ／ｔｅｃｈ／ｅｘｖｂａ／００６００７８．ｈｔｍｌ Ｓｕｂ Ｓａｍｐｌｅ５（） Ｄｉｍ ｌａｓｔＦｌｄ Ａｓ Ｓｔｒｉｎｇ Ｄｉｍ ｂｕｆ Ａｓ Ｓｔｒｉｎｇ ｂｕｆ ＝ Ｄｉｒ（”D:\買い物\*．”， ｖｂＤｉｒｅｃｔｏｒｙ） Ｄｏ Ｗｈｉｌｅ ｂｕｆ ＜＞ ”” Ｉｆ ｂｕｆ ＜＞ ”．” Ａｎｄ ｂｕｆ ＜＞ ”．．” Ｔｈｅｎ Ｉｆ ｂｕｆ ＞ ｌａｓｔＦｌｄ Ｔｈｅｎ ｌａｓｔＦｌｄ ＝ ｂｕｆ Ｅｎｄ Ｉｆ Ｅｎｄ Ｉｆ ｂｕｆ ＝ Ｄｉｒ（） Ｌｏｏｐ Ｉｆ ｌａｓｔＦｌｄ ＜＞ ”” Ｔｈｅｎ Ｗｏｒｋｂｏｏｋｓ．Ｏｐｅｎ （”D:\買い物\” ＆ ｌａｓｔＦｌｄ ＆ ”\りんご.xlsm”） Ｅｌｓｅ ＭｓｇＢｏｘ ”フォルダー不存在” Ｅｎｄ Ｉｆ Ｅｎｄ Ｓｕｂ | |
[196490] Re[2]: 指定（直近日）ﾌｫﾙﾀﾞにある指定ﾌｧｲﾙを起動するVBAｺｰﾄﾞについて- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2025/03/12(17:30)) □U R L/ moug速攻テクニック 【サブフォルダの一覧を取得する】 を拝見しましたが、 >Dir関数でサブフォルダだけを取得するには、ファイルのパターンとして指定するワイルドカードを「*」や「*.*」ではなく「*.」と指定します。 ではフォルダだけで無く、拡張子の無い 99999999 のようなファイルも取得されるので ご自身でフォルダやファイル作成しているのなら不要でしょうが、 vbDirectory判定した方が安全です。 ttps://www.limecode.jp/entry/utility/partialmatch-foldersearch | |
[196491] Re[3]: 指定（直近日）ﾌｫﾙﾀﾞにある指定ﾌｧｲﾙを起動するVBAｺｰﾄﾞについて- ■記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/03/12(19:40)) □U R L/ 半平太さん kazuoさん ご回答ありがとうございます。 ただいまテストしています フォルダー不存在となるので 自分の設定が悪いかの確認しています また、ご返事します よろしくお願いいたします。 | |
[196492] Re[4]: 指定（直近日）ﾌｫﾙﾀﾞにある指定ﾌｧｲﾙを起動するVBAｺｰﾄﾞについて- ■記事引用/メール受信=OFF■ □投稿者/ VBA初心者 -(2025/03/12(21:26)) □U R L/ やはり フォルダー不存在となりました テストして見ましたが 買い物フォルダそのものをループせず 探せなかったため フォルダー不存在 となっているようです すみません、よろしくお願いいたします。 | |
[196493] Re[5]: 指定（直近日）ﾌｫﾙﾀﾞにある指定ﾌｧｲﾙを起動するVBAｺｰﾄﾞについて- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2025/03/12(22:03)) □U R L/ すみません。 普通にコードをアップすると（偶にですけども。今回がそう）拒否されるので 全角に変換してアップしたのですが、 ここのドッドが全角のままになっているためと思われます。 ↓ ”D:\買い物\*．” 半角のドットに変えてみてください。（1箇所※） ※同じ理由で、他にもあるかもです・・ | |
[196494] Re[6]: 指定（直近日）ﾌｫﾙﾀﾞにある指定ﾌｧｲﾙを起動するVBAｺｰﾄﾞについて- ■  / 記事引用/メール受信=OFF■
□投稿者/ VBA初心者 -(2025/03/12(22:36)) □U R L/ 半平太さん、 大変ありがとうございました。 素晴らしいです 確かに半角にすると上手く動作しました。 大変お世話になりました。 また、よろしくお願いいたします。 | |