Option Explicit
Sub Merge_CSV_Files()
    Dim TXTFileName As String
    Dim XLSFileName As String
    Dim CSVFileName As String
    Dim DefPath As String
    Dim Wb As Workbook
    Dim oApp As Object
    Dim oFolder
    Dim foldername
 On Error GoTo errCsv

    'Create two temporary file names
    TXTFileName = Environ("Temp") & "AllCSV" & Format(Now, "dd-mm-yy-h-mm-ss") & ".txt"
    'TXTFileName = "C:!SRC!DigerProjelerCCIEBMSSCCIdataManuel_siparis.txt"
 

    ' Create path to xls file
    DefPath = App.Path
    If Right(DefPath, 1) <> "" Then
        DefPath = DefPath & ""
    End If
    XLSFileName = DefPath & "CSVExcel.xls"
    CSVFileName = DefPath & "output.csv"
    
    FileCopy CSVFileName, TXTFileName

    
    If Dir(TXTFileName) = "" Then
        MsgBox "CSV->TXT dosyasi bulunamadi"
        Exit Sub
    End If
    
    'Open the TXT file in Excel
    Application.ScreenUpdating = False
    Workbooks.OpenText FileName:=TXTFileName, Origin:=xlWindows, StartRow _
            :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
            ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False, _
            Space:=False, Other:=False, DecimalSeparator:=".", ThousandsSeparator:=",", _
            FieldInfo:=Array(Array(1, xlTextFormat), _
                            Array(2, xlTextFormat), _
                            Array(3, xlTextFormat), _
                            Array(4, xlTextFormat), _
                            Array(5, xlTextFormat), _
                            Array(6, xlTextFormat))

            
            
    


    'Save text file as a XLS file
    Set Wb = ActiveWorkbook
    Application.DisplayAlerts = False
    Wb.SaveAs FileName:=XLSFileName, FileFormat:=xlWorkbookNormal
    Application.DisplayAlerts = True
    
    
    Wb.Close savechanges:=False
    MsgBox "CSV dosyasi " & XLSFileName & " Excel dosyasina aktarildi"
    

    'Delete the bat and text file you have create
    Kill TXTFileName

    Application.ScreenUpdating = True
    Exit Sub
errCsv:
  MsgBox Err & ":" & Error
End Sub