我想用代码让OFFICE打开一个文件比如说C:\abc.xls,应该怎么写呀？大虾快来帮我~~！

Question

我想用代码让OFFICE打开一个文件比如说C:\abc.xls,应该怎么写呀？大虾快来帮我~~！

Answer 1

最简单的方法：
winexec('open abc.xls',1) 
嘿嘿

Answer 2

用createoleobject吧，创建打开随便你，爽死了

Answer 3

var
  eclApp, srcWorkBook: Variant;
begin
    try
      eclApp := CreateOleObject('Excel.Application');
      srcWorkBook := CreateOleobject('Excel.Sheet');
    except
      Result := 'Microsoft Excel Not Support In Your System!';
      Exit;
    end;
    srcWorkBook := eclApp.WorkBooks.Open('YourFileName');

Answer 4

同意楼上的方法
我一般也用这种方法处理excel文件

Answer 5

我晕，用了楼上的方法，进程里多了个EXCEL.EXE，可是文件还是没打开，用WINEXEC也不行啊~~~~~哭

Answer 6

var
  eclApp, srcWorkBook: Variant;
begin
    try
      eclApp := CreateOleObject('Excel.Application');
      srcWorkBook := CreateOleobject('Excel.Sheet');
    except
      Result := 'Microsoft Excel Not Support In Your System!';
      Exit;
    end;
    srcWorkBook := eclApp.WorkBooks.Open('YourFileName');
    eclApp.Visible := true;
end;