请各位高手指教。
解决方案 »
- delphi2007安装后出现F1027 unit not found:'system.pas' or equvalents
- dev express的安装问题
- 用indy组件能不能直接上传文件到服务器?
- BLOB 读取的问题
- 三层中怎样修改数据啊?
- 怎样调用Media Player打开 mmst://168.12.16.12/1.asf 这样的网络文件?
- 沉默的羔羊!祝大伙春节快乐!快来UP!
- 怎么在2000中隐藏进程(在线关注)
- 怎样使ListBox控件的某一项获得焦点?
- 请教VCLUNZIP如何解压分卷格式的压缩包
- SQL语句比我用dataset遍历赋值的速度快得太多,我有办法加速我的语句吗?主要是速度差别太大了
- flash播放!
var
eclApp,WorkBook:Variant;
xlsFileName:string;
L: Integer;
s, lang:string;
i,j:integer;
jj:integer;
xssz:array [0..100] of integer;
xssm:array [0..100] of string;
k:integer;
kk:integer;
beginif form_gchhs.s.Execute then
begin
xlsFileName:= form_gchhs.s.FileName;
try
//创建OLE对象Excel Application与 WorkBook
eclApp:=CreateOLEObject('Excel.Application');
WorkBook:=CreateOLEObject('Excel.Sheet');
except
ShowMessage('您的机器里未安装Microsoft Excel。');
Exit;
end;
for i:=0 to 100 do
begin
xssz[i]:=0;
xssm[i]:='';
end;
k:=-1;
l:=1;
workBook:=eclApp.workBooks.Add;
for i:=0 to grid.Columns.Count -1 do
begin
if grid.Columns[i].visible=true then
begin
k:=k+1;
xssz[k]:=i;
for kk:=0 to qu.FieldCount -1 do
begin
if qu.Fields[kk].fieldname=grid.columns[i].fieldname then
xssz[k]:=kk;
end;
xssm[k]:=grid.columns[i].title.caption;
eclApp.Cells(l , k+1):=xssm[k];
end;
end;
with qu do
begin
first;
while not qu.eof do
begin
l:=l+1;
for j:=0 to k do
eclApp.Cells(l , j+1):=fields[xssz[j]].AsString;
qu.next;
end;
end;
WorkBook.saveas(xlsFileName);
WorkBook.Close;
eclApp.Quit;
//退出Excel Application
//释放VARIANT变量
//eclApp:=Unassigned;
ShowMessage('文件已保存!');
end;
end;