| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/1/5 16:46:02 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 怎么把excel表的内容一条一条的导入数据表? ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/5 17:04:02 | ||||
| 1楼： | 请大家看一看呀,我很急呀 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/5 17:16:42 | ||||
| 2楼： | 谁好心看一眼呀,我真的很急呀 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/5 19:28:58 | ||||
| 3楼： | 几种方法 1.用delphi自带的excel 控件 2.转换成DBF格式，再使用 ---------------------------------------------- 老杨 |
|||||
| 作者： |
|
2004/1/5 20:00:54 | ||||
| 4楼： | 在access里面有一个导入功能，可以直接将excel导入转换成数据表，用SQL Server也可以，其它的没用过不清楚，不过一般也是可以的 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/5 20:03:39 | ||||
| 5楼： | 凌云 大哥： 老杨 大哥： 具体原代码呢？谢谢啦！小弟很苯啦！ ----------------------------------------------  
|
|||||
| 作者： |
|
2004/1/5 20:07:42 | ||||
| 6楼： | 打开access直接就可以导，还要用代码吗？ ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/5 20:27:55 | ||||
| 7楼： | 你要是快速导入我还没有用过，我这里有很笨的办法，不过速度也很快。 openfileindialog.Filter:='Excel files(*.xls)|*.xls'; if openfileindialog.Execute then exlfilnam:=openfileindialog.FileName ExcelApp := CreateOleObject( 'Excel.Application' ); ExcelApp.WorkBooks.Open(exlfilnam); sheet:=ExcelApp.ActiveSheet; With fdataquery do begin for i:=1 to FieldCount do begin FieldByName('date').AsDateTime:=sheet.cells[i,1];//日期类型 Fields[j].AsFloat:=sheet.cells[i,ecolumn]; //数据类型，也可以自己定义你需要的类型 end; end; ExcelApp.WorkBooks.Close; ExcelApp.Quit; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/5 20:30:15 | ||||
| 8楼： | cells里的对应excel里的单元格位置，要根据自己的excel数据源表的具体情况自己定制 ---------------------------------------------- - |
|||||
| 作者： |
|
2004/1/5 20:48:32 | ||||
| 9楼： | 凌云 大哥：偶们要帮用户自动处理呀？ 可不能 让人家去做 人家才不理睬呢？ ----------------------------------------------
|
|||||
| 信息 |
| 登陆以后才能回复 |
