複数のCSVファイルをEXCELファイルに変換する

Question

PPPPというフォルダに複数のCSVファイルがあります。
その中の１個のCSVファイル 1.csv　を開いて　1.xlsx　に名前を付けて保存し
この　1.xlsxのファイルを閉じるようにする。

このコードを下記に示します。

Workbooks.OpenText Filename:=ThisWorkbook.Path & "\1.csv"
ActiveWorkbook.SaveAs Filename:="C:\Users\nao\Desktop\pppp\1.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close

それで１個のならうまくいくのですがもしcsvファイルが複数(100個)存在するときにはどのようにファイルを指定すればいいでしょうか？

ご教示をお願いします。
丸投げみたいですいません。

Comments

[Zuishin]

100 回行えばいいでしょう。

Answer 1

Sub sample()
    Dim fso 'As Scripting.FileSystemObject
    Dim f 'As Scripting.File
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each f In fso.GetFolder(ThisWorkbook.Path).Files
        If fso.GetExtensionName(f.Path) = "csv" Then
            csvtoxlsx f.Path, fso.BuildPath("C:\Users\nao\Desktop\pppp\", fso.GetBaseName(f.Path) & ".xslx")
        End If
    Next
End Sub

Function csvtoxlsx(csvName, xlsxName)
    Workbooks.OpenText Filename:=csvName
    ActiveWorkbook.SaveAs Filename:=xlsxName, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWorkbook.Close
End Function