如何在delphi dbgrid中的数据用表格形式转换成word excel 和html?
启动word excel的代码是什么?有没有参考资料,谢谢

解决方案 »

  1.   

    var msword:olevariant;
    begin
      try
      msword:=createoleobject('word.basic');
    except
      showmessage('不能启动microsoft word,退出');
      exit;
    end;
      

  2.   

    在word里如何输入文字,表格??
      

  3.   

    导出DBGrid为Word表格。procedure TForm1.Button1Click(Sender: TObject);
    var
      WordApp,WordDoc,WordTable:OleVariant;
      i,j:integer;
    begin
      WordApp:=CreateOleObject('Word.Application');
      WordApp.Visible:=True;
      WordDoc:=WordApp.Documents.Add;
      WordTable:=WordDoc.Tables.Add(WordApp.Selection.Range,DBGrid1.DataSource.DataSet.RecordCount+1,DBGrid1.Columns.Count);
      for i:=1 to DBGrid1.Columns.Count do
      WordTable.Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Title.Caption);
      i:=2;
      with DBGrid1.DataSource.DataSet do
      while not eof do
      begin
        for j:=1 to DBGrid1.Columns.Count do
          WordTable.Cell(i,j).Range.InsertAfter(DBGrid1.Columns[j-1].Field.Value);
        Next;
        Inc(i);
      end;
    end;
      

  4.   

    最好使用smexport控件,可以导出为你所要求的所有控件。