long ll_rc
oleobject lo_excelapp
lo_excelapp = create oleobject
ll_rc = lo_excelapp.connecttonewobject("Excel.Application")
if ll_rc <> 0 then
destroy(lo_excelapp)
return
end if
lo_excelapp.WorkBooks.Open( 'D:\temp\test2.xls' );
lo_excelapp.WorkSheets[2].Activate
lo_excelapp.Cells[1,4].Value = '第一行第四列';
lo_excelapp.WorkBooks.Close;
lo_excelapp.Quit;
执行到 lo_excelapp.WorkBooks.Open( 'D:\temp\test2.xls' );时闪退,会不会跟我的系统有关,我的系统是win7 64位 Office2007