把EXCEL导入数据库的问题,烦了好多天了. 非规则表! ( 积分: 100 )

  • 主题发起人 主题发起人 迷 路 人
  • 开始时间 开始时间
迷

迷 路 人

Unregistered / Unconfirmed
GUEST, unregistred user!
搞了个课程表让我导入数据库,本想用ADO导入的,后来发现合并单元格不好处理,烦死了,大家有没有什么好办法的?
能不能用TEXCELAPPLICATION先把合并的单元格打开成几个子单元? 然后用ADO处理?
 
[:D]兄弟的帖子,我顶一下..
 
[:D][:D][:D][8D][8D]
 
不会...
 
Excel需要搞成规则的才能导入。。。
不然合并单元格部分你到底存成什么字段？这是逻辑上的问题而不是程序上的问题
至于对应关系其实可以做或，用命名就可以做到，例如给每一列要采数据的列头命名为字段名，程序只管找名字相同的字段进行导入。导入的范围可以用UsedRange控制，如果一个Sheet页你就在导入时要用户手动选择，只认为Selection范围才是要导入的数据。
命名使用ActiveWorkBook.Names.Item(i)，它的Name属性是命的名称，Value属性是命名区域的值，其实它是个Range对象，Row是它的起始行，Column是它的起始列，要得到它有多少行就用Rows.Count属性，同理也有Columns.Count属性。
祝你好运！
 
不会，我还在研究怎样导出到excel。共同探讨！
 
现在还在试着用EXCELAPPLICATION分辨合并单元格,并将其打开. 有什么好建议的请提啊 论者有分.
 
导出Excel的我已经封装好了（通过配置Excel模板导出的），以前发上去过，结果没人理会。。。呵呵
楼主你应该把详细问题说出来，这样提问没人能回答你。。。
 
To:lake_cx

最主要的问题就是把合并单元格读出来啊,那个要判断出来,然后拆开来填入数据库
一个合并单元格的值要对应我数据库里两个字段;
 
这种合并的是不是死的？是不是有时候合并了，有时候没合并？
 
有合并过的 有未合并的 而且还是随机的 随着他们给的表不同而变化
所以要动态的辨识是否合并的单元格.
 
是不是都适合你的规则，比如说合并单元格上方是你的字段名，只要是合并单元格的上方的字段都得赋值于合并单元格的值？
如果是这样的话，那就判断合并单元格上方的字段就行了。。。（不会还有纵向合并的吧？）
比如说在某一行，遍历其Areas，找到每一个区域（合并单元格），通过其Column属性可以知道该合并单元格从第几列开始，通过去Columns.Count属性可以知道该合并单元格占了几列，可以对应到第一行的字段上面去，也就知道该合并单元格对应哪几个字段了。
如果还有纵向合并的话，我就不知道你打算怎么存数据库了。。。莫非表示两条记录中该字段的值一样？
 
急聘delphi兼职教师
要求：1、精通Delphi开发环境，具有二年以上Delphi开发经验
2.精通sql server2000
3.熟悉多线程软件开发
4.最好对《DELPHI信息系统开发实例精选》(是由赛奎春主编 宋坤 赵知勇 刘强 等编著) 这本书比较熟
地点：广州
待遇面议
电话：15915870911
QQ:644614615
e_mail:cjz805@163.com
 
to:lake_CX
非常感谢你的帮助,我的想法也是类似于这样的,就是这个控件从未用过,我要找点资料了
该表格里面还有列的合并,相当的复杂.
 
我现在能读出每行的各个CELL的值来了
我要在之前先处理下,把合并单元格辨识出来,并且把各个子格子都赋值相同,你上面给出了方法,可是我这个控件根本不会用,手头上的资料都是之前的版本的用法,貌似不能用

我要先遍历所有单元格,把合并单元格的子格都设为相同的值就好了,可惜不会写,头脑里根本没这概念 晕啊
 
问题快要解决了 我准备先对行里面的合并单元格处理 ,然后在对指定列的单元格处理
整个一张表处理完成后指定区域就没有了合并单元格了
 
to:lake_CX 我现在貌似就是那个AREAS属性不知道在哪个语句里面取了 ,我就放了个EXCELAPPLICATION控件上面.对这几个控件真是不熟悉 能给我写下么?
 
别用那玩意。。。建议用
ExcelApp := CreateOleObject('Excel.Application');
for i := 1 to ExcelApp.UsedRange.Areas.Count do
begin
ARange := ExcelApp.UsedRange.Areas//如果报错就用Areas(i)或Areas.Item(i)
ARange就是一个合并的单元格了。。。
end;
不要用那控件，老是要查询接口，麻烦。。。。有时还对不上号。。。
Ole操作跟Excel VB帮助中描述的基本一至的
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
X
uniDBGrid导入数据库（转红鱼儿） - xalion
回复
0
查看
626
xalion
X
Q
mORMot使用基础　2　数据库连接
回复
8
查看
5K
ken123456
K
D
[原]OrangeUI－Delphi移动开发利器
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部