excelquerytable控件使用

Question

ReadyFile( 'c:\tmp ',ADOQuery1);//把Query1里面的数据导入到c:\tmp2这个文本文件里面
Text2Excel_Format:=InitFormatA(ADOQuery1);//通过分析Query1获得导入excel的格式参数try
    ExcelApplication1.Connect;
    ExcelApplication1.Visible[0]:=True;
    ExcelApplication1.Workbooks.Add(NULL,0);
    ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[ExcelApplication1.Workbooks.Count]);
    ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1]   as   _WorkSheet);
    //开始连接EXCELQueryTables
    ExcelWorkSheet1.QueryTables.Add( 'TEXT; '+ 'C:\tmp ',ExcelWorkSheet1.Range      [ 'A1 ', 'A1 '],EmptyParam);//设置Excel需要导入的数据是c:\tmp的文本
    ExcelQueryTable1.ConnectTo(ExcelWorkSheet1.QueryTables[1]   as   _QueryTable);
    ExcelQueryTable1.TextFileColumnDataTypes:=Text2Excel_Format;//设置导入格式
    ExcelQueryTable1.Refresh;//刷新以后就获得数据了.
finally
        ExcelQueryTable1.Disconnect;
    ExcelWorkSheet1.Disconnect;
    ExcelWorkBook1.Disconnect;
    ExcelApplication1.Disconnect;
红色部分怎么显示未定义呢，这是我网上找的代码！！！求解