none
여러개의 텍스트 파일을 텍스트 나누어 excel 파일로 일괄 변환하기 RRS feed

  • 질문

  • 여러개의 dat파일을 일괄적으로 excel로 바꾸는 것은 아래 매크로로 하여 할 수 있겠는데요..

    파일을 excel로 바꿀때 텍스트가 공백인 것은 나누어서 바꾸고 싶은데, 그럼 매크로를 어떻게 수정해야 하나요?

    Sub DATtoXLS()
    'UpdatebyExtendoffice20170814
        Dim xFd As FileDialog
        Dim xSPath As String
        Dim xDATFile 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 + "\"
        xDATFile = Dir(xSPath & "*.dat")
        Do While xDATFile <> ""
            Application.StatusBar = "Converting: " & xDATFile
            Workbooks.Open Filename:=xSPath & xDATFile
            ActiveWorkbook.SaveAs Replace(xSPath & xDATFile, ".dat", ".xls", vbTextCompare), xlNormal
        Loop
        Application.StatusBar = False
        Application.DisplayAlerts = True
    End Sub

    2018년 8월 31일 금요일 오후 10:10