[[20061229180453]] 『複数のCSVファイルを纏めたい』(zzz・・・) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『複数の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さん

感動です。

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

ソレイユ


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.