Deleting External Connections

Hello,

I've got one workbook that I use as a template to generate reports. It parses different files and puts into into a readable format. This workbook is taking longer and longer for it to open and save so I am trying to speed it up. I think part of this is due to all the external connections that have been stored in the workbook. Unfortunately, if I try to delete these connections, my macro is no longer able to load up the file. Is there a better way of doing this?

I should note that the files are constantly changing. So a file named 0418.csv may be different tomorrow than what it is today and a new report is generated. So each time I run my report macro, I clear out the imported data and reload the file. It appears that this has caused multiple connections like 04181, 04182, 04183,etc.

Please help!

Also, I just noticed this so there are a couple hundred external connections. If I try to select all and remove, it locks up and crashes Excel. Does anyone have a macro that would clean this up better?

Thanks!

Thanks, Leith. I am still having a hard time reestablishing the connection to pull that same file and generating a new report (i.e. when I remove the connection 0418.csv and then rerun my macro to repull the new 0418.csv file, I get the cannot connect error). I'm hoping there is an easy way to generate new connections automatically without too much hassle.

Sheets("Data").Select
    Cells.Select
    Range("S1").Activate
    Selection.QueryTable.Delete
    Selection.ClearContents
    Range("A1").Select
    
    
    Worksheets("Data").Cells.Clear
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" + csvPath & FileName, Destination:=Range("$A$1"))
        .Name = FileName
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

Would there be a better way to reconnect a connection (or rather start a new one) than this line?

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" + csvPath & FileName, Destination:=Range("$A$1"))