有问题请教 怎样在delphi中把资料导入到excel中去啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在论坛里面搜索一下,关键字为excel,帖子很多的 procedure TfrmSG.Button1Click(Sender: TObject); uses ComObjvar pc_i:integer; xlapp,sheet: variant; WBK: OleVariant;begin xlapp := createoleobject('excel.application'); if Trim(Edit1.Text)='' then begin Application.MessageBox('文件名不能为空','警告',MB_OK); Exit; end; WBK := xlapp.workbooks.Open(Edit1.Text); sheet := xlapp.workbooks[1].worksheets['sheet1']; pc_i:=1; Edit2.Text := sheet.cells[pc_i,1]; //写入的话用 sheet.cells[pc_i,1] := Edit2.Tex; WBK.Close(SaveChanges := True); xlapp.Quit;end; 讨论PNG实现半透明的窗体 请教:delphi怎么将Excel数据导入SQL数据库中? delphi2007 的一个编译问题 [关于Stream的基础问题],此贴速结 谁知道国外有什么好的考试系统? 请指教!在线等! 请问用QR如何实现报表打印每页页脚都有合计? DELPHI里面有没有直接从dbgrid里面取出数据进行打印的打印控件? 亟待解决的问题! 用InstallShield打包时,怎样才能知道应用程序需要的所有包文件和动态链接库文件! 一个调试问题 再请教一下多个控件同时控制的简单问题
var
pc_i:integer;
xlapp,sheet: variant;
WBK: OleVariant;
begin
xlapp := createoleobject('excel.application');
if Trim(Edit1.Text)='' then
begin
Application.MessageBox('文件名不能为空','警告',MB_OK);
Exit;
end;
WBK := xlapp.workbooks.Open(Edit1.Text);
sheet := xlapp.workbooks[1].worksheets['sheet1'];
pc_i:=1;
Edit2.Text := sheet.cells[pc_i,1]; //写入的话用 sheet.cells[pc_i,1] := Edit2.Tex;
WBK.Close(SaveChanges := True);
xlapp.Quit;
end;