No.1ベストアンサー
- 回答日時:
やってみました。
「合体.xls」の標準モジュールに下記のコードを書いて実行します。「合体.xls」と同じフォルダ内だけを検索します。
Sub Test()
myPath = ThisWorkbook.Path & "\"
fname = Dir(myPath & "*.xls") 'フォルダ内のExcelファイルを検索します
Do Until fname = Empty '全て検索し終えると、fname = Empty となるので、その間以下を実行します
If fname <> ThisWorkbook.Name Then
Workbooks.Open myPath & fname '選択したファイルを開きます
Set AB = ActiveWorkbook
lr = ThisWorkbook.Sheets("pAll").Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
On Error Resume Next
AB.Sheets("All").UsedRange.Copy
On Error GoTo 0
ThisWorkbook.Activate
Sheets("pAll").Range("A" & lr + 1).Select
ActiveSheet.Paste
AB.Close
End If
fname = Dir '選択したフォルダ内の次のExcelファイルを検索します
Loop
End Sub
お礼が大変遅くなり申し訳ありませんでした。
この度は、いただいたアドバイスのおかげで、
無事望むものを作ることができました。
貴重なアドバイスをいただけ感謝しております。
今後ともよろしくお願いいたします。
No.2
- 回答日時:
ちょっと気になったので。
例えば、ファイルが、A、B、C とあった場合、合体ファイルに移動する順は?
ファイルA、B、Cの順で移動とか、C、B、Aの順とか。
それとも順不同?
もし移動順が決まっているとしたら、その基準は?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい 8 2022/09/07 15:12
- システム vba シートの追加について 2 2023/05/17 15:58
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Excel(エクセル) マクロか関数で処理したいのですが、教えて頂けませんか。 8 2022/10/31 15:18
- Excel(エクセル) フォルダ内の全ブックのシート名を変更したい 7 2022/09/22 21:34
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) Excelで、別シートの表のステータスに伴った動的な自動転記をしたいです。 2 2023/06/14 15:56
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) Excel ファイルを指定し、指定されたファイル内にシートを統合するVBA 8 2023/07/10 10:09
- Visual Basic(VBA) excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける 2 2022/08/11 05:33
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
複数ファイルから特定シートのコピー
Excel(エクセル)
-
Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい
Excel(エクセル)
-
フォルダ内の全ブックのシート名を変更したいです。
Excel(エクセル)
-
-
4
フォルダ内の複数ファイルから特定のシートを一括削除
その他(Microsoft Office)
-
5
複数のエクセルブックをひとつのブックにまとめる方法
Visual Basic(VBA)
-
6
別フォルダにある同じ名前のブックを結合したいのです。マクロでうまくできませんか?
Excel(エクセル)
-
7
同一フォルダ内の別ブックからシートをコピーするには? 「集計」フォルダ内に「項目別集計.xlms」と
Visual Basic(VBA)
-
8
複数のExcelブックから特定シートの特定セル抽出
その他(Microsoft Office)
-
9
複数エクセルから特定シートの特定行だけを別シートに抽出するマクロ
Excel(エクセル)
-
10
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
11
エクセルで複数シートのセルに同じ名前の定義を
Excel(エクセル)
-
12
Excel VBAである特定文字列を含むシート名例えば「りんご(1)」
Excel(エクセル)
-
13
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
14
特定の文字を含むシートだけマクロ処理をしたい
Visual Basic(VBA)
-
15
エクセルVBAで、ある文字を含んでいたら別シートに抽出したい
Excel(エクセル)
-
16
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
17
「社長様いますか」という営業電話に、そろそろガツンと言いたい
ビジネスマナー・ビジネス文書
-
18
【VBA】シート名に特定文字が入っていたらマクロを実行したいです。
Visual Basic(VBA)
-
19
VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください
Excel(エクセル)
-
20
フォルダ内の全ブックのシート名を変更したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
複数のExcelファイルにある同名...
-
FTPのgetとputの使いわけ。
-
彼女の過去の恋愛に嫉妬してし...
-
ファイルが移動してもリンクの...
-
CSVファイルの特定行の削除
-
iCloud for Windowsをアンイン...
-
vbsからのExcelマクロ呼び出し...
-
[Unity]シーンファイルの中が消...
-
エクセルのファイル:「自分」が...
-
File.delete()にてファイルを削...
-
HTMLのファイル移動について
-
WINDOWS CMDからゴミ箱のファ...
-
OneDrive必要なものでしょうか
-
フォルダ内の複数のファイルの...
-
WinPCのメモ帳を、アンドロ...
-
バインダーの作り方
-
ホームページビルダー16で未...
-
共有エクセルファイルでのユー...
-
ユーザーフォームをコピーする...
-
C# リッチテキスト形式のファイ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
CSVファイルの特定行の削除
-
彼女の過去の恋愛に嫉妬してし...
-
OneDrive必要なものでしょうか
-
EXCELVBAにて文字列にして「01...
-
vbsからのExcelマクロ呼び出し...
-
複数のExcelファイルにある同名...
-
Excel: ファイル名になぜ、[...
-
ファイルが移動してもリンクの...
-
FTPのgetとputの使いわけ。
-
iCloud for Windowsをアンイン...
-
VBAにおいて、ファイルの移...
-
docxをmht形式で保存したファイ...
-
Excelに貼り付けた画像を圧縮す...
-
5000個のtiffファイルをpdfへ変...
-
[Unity]シーンファイルの中が消...
-
自動で.xlsを閉じて指定フォル...
-
エクセルのファイル:「自分」が...
-
Googleドライブについて
-
htmlファイルを結合して一つの...
-
エクセルの固定範囲にCSVを貼り...
おすすめ情報