用什么函数可以找出本机上EXCEL文件的路径？

Question

我想在窗口中建一个BUTTON，单击打开一个EXCEL新建文档？急，请各位大侠帮忙!!

Answer 1

try
     //excelapplication1.Quit;
     excelapplication1.Connect;
     excelapplication1.Workbooks.Add(emptyparam,0);
     excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
     excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _worksheet);
     
  except
     excelapplication1.Quit;
     excelworksheet1.Disconnect;
     excelworkbook1.Disconnect;
     excelapplication1.Disconnect;
     showmessage('请关闭所有EXCEL文件,如果没有安装EXCEL软件,请安装!');
     exit;
  end;

Answer 2

excelapplication1是什么呀，看不懂，也无法执行呀

Answer 3

excelapplication1是Server里的组件

Answer 4

首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );打开已存在的工作簿：
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );