No.1ベストアンサー
- 回答日時:
サンプルソースです。
同じフォルダにある自分以外の*.xlsファイルをの1番目のシートのA1セルの値を合計して表示します。Sub BookShuukei()
Dim FileName As String
Dim Total As Integer
Dim OpenedBook As Workbook
Dim IsBookOpen As Boolean
FileName = Dir("*.xls")
Application.ScreenUpdating = False
Do While FileName <> ""
If FileName <> ThisWorkbook.Name Then
IsBookOpen = False
For Each OpenedBook In Workbooks
If OpenedBook.Name = FileName Then
IsBookOpen = True
Exit For
End If
Next
If IsBookOpen = False Then
Workbooks.Open (FileName)
End If
Total = Total + Workbooks(FileName).Sheets(1).Range("A1").Value
If IsBookOpen = False Then
Workbooks(FileName).Close
End If
End If
FileName = Dir()
Loop
Application.ScreenUpdating = True
MsgBox (Total)
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- Visual Basic(VBA) 【VBA】先月分の取得ができない理由が分かりません。 2 2022/04/24 11:16
- その他(プログラミング・Web制作) Pythonでexcelのvbaを作成、実行する方法について Pythonで表の自動集計プログラムを 3 2022/07/09 09:58
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Excel(エクセル) アンケート集計用VBAについて教えて下さい。 約100人にアンケート内容が入ったExcelファイルを 1 2022/07/27 13:12
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Excel(エクセル) エクセル・スプレッドシートで、一定数を超えたらゼロから再累計する方法 8 2022/05/28 03:52
- Excel(エクセル) vba 同じブック内での転記について 4 2023/01/15 14:42
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 最新のフォルダ取得
-
[VBS] Unicodeの文字化けを防ぎ...
-
エクセル マクロで指定フォル...
-
パス名に2バイト文字(マルチバ...
-
Excel VBA で フォルダ名の一部...
-
Windows10でコマンドプロンプト...
-
セレクトボックスで選択された...
-
デスクトップの画像をhtmlに表...
-
VBAで、ファイルを移動する方法...
-
Access VBA で フォルダ権限...
-
Excel VBA 同じ名前のフォルダ...
-
ExcelのVBAでフォルダ指定がで...
-
カレントフォルダって?
-
VBA フォルダ名に特定の文字を...
-
保存先のフォルダ名を指定した...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
マクロVBAのフォルダ階層別で検...
-
複数選択フォルダの配列への格納
-
エクセル マクロで任意のフォ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
VBA 最新のフォルダ取得
-
バッチファイルが保存されてい...
-
ファイル名と同名のフォルダを...
-
【マクロ】ファイル名の日付に...
-
VBA フォルダ名に特定の文字を...
-
デスクトップの画像をhtmlに表...
-
フォルダ内のPDFファイル名を変...
-
ディレクトリ名変更してコピー...
-
多量のファイルをフォルダに自...
-
Excelで指定したフォルダに保存...
-
Access VBA で フォルダ権限...
-
C ファイル出力で、フォルダが...
-
Excelのハイパーリンクについて...
-
あるフォルダーのファイルを違...
-
パス名に2バイト文字(マルチバ...
-
同一フォルダ内の別ブックから...
-
バッチファイルで指定フォルダ...
-
エクセルのマクロについて教え...
-
あるフォルダの中にあるファイ...
おすすめ情報