with oExcel.ActiveWorkBook.ActiveSheet .QueryTables.Add('TEXT;'+sys(5)+curdir()+'mytext.txt',.Range('A1')) endwith
use myTable Copy to (lcFileName) type delimited with TAB With oExcel.ActiveWorkbook.ActiveSheet With .QueryTables.Add("TEXT;"+lcFileName, .Range("A1")) .Name = "Page "+ltrim(str(1)) .BackgroundQuery = .T. .AdjustColumnWidth = .T. .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileTabDelimiter = .T. .Refresh(.F.) Endwith EndwithCetin