複数のcsvをそれぞれのシートに分けてExcelファイルとしてインポートする方法 - purazumakoiの[はてなブログ]結論から言うと こちらの方法でできました www.excel.studio-kazu.jp ※ 65536行を超えるCSVファイルはエラーとなります。 手順 １．CSV達と新規BOOKを同じフォルダにいれる ２．標準モジュール（ALT＋F11）を開き以下のコードを適当にsheet1のあたりに入れて「実行」する 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:=ThisWork
![複数のcsvをそれぞれのシートに分けてExcelファイルとしてインポートする方法 - purazumakoiの[はてなブログ]](https://cdn-ak-scissors.b.st-hatena.com/image/square/87ca8dec1504bdebda8cd16c1759ff8d3b46ad4b/height=288;version=1;width=512/https%3A%2F%2Fcdn.image.st-hatena.com%2Fimage%2Fscale%2Fd61b1087cce2f6f78681846bafe90cba40ee04fe%2Fbackend%3Dimagemagick%3Bheight%3D1200%3Bversion%3D1%3Bwidth%3D1200%2Fhttps%253A%252F%252Fcdn-ak.f.st-hatena.com%252Fimages%252Ffotolife%252Fp%252Fpurazumakoi%252F20180606%252F20180606164019.png)
