[[20061229180453]]　『複数のCSVファイルを纏めたい』（zzz･･･）　ページの最後に飛ぶ

『複数のCSVファイルを纏めたい』（zzz･･･）

困っております。ご教授お願いします。

複数のCSVファイルを、エクセルブックの各ワークシートへ
それぞれインポートしたいのですが･･･

CSVファイルが約50ファイルあり毎回コピーして貼り付けるのは
時間が掛かり困っております。

マクロ等何か良い方法は御座いませんか？

宜しくお願い致します。

 CSVファイルをすべて同じフォルダに入れてください。
 BOOKを作成し、以下のマクロを標準モジュールにコピペしてください。
 これもCSVファイルと同じフォルダに保存してください。
 直接読み込む方法もあると思いますので、それは、別な方にお任せします。
 65536行を超えるCSVファイルはエラーとなります。
                 （SHIOJII)
 Sub CSV読み込み()
    Dim myFile As String
    Dim myPath As String
    Dim newWB As Workbook

    myPath = ThisWorkbook.Path & "\"
    myFile = Dir(myPath & "*.csv")
    Do Until myFile = ""
       Set newWB = Workbooks.Open(myPath & myFile)
       newWB.Sheets(1).Copy Before:=ThisWorkbook.Sheets(1)
       newWB.Close False
       myFile = Dir()
    Loop
 End Sub

SHIOJIIさん

ありがとう御座います。

早速実行します。

SHIOJIIさん

感動です。

出来ました。ありがとうございました。

ソレイユ

コメント返信：

[ 一覧(最新更新順) ]

[[20061229180453]] 『複数のCSVファイルを纏めたい』（zzz･･･） ページの最後に飛ぶ

[[20061229180453]]　『複数のCSVファイルを纏めたい』（zzz･･･）　ページの最後に飛ぶ