已知文件名(test1.xls)及路径如何在DELPHI中调用excel打开此文件？

Question

用DELPHI 5 的TExcelApplication元件如何去开启一个Excel档？
TExcelApplication提供了很多函数，具体说明如下：
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password,WriteResPassword, 
IgnoreReadOnlyRecommended, Origin, Delimiter, Editable,Notify, Converter, AddToMRU)
expression必要的运算式。该运算式传回一个Workbooks物件或RecentFile物件。
FileName 必要的 String 资料型态。要开启的活页簿档案名称。
UpdateLinks 选择性的 Variant 资料型态。指定档案中的连结的更新模式。如果省略本引数，则提示使用
者选择连结的更新模式。否则，该引数的取值应为下表的某个值。
取值 意义
0 不更新任何叁照。
1 更新外部叁照，但不更新远端叁照。
2 更新远端叁照，但不更新外部叁照。
3 更新所有远端叁照和外部叁照。
如果 Microsoft Excel 正在开启以 WKS、WK1 或 WK3 格式储存的档案并且UpdateLinks 引数设为 2，则 
Microsoft Excel 根据与该档案关连的图形建立图表。如果该引数设为 0 ，则不建立任何图表。
ReadOnly  选择性的 Variant 资料型态。True 则以唯读模式开启活页簿。
Format  选择性的 Variant 资料型态。如果 Microsoft Excel 正在开启一个文字档，则该引数用於指定
分隔符号，如下表所示。如果省略本引数，则使用目前的分隔符号。
取值 分隔符号
1 跳格
2 逗号
3 空白
4 分号
5 没有分隔符号
6 自订字元（叁阅 Delimiter 叁数）
Password  选择性的 Variant 资料型态。该字串为用於开启一个受保护活页簿的密码。如果省略该引数并
且指定活页簿已设定密码，则提示使用者输入密码。
WriteResPassword  选择性的 Variant 资料型态。该字串为一个写入保护活页簿的写入权密码。如果省略
该叁数并且指定活页簿已设定密码，则提示使用者输入密码。
IgnoreReadOnlyRecommended  选择性的 Variant 资料型态。如果为 True 则设定Microsoft Excel 固
定不显示建议唯读讯息（如果该活页簿以 Read-Only Recommended选项储存）。
Origin  选择性的 Variant 资料型态。如果该档案为文字档，则该引数用於指示该档案的来自何种作业系
统（以便对字码页和输入键符号/换列（CR/LF）进行正确对应）。可为下列 XlPlatform 常数之一： 
xlMacintosh、 xlWindows 或 xlMSDOS。如果省略本引数，则使用目前作业系统。
Delimiter  选择性的 Variant 资料型态。如果该档案为文字档并且 Format 引数设为6，则此引数用於指
定用作分隔符号的字元。例如，可使用 Chr(9) 代表跳格，使用 "," 代表逗号，使用 ";" 代表分号或者使
用自订字元。如果该叁数为字串，则只使用该字串的第一个字元。
Editable  选择性的 Variant 资料型态。如果该档案为 Microsoft Excel 4.0 增益集，则该引数为 
True 时可在可见视窗中开启该增益集。如果该引数设为 False 或者省略该引数，则该增益集以隐藏模式开
启，并且无法设为可见。本选项无法适用於由Microsoft Excel 5.0 或更新版本的 Microsoft Excel 建
立的增益集。如果该档案是个 Excel 范本，True 则开启指定的范本进行编辑。False 则开启一个根据指定
的范本而建立的活页簿。预设值为 False。
Notify  选择性的 Variant 资料型态。如果该档案无法以可读写模式开启，则若该引数设为 True 可将该
档案新增到档案通知清单。 Microsoft Excel 将以唯读模式开启该档案并轮询档案通知清单，当档案通知
清单中的该档案可用时则通知使用者。如果该引数设为 False，或者省略该引数，则不请求任何通知，并且
无法开启任何无法使用的档案。
Converter  选择性的 Variant 资料型态。开启档案时试用的第一个档案转换程式的索引号。首先使用的是
指定的档案转换程式；如果该转换程式无法识别此档案，则试用所有的转换程式。转换程式索引号由 
FileConvertersxlproFileConverters>langref 方法所传回的转换程式列号组成。

Answer 1

Working With TExcelApplication:
http://www.undu.com/Articles/010316c.html

Answer 2

procedure TForm1.ListBox1DblClick(Sender: TObject);
var
  i: integer;
  fname: string;
begin
  fname := '你的路径文件名';
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    if ListBox1.Selected[i] then
      ShellExecute(handle, 'open', Pchar(fname), nil, nil, SW_SHOWNORMAL)
  end;
end;

Answer 3

if Listbox1.Items[SysList.Itemindex]<> '' then
  filelink(listbox.items[SysList.Itemindex]); 
procedure FileLink(URL: String);
var Tmp: PChar;
begin
   Tmp := PChar(URL);
   ShellExecute(0, nil, Tmp, nil, nil, SW_NORMAL);
end;

Answer 4

用shellexecute就行，查一下帮助就会很清楚了

Answer 5

其实如果像你所说的问题，文件类型有多种，那么technofantasy(www.applevb.com) 的方法就不适用了。你可以直接用
ShellExecute函数去打开

Answer 6

var
  ExcelApp :variant;
begin
  ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );
end;