我现在想在DELPHI当中运用命令直接打开EXCEL文件如何实现,
是EXCEL直接运行起来打开文件的那种。
请贴出一个小例子,谢谢!
是EXCEL直接运行起来打开文件的那种。
请贴出一个小例子,谢谢!
解决方案 »
- 原本是用VCL组件开发的程序现在想在LINUX下,应该怎么改
- AdvStringGrid光条指定到条件行
- 怎么把Stringgrid存为Excel?
- 问下关于Delphi 编译的问题
- 有尝聘delphi技术版主一名,有兴趣的朋友进来瞧瞧:)
- 祝冰儿马假(陈锐)这个JR生日快乐!
- 请指点:急!希望数据自动输出到指定的Excel文件,然后自动保存不需要提示覆盖或保存。
- 用dephi7的朋友帮忙看一下啊,socket传输的问题
- FlatStyle2.1在我这好像有问题,大家碰到过吗?官方网站上什么?
- 我发言:
- 如何动态的将BDE的TDATABASE控件和mssqlserver连接起来.
- 有关声明方法的问题,请各位大侠帮帮我。
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。
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
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;