
同一フォルダ内にある複数のExcelブックから特定シートの特定セル値を抽出して一覧表にまとめるExcel マクロ(VBA)を教えてください。
よく似ている質問、回答を読んだのですが、私のレベルではとても応用できず質問させていただきます。
全く同じものがあれば、そのアドレスを回答いただくだけでも助かります。
【前提】
・実行する端末のOSはWindows XP(SP3)、Excelは2003
・対象フォルダはネットワーク接続フォルダ「\\share\target」
この中に、複数のExcelブックがあります。
・抽出したい対象は、各ブック内の「概要」シートの「C3」セルで統一されています。
【抽出一覧作成イメージ】
・「集約.xls」ブックの「Sheet1」の2行目から抽出した結果を一覧表示する。
・表示はA列に抽出元ブック名(=ファイル名)、B列に抽出元C3セルの値。
・C3セル値を「集約.xls」ブックの「Sheet1」に貼り付ける際には「値で貼り付ける」が望ましい。
というようなイメージです。
とても勝手なお願いではありますが、宜しくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
作成例:
sub macro1()
dim myPath as string
dim myFile as string
mypath = "\\share\target\"
myfile = dir(mypath & "*.xls")
do until myfile = ""
workbooks.open mypath & myfile
with workbooks("集約.xls").worksheets("Sheet1").range("A65536").end(xlup)
.offset(1, 0).value = myfile
.offset(1, 1).value = workbooks(myfile).worksheets("概要").range("C3").value
end with
workbooks(myfile).close savechanges:=false
myfile = dir()
loop
end sub
集約ブックを開いて置いて実行する
通常は集約ブックにマクロを登録しておくのが良い
新しいマクロの記録で、目的のブックを実際に開く操作を記録マクロに録って、ファイルの指定の正しい記述を一回確認してマクロに反映すること。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォルダ内の複数ファイルから、特定セルだけを抽出し、並び替えて集約したい
Excel(エクセル)
-
ブックを開かずに、フォルダ内にある複数ブックの、特定セルの値を抽出した
Excel(エクセル)
-
複数のExcelファイルにある同名シートを1つのシートに一括でまとめるには?
Excel(エクセル)
-
-
4
複数エクセルから特定シートの特定行だけを別シートに抽出するマクロ
Excel(エクセル)
-
5
フォルダ内の複数のエクセルデータから指定のデータを取り出す方法
Excel(エクセル)
-
6
複数ファイルから特定シートのコピー
Excel(エクセル)
-
7
複数のセルをコピーし、別シートの任意のセルへペーストをするためのマクロ
Excel(エクセル)
-
8
Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
【Excel VBA】マクロでExcel自...
-
エクセル関数>参照ファイル名...
-
エクセルのvbaにて thisworkboo...
-
【Excel】マクロの保存先について
-
EXCELのボタンによるマクロの登...
-
マクロの保存先、開いてるすべ...
-
【マクロ】元データと同じお客...
-
EXCELマクロで、開いてはいるが...
-
ExcelVBAで困っています。
-
【Excel】特定セルの内容をテキ...
-
EXcelのマクロで相対パスでファ...
-
複数のExcelファイルの印刷設定...
-
[フィルターオプションの設定]...
-
エクセルで使用期限付きのブッ...
-
EXCELブックが勝手に開いて困っ...
-
エクセル;相対パスを絶対パスへ...
-
ファイルごとにセルの移動方向...
-
名前の変わるブックをアクティ...
-
個人用マクロブックが消えました
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
【マクロ】元データと同じお客...
-
【Excel VBA】マクロでExcel自...
-
エクセル関数>参照ファイル名...
-
マクロの保存先、開いてるすべ...
-
エクセルのvbaにて thisworkboo...
-
エクセル;相対パスを絶対パスへ...
-
【Excel】マクロの保存先について
-
EXcelのマクロで相対パスでファ...
-
EXCELのボタンによるマクロの登...
-
エクセルで未保存に対するメッ...
-
EXCELマクロで、開いてはいるが...
-
excelで直前に参照していたブッ...
-
EXCELブックが勝手に開いて困っ...
-
複数のExcelファイルの印刷設定...
-
エクセルで使用期限付きのブッ...
-
エクセルを開いて文字を打つ際...
-
[フィルターオプションの設定]...
-
名前の変わるブックをアクティ...
-
【Excel】特定セルの内容をテキ...
おすすめ情報