打开EXCEL文件,超简单的问题!立即加分。

qzg 2003-08-03 03:43:41
我现在想在DELPHI当中运用命令直接打开EXCEL文件如何实现,
是EXCEL直接运行起来打开文件的那种。
请贴出一个小例子,谢谢!
...全文
31 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
李_军 2003-08-03
  • 打赏
  • 举报
回复
procedure TfrmSG.Button1Click(Sender: TObject); //uses Excel2000 , ComObj
var
pc_i:integer;
xlapp,sheet: variant;
WBK: OleVariant;
begin
xlapp := createoleobject('excel.application');
xlapp.visible := True; //Excel是否可见
if Trim(Edit1.Text)='' then
begin
Application.MessageBox('文件名不能为空','警告',MB_OK);
Exit;
end;
WBK := xlapp.workbooks.Open(Edit1.Text);
sheet := xlapp.workbooks[1].worksheets['sheet1'];
sheet.Cells.SpecialCells(XlCellTypeLastCell,EmptyParam).Activate;

//showmessage(IntToStr(xlapp.ActiveCell.Row));
//showmessage(IntToStr(xlapp.ActiveCell.Column));
//excelworksheet2.UsedRange[1].Rows.Count));
//excelworksheet2.UsedRange[1].Columns.Count));
pc_i:=1;
Edit2.Text := sheet.cells[pc_i,1]; //写入的话用 sheet.cells[pc_i,1] := Edit2.Tex;
WBK.Close(SaveChanges := True);
xlapp.Quit;
end;
wdsimon 2003-08-03
  • 打赏
  • 举报
回复
修正:

类似问题自己搜索一下,太多答案了。

procedure TForm1.Button2Click(Sender: TObject);
var
excelapp:variant;
begin
try
excelapp:=CreateOleObject('Excel.application');
excelapp.workbooks.open('c:\book1.xls');
excelapp.worksheets[1].activate;
excelapp.visible:=true;
finally
exit;
end;
end;

注意,在uses包含ComObj
wdsimon 2003-08-03
  • 打赏
  • 举报
回复
procedure TForm1.Button2Click(Sender: TObject);
var
excelapp:variant;

类似问题自己搜索一下,太多答案了。
begin
try
excelapp:=CreateOleObject('Excel.application');
excelapp.workbooks.open('c:\book1.xls');
excelapp.worksheets[1].activate;
excelapp.visible:=true;
finally
exit;
end;
end;

注意,在uses包含ComObj。

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧