excel的问题(50分)

Jenky.w · 2002-08-21

我是想将查询得到的数据直接保存指定在一个Excel文件中，之后操作者才 去找到这个文件，点击后打开 以下这段程序都不能实现我想要的功能，请知道的帮我修改一下 问题是它要弹出两次保存的窗口，excel应用程序还会闪过了，才消失 这都是我不需要的， 我要的是 指定文件—>保存 多谢！！ if savedialog1.Execute then  begin     ExcelID := CreateOleObject('Excel.Application');     ExcelID.Caption := '应用程序调用 Microsoft Excel';     ExcelID.WorkBooks.Add;     ExcelID.Cells[1,2].Value := '第一行第四列';   Excelid.save(savedialog1.FileName);   end;   Excelid.quit;

zm30 · 2002-08-21

var Excelid,workbook

levariant; begin    ExcelID := CreateOleObject('Excel.Application');    ExcelID.Caption := '应用程序调用 Microsoft Excel';    workbook:=ExcelID.WorkBooks.Add;    ExcelID.Cells[1,2].Value := '第一行第四列';    workbook.saveas('c:/b.xls');    workbook.Close;    ExcelID.quit;

Jenky.w · 2002-08-21

interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ComObj, Excel97, StdCtrls, DB, ADODB, OleServer,  Oledb; procedure TForm1.Button2Click(Sender: TObject); var  Excelida,workbook

levariant; begin  if savedialog1.Execute then   begin     ExcelIDa := CreateOleObject('Excel.Application');     ExcelIDa.Caption := '应用程序调用 Microsoft Excel';     workbook:= ExcelIDa.WorkBooks.Add;     ExcelIDa.Cells[1,2].Value := '第一行第四列';     workbook.saveas(savedialog1.FileName);     workbook.close;   end;   Excelid.quit; end; 兄弟，我将程序改成这样，但运行时出错的提示是 variant does not reference an automation object.

nfy · 2002-08-21

unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, DB, DBTables, Grids, DBGrids, Buttons,comobj; type   TForm1 = class(TForm)     DBGrid1: TDBGrid;     Table1: TTable;     DataSource1: TDataSource;     SpeedButton1: TSpeedButton;     SpeedButton2: TSpeedButton;     SpeedButton3: TSpeedButton;     procedure SpeedButton1Click(Sender: TObject);     procedure SpeedButton2Click(Sender: TObject);     procedure SpeedButton3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   varExcel:Variant; implementation {$R *.dfm} procedure TForm1.SpeedButton1Click(Sender: TObject);//打开EXCEL begin   varExcel:=Createoleobject('Excel.Application');   varExcel.Visible:=True;   if not varIsEmpty(varExcel)then    Begin     VarExcel.Workbooks.Add;     varExcel.Workbooks[1].Worksheets[1].name:='数据库'; //    PrintBtn.enabled:=True;     Application.BringToFront;    end; //   except //    showmessage('找不到Microsoft Excel'); //   end; end; procedure TForm1.SpeedButton2Click(Sender: TObject);//导出数据 Var  i,j:integer;  bookmark:Tbookmark; begin  table1.DisableControls;   Begin    For i:=0 to table1.FieldCount-1 do     varExcel.workbooks[1].worksheets[1].cells[1,i+1].value:=table1.fields.Displaylabel;   end;   try    bookmark:=table1.GetBookmark;    try     table1.First;     j:=2;     while not table1.Eof do      Begin       For i:=0 to table1.fieldcount-1 do        Begin         varExcel.workbooks[1].worksheets[1].cells[j,i+1].value:=table1.fields.asstring;        end;        table1.Next;        j:=j+1;      end;      Finally       table1.GotoBookmark(bookmark);       table1.FreeBookmark(bookmark);      end;      finally       table1.EnableControls;      end; end; procedure TForm1.SpeedButton3Click(Sender: TObject);//关闭保存 begin  if not varIsEmpty(varExcel)then   Begin    varExcel.DisplayAlerts:=False;    varExcel.Quit;   end; end;

excel的问题(50分)

Jenky.w

Unregistered / Unconfirmed

zm30

Unregistered / Unconfirmed

Jenky.w

Unregistered / Unconfirmed

nfy

Unregistered / Unconfirmed

Similar threads