Delphi知识中心
www.delphi.ee
提供Delphi技术知识
与Delphi程序员共同进步


在线服务QQ:99923144 随时恭候您的光临
首页 基础知识 WIN系统 组件使用 组件开发 数据库 ACTIVEX 多媒体技术 网络技术 关于
文章类别:ACTIVEX    你尚未登陆,会员功能无法使用,请从 网站首页 登陆。
  利用剪切板快速导入Excel  
 
利用剪切板快速导入Excel

procedure TForm1.Button2Click(Sender: TObject);
var
y :integer;
tsList :TStringList;
s :string;
aSheet :Variant;
Q_excel :TQuery ;
Clipboard1 : TClipboard;
begin
try
Q_excel := TQuery.Create(nil);
with Q_excel do
begin
databasename := '你的数据库别名';
sql.clear;
sql.Add ('select * from 表名');
open;
first;
end;
//=================================
tsList:=TStringList.Create;
while not Q_excel.Eof do
begin
s := '';
for y:=0 to Q_excel.FieldCount-1 do
begin
s:=s+Q_excel.Fields[y].AsString+#9;
Application.ProcessMessages;
end;
tsList.Add(s);
Q_excel.next;
end;
finally
Q_excel.Close;
Q_excel.Destroy ;
end;

//==剪切板== 需要uses : Clipbrd
try
if Clipboard1 = nil then
begin
Clipboard1 := TClipboard.create;
end;
Clipboard1.AsText:=tsList.Text;
finally
Clipboard1.Destroy ;
Clipboard1 := nil ;
end;
//==剪切板==
//==倒入excel,用的是server中的控件
try
try
ExcelApplication1.connect;
except
showMessage('请安装Excel!') ;
exit;
end;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption:='Excel Application';
ExcelApplication1.Workbooks.Add(Null,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _Worksheet);

//==
ExcelWorksheet1.Paste ;
//==
finally
ExcelApplication1.Disconnect;
end;
end;

 

在线服务QQ:99923144 Delphi程序员QQ群(139442)
Delphi知识中心 www.delphi.ee 最专业的Delphi技术资料网站