<VBA>複数のエクセルファイルの1シ・・・に関する記事

"質問
<VBA>複数のエクセルファイルの1シート目をコピーし、新規のワークブックにマージして貼り付ける方法について複数のエクセルファイルの1シート目をコピーし、新規のワークブックにマージした形で貼り付ける方法についてご教授ください。<処理の概要>-----------------------------?ファイルの選択方法ファイルを開くボックスのダイアログを出現させ、任意のパスから複数のEXCELファイルを選択できるようにする。?新規ブックの作成新規ブックを作成する。Loop?対象データの取得上記で選択した複数のエクセルファイルを読み込み、1シート目のセルA6B6から最終行目のデータを対象とする。※空白のデータが出たら、次のファイルに進む。※レイアウトはどのファイルも同じ?処理?の対象データをコピーし、?で作成した新規ブックのA列、B列貼り付ける。(2つ目のファイル以降は、前のファイルで貼り付けたデータの最終行に貼り付ける)??で作成した新規ブックのC列に取り込み対象となったファイル名を記載endloop-------------です。以下、わかる範囲で、ソースを組んだのですが、ファイルのダイアログボックスで指定した複数のファイルに対して同様の操作を行う方法がわかりません。ご教授ください。-------------Sub Filepick()Dim FLDname As StringDim fname As StringDim Mymaxrow_copy As StringDim Mymaxrow_paste As StringDim Wk_copy As StringDim Wk_paste As String'1.ファイル選択のダイアログボックスを出力FLDname = "I:\\*.xls"fname = ""With Application.FileDialog(msoFileDialogFilePicker).InitialFileName = FLDname.AllowMultiSelect = TrueIf .Show = True Thenfname = .SelectedItems(1)End IfEnd With'2.選択したファイルをOPENWorkbooks.Open fname'3.選択したファイルのファイル名取得Wk_copy = ActiveWorkbook.Name'4.コピー先のファイル名の取得Wk_paste = Workbooks("Book1").Name'5.コピー元のファイルの最終レコードを取得Mymaxrow_copy = Workbooks(Wk_copy).Worksheets(1).Cells(Rows.Count

おすすめリンク

このカテゴリのページ一覧