In diesem Beispiel wird das einfache Anführungszeichen als Texterkennungszeichen für die Abfragetabelle im ersten Tabellenblatt der ersten Arbeitsmappe festgelegt.
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
.TextFileTextQualifier = xlTextQualifierSingleQuote
.Refresh
End With