求教：为什么sql数据库导入excel文件时没有台头字段？？？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
    i,j:   integer;
begin
    If   MessageDlg( 'ÕæµÄÒªµ¼µ½ExcelÂð£¿',mtConfirmation,[mbYes,mbNo],0) <>IDYES   then
    begin
        Exit;
    end;
        ExcelApplication1.Connect;
        ExcelApplication1.Visible[0]:=True;
    Try
        ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));
        ExcelWorkSheet1.ConnectTo(ExcelApplication1.Worksheets[1]   as   _WorkSheet);
    Except
        ShowMessage('Failure');
    End;
        j:=1;
    with ADOQuery1 do
    begin
        adoquery1.Open;
        First;
        while   not   Eof   do
         begin
            for   i   :=   1   to   FieldCount   do
             begin
                ExcelWorkSheet1.Cells.Item[j,i]:=Fields[i-1].AsString;
         end;
        inc(j);
        next;
        end;
    end;
    ADOQuery1.First;
    //ADOQuery1.Close;
   end;
end.

Answer 1

您只能输入 8000 个字符（就不多说了）