マクロファイルと同じフォルダー内にあるエクセルファイルを開かずに、ファイル内のデータを取得するため、複数のモジュール内で同じディレクトリを記入しています。一か所の変更だけで済むようにディレクトリをsheet2のA1セルに記入して試しましたがうまく取得出来ません。ご指導をお願いできればと思います。管理フォルダ内のファイルは100個以上になる予定です。
Sub ファイルのメモ名取得()
Dim i As Long, buf As String, Target As String
Const Path = "F:\Data\ノート\管理\" ←このディレクトリをセルに記入して開きたい
buf = Dir(Path & "*.xls")
Do While buf <> ""
Target = "'" & Path & "[" & buf & "]Sheet1'!R3C1" '管理フォルダ内のファイルの3行目(メモ)を取得
i = i + 1
Cells(i, 1) = buf
Cells(i, 2) = ExecuteExcel4Macro(Target) '管理フォルダ内のファイルの3行目を表示
buf = Dir()
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) サブフォルダ(データ)にある複数の.xlsxファイルのSheet3のA2セルの値で01から左側をB2 2 2022/08/14 15:46
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) エクセルVBA(実行時エラー438)の対処法を教えてもらえないでしょうか 3 2023/04/22 13:43
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
VBAでセル値からフォルダ名を取得するコードについて
Excel(エクセル)
-
フォルダ選択でなくフルパスをセルの値から取得したい
Excel(エクセル)
-
-
4
VBAからファイルをセル入力から開く方法
Excel(エクセル)
-
5
EXCELのセルにフォルダのパスの情報を
Excel(エクセル)
-
6
エクセル関数>参照ファイル名をセルから呼び出す
Excel(エクセル)
-
7
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
8
エクセルのセルに入力されているファイルを開く
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
どんなプログラムを書いても指...
-
fopenで別ディレクトリにファイ...
-
フルパスから最後のディレクト...
-
「UNCパスはサポートされません...
-
windows.hがincludeされない
-
[asp/vbs]FileExistsのパスの指...
-
FTPでputすると空ファイルが出...
-
FTPでリモートのファイル一覧取得
-
ファイルやディレクトリの存在...
-
ExcelVBAでカレントディレクト...
-
FindFirstFileについて
-
pythonでの日本語操作
-
MATLABのsaveでファイル名を試...
-
絶対パスの絶対て英語で何でし...
-
Excelマクロからのバイナリデー...
-
Windowsファイルパスはスラッシ...
-
CFileDialogを使用して、Pathを...
-
新規作成ファイルパスが有効か...
-
ネットワーク上のコンピュータ...
-
エクセルVBAで相対パスでファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フルパスから最後のディレクト...
-
どんなプログラムを書いても指...
-
FTPでputすると空ファイルが出...
-
windows.hがincludeされない
-
ExcelVBAでカレントディレクト...
-
マイクラでPythonのプログラミ...
-
webアプリケーションでの画像フ...
-
GetPrivateProfileStringでini...
-
fopenで別ディレクトリにファイ...
-
ファイルやディレクトリの存在...
-
「UNCパスはサポートされません...
-
C言語を用いたファイルの一括削...
-
ネットワーク上のコンピュータ...
-
絶対パスの絶対て英語で何でし...
-
エクセルVBAで相対パスでファイ...
-
ファイルダイアログのカレント...
-
ExcelVBA サーバーの(共有フォ...
-
フォルダ名をだすには
-
ThisWorkbook.Pathについて
-
AfxLoadLibrary関数で、DLLのハ...
おすすめ情報