begin
try
ExcelApplication1.Connect;
Except
MessageDlg('Excel may not be installed!',mtError,[mbOK],0);
abort;
end;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel连接';
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add('E:\moban.xlt',0));
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
ExcelApplication1.Disconnect;
end;运行时有候不出错,有时出错.
错误信息是"Access violation at address 00403701 in module ..."
为什么会出现这样的情况啊?大家帮个忙..
try
ExcelApplication1.Connect;
Except
MessageDlg('Excel may not be installed!',mtError,[mbOK],0);
abort;
end;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel连接';
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add('E:\moban.xlt',0));
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);
ExcelApplication1.Disconnect;
end;运行时有候不出错,有时出错.
错误信息是"Access violation at address 00403701 in module ..."
为什么会出现这样的情况啊?大家帮个忙..
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货