複数のエクセルファイルからデータ抽出とまとめる方法について。

質問

500のエクセルファイルがあり、それぞれのエクセルデータのＡ２からＦ２までのデータのをまとめた一覧表（１行目は、１枚目のエクセルファイルのＡ２－Ｆ２、２行目は２枚目のエクセルファイルの・・・、という感じでです）のを、新しいエクセルファイルもしくはテキストなどにでも手早く作れる方法をご存知の方、ご教授ください。コピペでやっていますが嫌になってしまいました。。マクロも触っては見たのですが、２枚目のエクセルファイルを２行目に、３枚目のエクセルファイルを３行目になどの方法の解決は思いつかず、挫折しました。よろしくお願いいたします

回答No.5

squip

path は、適切なフルパスに変更してください。
ファイル名は、1.xls、2.xls、... 500.xls と想定しています、これ以外の形式の場合は、filename を変更します。
シート名は、Sheet1 と想定しています、これ以外の場合は、postfix 内の対応する文字列を変更します。

定数を適切に変更して実行できたら、'// 注意 としている行の "A1:F2" を "A1:F500" に変更します。
上記内容がわからない場合、以下のコードは実行しない方がよいと思います。

Sub do_it()
　　Const path As String = "=""C:\Documents and Settings\Guest\My Documents\[""&"
　　Const filename As String = "ROW()"
　　Const postfix As String = "&"".xls]Sheet1'!R2C"""
　　Dim src As Range
　　Set src = Range("A1:F2")　'// 注意
　　With src.Columns(1)
　　　　.FormulaR1C1 = path + filename + postfix
　　　　.FormulaR1C1 = .Value
　　End With
　　Dim it As Range
　　For Each it In src.Columns(1).Cells
　　　　it.FormulaR1C1 = "='" + it.Value
　　Next
　　src.Columns(1).AutoFill src
　　src.FormulaR1C1 = src.Value
　　Set src = Nothing
End Sub

お礼

有難うございます。No.4さんのマクロで手一杯でまだ分解解析を行えておりません。後ほどこのマクロからも勉強させていただきます。
私の質問にお答えいただき有難うございました。
ご厚意に厚く御礼申し上げます。