程序在对excel操作时一般都是要先打开一个excel文件然后对excel文件进行各种操作,有没有办法在程序操作excel文件的时候,可以同时手工操作另一个文件。
解决方案 »
- BDE/ADO连接数据库问题......
- 问一个语法问题,下面这句VB语言转化为DELPHI应该是什么?请高手作答,谢谢!
- 书籍?
- stringgrid排序?
- 难道这里没有DELPHI高手了吗?这个问题居然没有人会????????
- 象我这样的程序员在北京能挣多少钱?
- 求助!!(关于动态生成饼图,方图的问题)50分寻求如何用程序修改DBChart1的Series的Data Source的Bar值。(各位高手可以试试,不要错过)
- 用Delphi生成6M多的EXE文件﹐連接SQL Server用ADO,當運行開始至出現密碼登錄窗口要長達20秒左右﹗﹗﹗
- 我是刚学delphi的菜鸟,有几些问题想请教
- IP地址输入框是怎么做的?
- delphi 中如何动态地合并Excel的单元格,以及设置单元格的对齐方式,字体样式等???
- 賤於上貼結的太快,再散分.
而且会报错~!
procedure TForm1.open_excel;
var
filepath:string;
str:string;
begin
//打开Excel文档模板
filepath:=extractfilepath(application.ExeName);
str:=get_document;
//如果目标Excel文件已经存在,则打开现存文件
if fileexists(filepath+'report\'+str+'\'+excel_name+'.xls') then
begin
excelapp.Workbooks.Open(filepath+'report\'+str+'\'+excel_name+'.xls',emptyparam,emptyparam,emptyparam,
emptyparam,emptyparam,emptyparam,
emptyparam,emptyparam,emptyparam,
emptyparam,emptyparam,emptyparam,0)
end
else
begin
excelapp.Workbooks.Open(filepath+'model\'+excel_name+'.xls',emptyparam,emptyparam,emptyparam,
emptyparam,emptyparam,emptyparam,emptyparam,
emptyparam,emptyparam,emptyparam,emptyparam,
emptyparam,0);
end;
excelbook.ConnectTo(excelapp.Workbooks[excelapp.Workbooks.Count] as _workbook);
excelsheet.ConnectTo(excelbook.Worksheets[excel_sheet] as _worksheet);
excelsheet.Activate;
end;
不知道这样做有没有问题,但是就会出现在程序调用excel的同时无法手工对另一excel进行操作。
excelbook.ConnectTo(excelapp.Workbooks[excelapp.Workbooks.Count] as _workbook);
excelsheet.ConnectTo(excelbook.Worksheets[excel_sheet] as _worksheet);
excelsheet.Activate;
这些语句,是可以用的。而且手工操作其他EXCEL没有问题。
你是不是释放的时候没有完全释放?导致后面出现问题