Y
yuansiyi
Unregistered / Unconfirmed
GUEST, unregistred user!
代码如下:
var
Sheet: Variant;
i,j: Integer;
TmpStr: String;
begin
TmpStr := '将' + MsgEdit.Text + '导出到Excel中?';
if not msgDlgForm.ShowMsgDlg('确认',TmpStr) then
Exit;
try
ExcelApplication.Connect;
except
//ShowMessage('Excel可能没有正确安装');
msgBoxForm.ShowMsgBox('导出', 'Excel可能没有正确安装!');
Exit;
end;
ExcelApplication.Visible[0]:=true;
ExcelApplication.Workbooks.Add(EmptyParam,0);
程序编译到此处,提示EmptyParam没有定义。当我把EmptyParam定义为OleVariant类型时,
编译能通过,但当EXCEL启动时出错,请教一下是什么原因???
var
Sheet: Variant;
i,j: Integer;
TmpStr: String;
begin
TmpStr := '将' + MsgEdit.Text + '导出到Excel中?';
if not msgDlgForm.ShowMsgDlg('确认',TmpStr) then
Exit;
try
ExcelApplication.Connect;
except
//ShowMessage('Excel可能没有正确安装');
msgBoxForm.ShowMsgBox('导出', 'Excel可能没有正确安装!');
Exit;
end;
ExcelApplication.Visible[0]:=true;
ExcelApplication.Workbooks.Add(EmptyParam,0);
程序编译到此处,提示EmptyParam没有定义。当我把EmptyParam定义为OleVariant类型时,
编译能通过,但当EXCEL启动时出错,请教一下是什么原因???