
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ファイルの特定シートのみを1つのファイルに集約したい
- vba シートの追加について
- Excel VBAどこが間違ってますか?
- マクロか関数で処理したいのですが、教えて頂けませんか。
- フォルダ内の全ブックのシート名を変更したい
- 【困っています】VBA 追加処理の記述を教えてください。
- Excelで、別シートの表のステータスに伴った動的な自動転記をしたいです。
- エクセルのマクロについて教えてください。
- Excel ファイルを指定し、指定されたファイル内にシートを統合するVBA
- excelにて、特定の列に数字入力してあれば、入力してある行コピーして 別ファイルに張り付ける
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
複数ファイルから特定シートのコピー
Excel(エクセル)
-
複数のExcelブックから特定シートの特定セル抽出
その他(Microsoft Office)
-
複数エクセルから特定シートの特定行だけを別シートに抽出するマクロ
Excel(エクセル)
-
-
4
別フォルダにある同じ名前のブックを結合したいのです。マクロでうまくできませんか?
Excel(エクセル)
-
5
Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい
Excel(エクセル)
-
6
フォルダ内の複数ファイルから特定のシートを一括削除
その他(Microsoft Office)
-
7
フォルダ内の全ブックのシート名を変更したいです。
Excel(エクセル)
-
8
複数のエクセルブックをひとつのブックにまとめる方法
Visual Basic(VBA)
-
9
Excelで、複数ブックの複数シートを削除するマクロを教えて下さい
Excel(エクセル)
-
10
複数ファイルにある特定のシートを一度に印刷したい
Excel(エクセル)
-
11
ブックを開かずに、フォルダ内にある複数ブックの、特定セルの値を抽出した
Excel(エクセル)
-
12
フォルダ内の複数ブック・シートを一括保護/解除する
PowerPoint(パワーポイント)
-
13
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
14
同一フォルダ内の別ブックからシートをコピーするには? 「集計」フォルダ内に「項目別集計.xlms」と
Visual Basic(VBA)
-
15
特定のシート名のシートのみ除外して、それ以外のシート名のシートをすべて集約する方法(VBA)
Excel(エクセル)
-
16
フォルダ内の複数ファイルから、特定セルだけを抽出し、並び替えて集約したい
Excel(エクセル)
-
17
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
18
複数シートの同じセル内容を1シートに順番に貼り付けたい
その他(Microsoft Office)
-
19
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
20
マクロ初心者です、エクセルでファイルの読込フォルダを固定から選択式に変更したいです。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
CSVファイルの特定行の削除
-
複数のExcelファイルにある同名...
-
vbsからのExcelマクロ呼び出し...
-
エクセルで移動したシートを復...
-
ファイルが移動してもリンクの...
-
EXCELVBAにて文字列にして「01...
-
[Unity]シーンファイルの中が消...
-
エクセル保存終了で一時ファイ...
-
Excel: ファイル名になぜ、[...
-
Googleドライブについて
-
WINDOWS CMDからゴミ箱のファ...
-
C# リッチテキスト形式のファイ...
-
彼女の過去の恋愛に嫉妬してし...
-
OneDrive必要なものでしょうか
-
VBAにおいて、ファイルの移...
-
WinPCのメモ帳を、アンドロ...
-
エクセルのファイル:「自分」が...
-
5000個のtiffファイルをpdfへ変...
-
HTMLのリンクで、EXCELをIEでは...
-
VBA ファイル一覧を取得して全...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
CSVファイルの特定行の削除
-
vbsからのExcelマクロ呼び出し...
-
OneDrive必要なものでしょうか
-
複数のExcelファイルにある同名...
-
ファイルが移動してもリンクの...
-
EXCELVBAにて文字列にして「01...
-
VBAにおいて、ファイルの移...
-
Excel: ファイル名になぜ、[...
-
HTMLのリンクで、EXCELをIEでは...
-
batでファイル名を変更したい(...
-
FTPのgetとputの使いわけ。
-
WINDOWS CMDからゴミ箱のファ...
-
[Unity]シーンファイルの中が消...
-
Googleドライブについて
-
自動で.xlsを閉じて指定フォル...
-
エクセル保存終了で一時ファイ...
-
このファイルは外部のエディタ...
-
エクセルのファイル:「自分」が...
-
VBSでフォルダ内の最新のファイ...
-
5000個のtiffファイルをpdfへ変...
おすすめ情報