如何用Excelworksheet打开一个已经存在的Excel文件!急用!!请帮忙!!!(100分)

  • 主题发起人 主题发起人 zouzujun
  • 开始时间 开始时间
Z

zouzujun

Unregistered / Unconfirmed
GUEST, unregistred user!
我用DELPHI中Servers组件中的Excelapplication,ExcelWorkBook,ExcelWorksheet等组件对
Excel工作薄,工作表等进行控制.我用"ExcelWorksheet1.ConnectTo
(ExcelWorkbook1.Worksheets[1] as _Worksheet)"建立了一个新的工作表.但是我
不知道如何打开一个已经存在的Excel文件!
刚接触Delphi没多久,我不知到这问题难不难,只好选了中!
请帮忙,多谢多谢!!
 
ExcelApplication1: TExcelApplication;
WkBk: TExcelWorkbook;
WS: TExcelWorksheet;

procedure TMain.OpenItClick(Sender: TObject);
var
Filename: OleVariant;
lcid: integer;
begin
if Opendialog1.Execute then
Filename := Opendialog1.Filename;
ExcelApplication1.Workbooks.Open(Filename, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, lcid);
lcid := GetUserDefaultLCID;
ExcelApplication1.Visible[lcid] := True;
WkBk.ConnectTo(ExcelApplication1.Workbooks[1]);
WS.ConnectTo(WkBk.Worksheets[1] as _Worksheet);
end;
 
下面是用OLE方法动态打开Excel文件的方法(用Server组件的方法也是差不多的):
var ExcelApp:Variant;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.visible:=true;
ExcelApp.Caption:='应用程序调用 Microsoft Excel';
//ExcelApp.WorkBooks.Add; //新增工作簿
ExcelApp.workBooks.Open('C:/My Documents/Ca09lin1.xls'); //打开已存在工作簿
End
 
因为我弄不明白的是SERVER的ExcelApplication1.Workbooks.Open()括号里的那
那些参数,所以只有这样送分了.感谢HunterTeam的帮助,多谢linsb兄的热心.
 
后退
顶部