Question

delphi 中定义一个variant变量调用excel,excelid.后无提示信息，很郁闷？

首先在Uses处加上ComObj
procedure TForm1.Button1Click(Sender: TObject);
var h,k:integer;
Excelid: OleVariant;
s: string;
begin
try
Excelid := CreateOLEObject('Excel.Application');
except
Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
Exit;
end;
try
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from jj_department');
ADOQuery1.Open;
k:=ADOQuery1.RecordCount;
Excelid.Visible := True;

Answer 1

用 Excelid: Variant; 试下，是有你的本机上有没有安装ms offices

追问

我这个可以正常调用本地的excel，不过提示信息出不来，别的控件都可以

是因为variant因为类型不明确，系统不能识别？

追答

你的意思是，你想要
Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL); 运行这段代码？
那你先有删offices吗

追问

不是，我是说敲完excelid.之后不能带出相关属性信息，比如excelid.visible的visible属性不能提示出来是我手动敲出来的，很不方便，别的控件我敲完．后系统都会带出相关属性信息

追答

variant 是运行时才知道是什麽，当然带不出属性了，你想多了。

追问

所以他的一些属性信息我只能百度？

追答

是的。

追问

辛苦了啊