关于Excel的QueryTables导出功能 请进详看

Question

procedure TSpreadSheetExchange.SetDataSetToExcelApp(strConnectionString:string;strSQL:string;isShowHeader:boolean=true);
var
    xlApp,xlBook,xlSheet,xlQuery: Variant;
    adoConnection,adoRecordset: Variant;
begin
    adoConnection := CreateOleObject('ADODB.Connection');
    adoRecordset := CreateOleObject('ADODB.Recordset');
    adoConnection.Open(strConnectionString);
    adoRecordset.CursorLocation := 3;//adUseClient;
    adoRecordset.Open(strSQL,adoConnection,1,3);
    xlApp := CreateOleObject('Excel.Application');
    xlBook := xlApp.Workbooks.Add;
    xlSheet := xlBook.Worksheets['sheet1'];
    xlApp.Visible := True;
    {把数据集导入EXCEL数据}    xlQuery := xlSheet.QueryTables.Add(adoRecordset,xlSheet.Range['A1']);
    {关键是以上这一句}    xlQuery.FieldNames := isShowHeader; //？
    xlQuery.RowNumbers := False;
    xlQuery.FillAdjacentFormulas := False;
    xlQuery.PreserveFormatting := True;
    xlQuery.RefreshOnFileOpen := False;
    xlQuery.BackgroundQuery := True;
    //xlQuery.RefreshStyle := xlInsertDeleteCells;
    xlQuery.SavePassword := True;
    xlQuery.SaveData := True;
    xlQuery.AdjustColumnWidth := True;
    xlQuery.RefreshPeriod := 0;
    xlQuery.PreserveColumnInfo := True;
    xlQuery.FieldNames := True;
    xlQuery.Refresh;    xlApp := Unassigned;
    xlBook := Unassigned;
    xlSheet := Unassigned;
    xlQuery := Unassigned;end;
xlQuery的各个属性的含义是什么 为何这个方式不能导出SQLServer的二进制字段如:Image,varbinary 现需要导出这种字段类型 用此方式怎么实现 需要改动那些属性
 谢谢  

Answer 1

经过自己摸索 可能这样是不支持导出长二进制类型的 可是怎么揭帖呢 郁闷