Excel에서 여러 CSV 파일을 XLS(X) 파일로 일괄 변환하는 방법은 무엇입니까?

CSV 파일을 XLS 또는 XLSX 파일로 변환하는 것은 '다른 이름으로 저장' 기능을 사용하면 매우 쉽습니다. 그러나 폴더에서 여러 CSV 파일을 하나씩 수동으로 저장하여 XLS 또는 XLSX 파일로 변환하는 것은 시간이 많이 소요됩니다. 여기에서는 한 폴더의 모든 CSV 파일을 빠르게 일괄 변환할 수 있는 매크로 코드를 소개합니다.

매크로 코드를 사용하여 CSV 파일을 XLS(X) 파일로 일괄 변환

매크로 코드를 사용하여 CSV 파일을 XLS(X) 파일로 일괄 변환

한 폴더에서 여러 CSV 파일을 XLS(X) 파일로 변환하려면 아래 단계를 따르세요:

1. 새 통합 문서를 열고 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 열고 삽입 > 모듈을 클릭하세요. 스크린샷 보기:

참고: 변환하려는 모든 CSV 파일이 닫혀 있는지 확인하세요.

2. 그런 다음 아래 매크로 코드를 모듈 스크립트에 붙여넣고 F5 키를 눌러 코드를 실행합니다.

VBA: CSV를 XLS로 변환

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. 나타나는 대화 상자에서 변환하려는 CSV 파일이 포함된 지정된 폴더를 선택하세요. 스크린샷 보기:

4. 클릭 확인, 선택한 폴더의 모든 CSV 파일이 해당 폴더 내에서 XLS 파일로 변환되었습니다.

팁: CSV 파일을 XLSX 파일로 변환하려면 아래 VBA 코드를 사용하세요.

VBA: CSV 파일을 XLSX로 변환

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

관련 기사:

• csv 파일을 xls 파일로 변환하거나 Excel에서 csv를 가져오거나 여는 방법은 무엇입니까?
• 워드 문서를 엑셀 워크시트로 변환하는 방법은 무엇입니까?