procedure TForm1.Button1Click(Sender: TObject);
begin
try app1.Connect;
except
messagedlg('系统没有安装WORD',mterror,[mbok],0);
abort;
end;
app1.Workbooks.Open('c:/temp/1.xls',emptyparam,false,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,1);
ework.ConnectTo(app1.workbooks[1]);
wsheet1.ConnectTo(ework.Sheets[1] as _worksheet);
wsheet1.Rows.Clear;
ework.Close(true);
app1.Disconnect;
end;
VBA里面到处有的是帮助。