uses ComObj;
procedure TForm1.ToExcel(filename: string);
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
k := qry3.RecordCount;
// Excelid.Visible := True; //显示工作表
Excelid.Visible := False;
Excelid.WorkBooks.Add;
// Excelid.worksheets[1].range['A1:c1'].Merge(True);
// Excelid.WorkSheets[1].Cells[1,1].Value :='部门编码表' ;
// Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;
// Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4;
Excelid.WorkSheets[1].Cells[1,1].