
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
質問事項を勘違いしているかもですけど。
エクスプローラーを閉じておいてVBAを実行し、最後に
VBAからエクスプローラーを開く
https://e-vba.com/vbatips-3/
を実行するように書いてみるとか?
リンク先のものを試しましたが、エクスプローラを開いていてもダブって開いてしまうので別のやり方で出来ました。
AppActivate とSendKeys を使いました。
On Error GoTo 0 'エクスプローラを閉じた状態で実行した場合AppActivateでエラーになるのを無視する
Dim twPath As String
Dim pos As Long
twPath = ThisWorkbook.Path 'コードが記載してあるExcelファイルがあるパスを指定
pos = InStrRev(twPath, "\")
twPath = Mid(twPath, pos + 1) 'パスの最後のフォルダ名(エクスプローラのタイトルバー)
'指定したフォルダをアクティブにして、「ALT+F5」を実行しフォルダ内容更新
AppActivate twPath, False
SendKeys "%{F5}", True
'SendKeys バグ対策(NUMLOCKが勝手にoffされるので戻す)
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys "{NUMLOCK}"
Set WshShell = Nothing
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA 最新のフォルダ取得 1 2022/04/15 15:51
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
- Excel(エクセル) Excel VBAでフォルダが何層にもなっていて最下層の中にCSVファイルがあり最上層のファイルを指 4 2022/06/08 20:41
- Excel(エクセル) フォルダAから1つのファイルだけを、フォルダBへを移動するVBAについて 2 2022/07/25 11:45
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- グループウェア 一太郎がイントラで開けません。対処方法を知りたいです。 3 2023/04/04 13:30
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/02 11:48
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
指定したフォルダーを最前面表示にする方法
Visual Basic(VBA)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
エクセルVBAで一つ上の階層を指定して保存したい
Excel(エクセル)
-
6
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
7
VBAにてメッセージボックスを最前面に表示させる
その他(プログラミング・Web制作)
-
8
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
9
ゴミ箱に移動するような削除をvbaでしたい
Visual Basic(VBA)
-
10
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
11
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
12
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
C ファイル出力で、フォルダが...
-
空のフォルダの判定
-
VB.NRT FolderBrowserDialogを...
-
クラウドにあるフォルダを共有...
-
META-INFフォルダの置き場所に...
-
Javaでフォルダ複数階層のZipフ...
-
VB6.0 FileListBoxでフォルダ表示
-
ディレクトリ名変更してコピー...
-
Excelvbaでブックをコピー名前...
-
ファイル名と同名のフォルダを...
-
Access VBA で フォルダ権限...
-
エクセルのデータをメモ帳に貼...
-
フォルダの中身がカラか調べる
-
ファイルとフォルダのどちらも...
-
VB6 CommonDialog フォルダ上書...
-
Pythonの作業環境・作業フォル...
-
SHBrowseforfolderについて質問...
-
VBでフォルダをパスワードでロ...
-
あるフォルダーのファイルを違...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
会社のネットワーク上のファイ...
-
パス名に2バイト文字(マルチバ...
-
デスクトップの画像をhtmlに表...
-
【マクロ】ファイル名の日付に...
-
C ファイル出力で、フォルダが...
-
ファイル名と同名のフォルダを...
-
Excelのハイパーリンクについて...
-
VBA 最新のフォルダ取得
-
Excelで指定したフォルダに保存...
-
VBAでファイル名を指定して保存...
-
Access VBA で フォルダ権限...
-
サーバ内のフォルダ名と各フォ...
-
excelマクロ 冒頭3文字が一致す...
-
VBA フォルダ名に特定の文字を...
-
カレントフォルダって?
-
Excel VBA マクロ フォルダ名を...
-
VBA フォルダの複数選択ができない
-
ExcelVBAでフォルダへのハイパ...
-
ExcelのVBAでフォルダ指定がで...
おすすめ情報