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