TextFilePromptOnRefresh Property Example

This example prompts the user for the name of the text file whenever the query table on the first worksheet in the first workbook is refreshed.

Set shFirstQtr = Workbooks(1).Worksheets(1) 
Set qtQtrResults = shFirstQtr.QueryTables _
    .Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
        Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
    .TextFileParseType = xlDelimited
    .TextFilePromptOnRefresh = True
    .TextFileTabDelimiter = True
    .Refresh
End With