社区
Delphi
帖子详情
高分求救
hongyan2004
2003-08-24 11:09:53
我做了一个班级管理系统现在有一个问题,
我想把EXCEL2000的数据导入到数据库中去怎么来做啊,
帮帮忙啊,
...全文
33
3
打赏
收藏
高分求救
我做了一个班级管理系统现在有一个问题, 我想把EXCEL2000的数据导入到数据库中去怎么来做啊, 帮帮忙啊,
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
wdsimon
2003-08-24
打赏
举报
回复
你是只导一次呢还是经常进行到入动作
如果偶尔导一次的话,用SQL的DTS来做,
如果需要用DELPHI写程序来做的话,有多种方法可行
1、用opendatasource
2、用BCP
3、把EXCEL当作数据库,用ADO控件来处理
以上没一种方法的具体步骤可自己用相应关键字搜一下。
hongyan2004
2003-08-24
打赏
举报
回复
thanks.
linuxyf
2003-08-24
打赏
举报
回复
看看这个完整的全面Excel控制吧
全面控制 Excel
首先创建 Excel 对象,使用ComObj:
var ExcelID: Variant;
ExcelID := CreateOleObject( 'Excel.Application' );
1) 显示当前窗口:
ExcelID.Visible := True;
2) 更改 Excel 标题栏:
ExcelID.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿:
ExcelID.WorkBooks.Add;
4) 打开已存在的工作簿:
ExcelID.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表:
ExcelID.WorkSheets[2].Activate;
或
ExcelID.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值:
ExcelID.Cells[1,4].Value := '第一行第四列';
7) 设置指定列的宽度(单位:字符个数),以第一列为例:
ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:
ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
9) 在第8行之前插入分页符:
ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;
10) 在第8列之前删除分页符:
ExcelID.ActiveSheet.Columns[4].PageBreak := 0;
11) 指定边框线宽度:
ExcelID.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
12) 清除第一行第四列单元格公式:
ExcelID.ActiveSheet.Cells[1,4].ClearContents;
13) 设置第一行字体属性:
ExcelID.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelID.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelID.ActiveSheet.Rows[1].Font.Bold := True;
ExcelID.ActiveSheet.Rows[1].Font.UnderLine := True;
14) 进行页面设置:
a.页眉:
ExcelID.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚:
ExcelID.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm:
ExcelID.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm:
ExcelID.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm:
ExcelID.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm:
ExcelID.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm:
ExcelID.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm:
ExcelID.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中:
ExcelID.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中:
ExcelID.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线:
ExcelID.ActiveSheet.PageSetup.PrintGridLines := True;
15) 拷贝操作:
a.拷贝整个工作表:
ExcelID.ActiveSheet.Used.Range.Copy;
b.拷贝指定区域:
ExcelID.ActiveSheet.Range[ 'A1:E2' ].Copy;
c.从A1位置开始粘贴:
ExcelID.ActiveSheet.Range.[ 'A1' ].PasteSpecial;
d.从文件尾部开始粘贴:
ExcelID.ActiveSheet.Range.PasteSpecial;
16) 插入一行或一列:
a. ExcelID.ActiveSheet.Rows[2].Insert;
b. ExcelID.ActiveSheet.Columns[1].Insert;
17) 删除一行或一列:
a. ExcelID.ActiveSheet.Rows[2].Delete;
b. ExcelID.ActiveSheet.Columns[1].Delete;
18) 打印预览工作表:
ExcelID.ActiveSheet.PrintPreview;
19) 打印输出工作表:
ExcelID.ActiveSheet.PrintOut;
20) 工作表保存:
if not ExcelID.ActiveWorkBook.Saved then
ExcelID.ActiveSheet.PrintPreview;
21) 工作表另存为:
ExcelID.SaveAs( 'C:\Excel\Demo1.xls' );
22) 放弃存盘:
ExcelID.ActiveWorkBook.Saved := True;
23) 关闭工作簿:
ExcelID.WorkBooks.Close;
24) 退出 Excel:
ExcelID.Quit;
access大量数据迁移到mysql,
高分
求救
(access数据迁移到mysql有关问题)
当前位置:我的异常网» J2EE»
高分
求救
(access数据迁移到mysql有关问题)
高分
求救
(access数据迁移到mysql有关问题)www.myexceptions.net网友分享于:2013-01-25浏览:22次
高分
求救
(access数据迁移到mysql问题)需要把access数据迁移到mysql,这个功能已经基本OK,但是要加个判断(如果mysql中已经存在该记录,则不添加...
用过TWEBBROWSER的请进来,
高分
求救
用过TWEBBROWSER的请进来,
高分
求救
VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061222111048196.html 用TWEBBROWSER做了一个浏览器,调用本机的两个网页文件 网页中有大量的JAVESCRIP脚本, 在来回切换时出现三种错误,这三种错误不经常出,但总有,...
高分
求救
,微软屏传开源的项目,里面也有屏传的代码,是用C#实现的。
高分
求救
微软屏传开源的项目,里面也有屏传的代码,是用C#实现的,这个项目叫什么啊
java数据库插入冒号_
高分
求救
,请问各高手怎么把下面的值,读入access数据库,下面冒号前面的为字段名,后面为对应的值?...
收录日期:2021/02/27 07:58:00 时间:2016/05/21 14:42:15 标签:Web 开发请问各高手怎么把下面的值,读入access数据库,下面冒号前面的为字段名,后面为对应的值?要做到有分行一定要把分行也一起读入数据库,请教高手,急!!!AlfredP.SloanSchoolOfManagementBusinessName:AlanF.WhiteCompa...
如何在ORACLE启动时执行一个自定义的存储过程
使用数据库触发器对应STARTUP事件 CREATE TRIGGER log_routine AFTER STARTUP ON DATABASE BEGIN exec yourproc; END; 附:
高分
求救
:为什么我的Startup 触发器触发不了? 我创建一个startup触发器,就是不执行,谁能帮帮俺呀,俺都快疯了。 ...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章