Excel Forum

Code: Select all

Sub Test()
    Dim fileFilterPattern As String, fileToOpen As String
    fileFilterPattern = "Text Files (*.txt; *.csv),*.txt;*.csv"
    fileToOpen = Application.GetOpenFilename(fileFilterPattern)
    If fileToOpen = "False" Then Exit Sub
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fileToOpen, _
        Destination:=Sheets("Data").Range("A3"))
        .PreserveFormatting = True
        .TextFilePlatform = 65001 
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
        .RefreshStyle = xlOverwriteCells
        .Refresh BackgroundQuery:=False
        ActiveWorkbook.Connections(1).Delete
    End With
End Sub