胡
胡鸣
Unregistered / Unconfirmed
GUEST, unregistred user!
本人在excel应用中有两个问题向各位仁兄请教了，一是一个工作薄引用了另一个工作薄的单元格，在程序中打开该工作薄时总是弹出一个“当前打开的文档包含有到其他文档的链接，是否要使用其他工作薄中的改动更新当前工作薄？”的提示框，如何在程序中来屏闭此提示框？
第二个问题是，现有以下代码：
Button1.click
var myexcel:variant;
begin
myexcel:=objectolecreate('cxcel.application');
myexcel.WorkBooks.Add();
myexcel.Visible := False;
query.First;
for i := 1 to query.RecordCount do
begin
label1.caption:='正在生成表格，请稍候。。。';
myexcel.application.cells[i,1].value:=query.fieldbyname(field).value;
.......
query.Next;
end;
myexcel.Visible := True;
end;
在程序运行时，label1总是不显示，哪位大师知道，请不吝赐教，谢谢啦。
第二个问题是，现有以下代码：
Button1.click
var myexcel:variant;
begin
myexcel:=objectolecreate('cxcel.application');
myexcel.WorkBooks.Add();
myexcel.Visible := False;
query.First;
for i := 1 to query.RecordCount do
begin
label1.caption:='正在生成表格，请稍候。。。';
myexcel.application.cells[i,1].value:=query.fieldbyname(field).value;
.......
query.Next;
end;
myexcel.Visible := True;
end;
在程序运行时，label1总是不显示，哪位大师知道，请不吝赐教，谢谢啦。