| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/3/31 20:50:00 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 在DELPHI中，怎样把数据导入EXCEL中 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/1 20:30:00 | ||||
| 2楼： | 龙飘渺 我也想要一个 我的E-mail:jinqing222@163.com 谢谢了!!:)) ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/1 21:46:00 | ||||
| 3楼： | 谢谢，我的邮箱现在不能用，能用贴子贴给我吗！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/2 8:19:00 | ||||
| 4楼： | 有这个好东西,快拿来分享一下,大家乐趣乐趣。龙飘渺我也想要哦 kpdncsz@sina.com.cn ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/2 23:10:00 | ||||
| 5楼： | 我也要一个xbbhorse@etang.com ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/7 9:09:34 | ||||
| 5楼： | 可以给我一份吗?多谢了 yourwcd@sina.com ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/7 12:07:46 | ||||
| 8楼： | 一楼的好心人我也想要一个，能不能给我也发一个呀，谢谢我的邮箱是： liqiag@inhe.net ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/7 12:14:44 | ||||
| 9楼： | 昨天论坛帖子字段设置错误，今天改了可以发了：） ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/8 9:15:12 | ||||
| 11楼： | 到这里看 http://www.2ccc.com/forum/topic.asp?topicid=12821 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/9 8:53:00 | ||||
| 12楼： | 给我发一个吧 xwg008@163.com ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/9 10:18:30 | ||||
| 13楼： | 谢谢 cjrb@163.net ----------------------------------------------  充电..........
|
|||||
| 作者： |
|
2003/4/9 10:33:57 | ||||
| 14楼： | 谢谢 龙飘渺 老兄 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/4/9 15:41:13 | ||||
| 15楼： | 求助: 我在Delphi编写的程序中,用DBImage或First Class(1st)的fcDBImager来显示图片,只能显示BMP格式的图片,但不能显示JPG格式的图片,请问有哪位高手能帮我解决这个问题?急!急! ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/4 11:30:51 | ||||
| 17楼： | 给小弟也发一份吧：guoxiquan@163.net。谢谢！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/4 14:19:04 | ||||
| 18楼： | 我的,谢谢缥缈!delphier@163.com ---------------------------------------------- http://www.gaiwei.com |
|||||
| 作者： |
|
2003/5/4 16:26:22 | ||||
| 19楼： | 给我也邮一个，最好有控制WORD的程序一起给我，谢谢大虾啦 bill_won@hotmail.com ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/4 18:24:34 | ||||
| 20楼： | 大虾~~~我是新来的 我也要~~~~~~~~~~~~fidido_2003@hotmail.com(有msn哦) 可以的话交个朋友~~~~~~:) ---------------------------------------------- 我我,我是一只菜鸟,菜菜菜菜菜菜,菜菜菜菜菜菜菜菜菜菜菜菜~~~~~~~~~ 
|
|||||
| 作者： |
|
2003/5/5 13:39:34 | ||||
| 21楼： | 我有个DLL文件可以导入到EXCEL中去，你要吗？ 发给你。 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/5 13:41:41 | ||||
| 22楼： | 你怎么没有邮箱啊？ 你给我一个邮箱，我给你发过去，这个东西是我自己做的，不知你能用的上吗？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/5 16:52:06 | ||||
| 23楼： | awen:给我也邮一个吧，急需！先说声谢谢了！ guoxiquan@163.net ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/12 9:57:03 | ||||
| 24楼： | 我也要： sunnyhoney@163.net ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/12 14:09:33 | ||||
| 25楼： | 给我一个吧，多谢了： hnzwei@21cn.com ---------------------------------------------- - |
|||||
| 作者： |
|
2003/5/12 14:17:21 | ||||
| 26楼： | 也给我以个吧！thanks congrui@sohu.com ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/29 18:45:10 | ||||
| 27楼： | 数据导出啊？给我传一份吧，谢了。 ---------------------------------------------- chen |
|||||
| 作者： |
|
2003/8/30 13:14:53 | ||||
| 28楼： | 能把代码贴出来吗？ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/8/31 9:18:02 | ||||
| 30楼： | uses Excel2000, {C:\Program Files\Borland\Delphi6\Imports} OleServer; procedure TFrmMain.WriteExcel(AdsData: TADODataSet; sName, Title: string); var ExcelApplication1: TExcelApplication; ExcelWorksheet1: TExcelWorksheet; ExcelWorkbook1: TExcelWorkbook; i, j: integer; filename: string; begin filename := concat(extractfilepath(application.exename), sName, '.xls'); try ExcelApplication1 := TExcelApplication.Create(Application); ExcelWorksheet1 := TExcelWorksheet.Create(Application); ExcelWorkbook1 := TExcelWorkbook.Create(Application); ExcelApplication1.Connect; except Application.Messagebox('Excel 没有安装!', 'Hello', MB_ICONERROR + mb_Ok); Abort; end; try ExcelApplication1.Workbooks.Add(EmptyParam, 0); ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]); ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1] as _worksheet); AdsData.First; for j := 0 to AdsData.Fields.Count - 1 do begin ExcelWorksheet1.Cells.item[3, j + 1] := AdsData.Fields[j].DisplayLabel; ExcelWorksheet1.Cells.item[3, j + 1].font.size := '10'; end; for i := 4 to AdsData.RecordCount + 3 do begin for j := 0 to AdsData.Fields.Count - 1 do begin ExcelWorksheet1.Cells.item[i, j + 1] :=AdsData.Fields[j].Asstring; ExcelWorksheet1.Cells.item[i, j + 1].font.size := '10'; end; AdsData.Next; end; ExcelWorksheet1.Columns.AutoFit; ExcelWorksheet1.Cells.item[1, 2] := Title; ExcelWorksheet1.Cells.Item[1, 2].font.size :='14'; ExcelWorksheet1.SaveAs(filename); Application.Messagebox(pchar('数据成功导出' + filename), 'Hello',mb_Ok); finally ExcelApplication1.Disconnect; ExcelApplication1.Quit; ExcelApplication1.Free; ExcelWorksheet1.Free; ExcelWorkbook1.Free; end; end; procedure Tfrmmain.FormCreate(Sender: TObject); begin WriteExcel(ADODataSet1, 'ergonge','hhh'); end; ----------------------------------------------  
|
|||||
| 作者： |
|
2003/9/3 16:49:18 | ||||
| 31楼： | 为什么不用控件呢dxDBGrid控件一个命 令，导出又快，不用一秒！ ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/5 9:29:42 | ||||
| 32楼： | 真是高手如云啊,学习! ----------------------------------------------
|
|||||
| 作者： |
|
2003/9/12 15:27:27 | ||||
| 33楼： | 我是新来的，能给我发一个吗？谢了， guolei@shukepc.com ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/14 12:23:45 | ||||
| 34楼： | 要使用jpg文件： uses jpeg ---------------------------------------------- - |
|||||
| 作者： |
|
2003/9/14 15:21:01 | ||||
| 35楼： | 以上代码是很好，也是比较传统的数据导出Excel范例。值得学习！ ---------------------------------------------- - |
|||||
| 信息 |
| 登陆以后才能回复 |
