delphi中如何可以打开现有的一个excel文件，用相对路径有工程文件同一目录下。

Question

v.WorkBooks.Open( 'e:\1.xls' );可以打开绝对路径的一个excel文件。
我想打开工程文件同一目录下个excel文件。v.WorkBooks.Open( '\1.xls' );
v.WorkBooks.Open( '.\1.xls' );v.WorkBooks.Open( '1.xls' );都不行，
要如何实现。

Answer 1

var Appdir:string;...
v.WorkBooks.Open(Getdir(Appdir,0)+'\filename.xls');

Answer 2

v.workbooks.open(ExtractFilePath(Application.ExeName)+'filename.xls')

Answer 3

var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );

Answer 4

ExcelApp.WorkBooks.Open(ExtractFilePath(Application.ExeName)+ 'C:\Excel\Demo.xls' );