FineReport（5）
&&&&&&& 在进行填报报表时，一般会选择通过Excel表导入大量的数据，因此也会产生一些稀奇古怪的问题。
&&&&&&& 本次笔者需要导入的是一些数字类型的数据，在Excel中数据如图所示：
&&&&&&& 导入报表后数据就混乱了，如下图所示：
&&&&&&&& 数据一导进来就混乱了，所以笔者肯定问题出现在Excel表中。一般这种问题是由于在Excel表中设置了数据显示格式，比如实际是1.，设置只显示两位小数，那么我们,在Excel表中看到的就是1.80，然后导进来又变成1.了。
&&&&&&&& 但是这次的问题没有这么简单，笔者查看Excel表中的数据，发现实际值和显示值是一样的。怎么办呢，笔者删除掉一个出现混乱的数字，再一模一样的填写回去，然后保存再导进去，结果发现那个数字正常显示了，但是这样只能一个一个的改，未免太麻烦了吧，如何能一次性解决所有数据呢，笔者调整数据的格式，字体，大小等等，都不能得到解决，但笔者却一直坚信是因为数据格式的问题而引起的，这个坚信也使笔者最终找到了答案。
&&&&&&& 其实，早就应该想到这种办法了，只是笔者在遇到问题的时候急了，一时没想到点上。这些办法对于很多由格式引起的问题都很管用，那就是将数据复制到另一个表上，但是在粘贴的时候要选择粘贴纯文本。另外一种方法是，先把数据复制到记事本上，然后再复制回Excel表中，这样就能一次性的解决格式问题了。
&&&&&&& 笔者这样子做完了之后，再导入Excel表，数据果然全部正常显示了。
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：1581次
排名：千里之外
原创：20篇
(2)(4)(7)(6)(1)2005年11月 扩充话题大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。查看: 5460|回复: 6
请问如何将EXCEL表中的数据一次性全部粘贴到ACCESS的表中，我只能一行一行的粘贴，太麻烦了！
和爱学习的人一起激发动力
每月至少2次直播分享，有回放
春节过后报名CMA有惊喜！
CMA获得政府及各大企业集团一致推荐
中国会计视野&ACCA联合
200份奖品等待来取
会计视野论坛帖子版权归原作者所有。对发帖人声明原创的帖子，中国会计视野有使用权和转载权。其他网站在写明来源、作者、会计视野论坛首发网址的情况下可以转载，原创作者保留禁止转载和向其他转载网站索取稿酬的权力。
一次性全部粘贴后的提示是什么？
可以在Access中导入EXCEL的，自己多试试
提示所粘贴的文件太大了！
是可以导入，但得一条一条导，好烦的！有没有简便的？
没用过，不知有没有导入功能？
不会吧，可以一次全部导入的！
站长推荐 /1
一起来做一件有意义的事，《视野思享会》举办了近60期，事实证明是符合大家需求的。本项目开始招募年费会员，一起策划活动主题，一起全程互动解惑，更可观看更多往届视频。详情见内文。
Powered by2890人阅读
开发技术（21）
&/pre&&pre code_snippet_id=&387408& snippet_file_name=&blog__6931691& name=&code& class=&vb&&'******************************************************************************
'* File:
excel2pdm.vbs
'* Purpose:
Excel批量导入表结构到power designer
'* Category:
'* Version:
'* Company:
'* time
'* 因为喜欢在excel中做数据库表设计，所以用该程序导入到pdm。
'* 该程序对联合主键联合唯一没有做很好的处理，需要导入后手工修改。
'*该程序参考了网络上其他人的代码，但是这里是可以将sheet中所有的表一次导入。
'* 所有的表设计都放在一个excel的一个sheet中，每个表中间空一行，表体都有表头说明如下，
'* 再前面一行是表名和表的说明，分别在A和C列。下面格式直接拷贝到excel中就可以看到，空格是制表符。
'******************************************************************************
Excel 格式如下
'tableone
'字段 类型 键 空 说明 备注
'id Long 主键 N 唯一标识 没有意义，自增
'******************************************************************************
Option Explicit
Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
MsgBox &There is no Active Model&
Dim HaveExcel
RQ = vbYes 'MsgBox(&Is Excel Installed on your machine ?&, vbYesNo + vbInformation, &Confirmation&)
If RQ = vbYes Then
HaveExcel = True
' Open & Create Excel Document
Set x1 = CreateObject(&Excel.Application&)
x1.Workbooks.Open &d:\i.xlsx& '指定excel文档路径
x1.Workbooks(1).Worksheets(&Sheet1&).Activate '指定要打开的sheet名称
HaveExcel = False
sub a(x1, mdl)
dim rwIndex
dim tableName
dim colname
on error Resume Next
'--------------------------------
'下面是读取excel，添加表实体属性
'--------------------------------
For rwIndex = 1 To 253 '指定要遍历的Excel行标
由于第2行是表头，从第1行开始，看你这个表设计多少行
With x1.Workbooks(1).Worksheets(&Sheet1&)'需要循环的sheet名称
If .Cells(rwIndex,1).Value && && And
.Cells(rwIndex,2).Value = && And .Cells(rwIndex,3).Value && && Then'Excel中表头的1列是表名，2空，3是表注释
set table = mdl.Tables.CreateNew '创建一个表实体
table.Code = .Cells(rwIndex,1).Value'从excel中取得表名称和编码
table.Name = .Cells(rwIndex,3).Value'
ment = .Cells(rwIndex,3).Value
'指定列说明
count = count + 1
'If (.Cells(rwIndex,1).Value = && And .Cells(rwIndex,2).Value = && And .Cells(rwIndex,3).Value = &&) Or (.Cells(rwIndex,1).Value && && And
.Cells(rwIndex,2).Value = && And .Cells(rwIndex,3).Value && &&)Then
If .Cells(rwIndex,2).Value = && or .Cells(rwIndex,1).Value = &字段& Then '第二列为空的都可以忽略
continue '这里忽略空行和表名行、表头行
set col =table.Columns.CreateNew '创建一列/字段
col.Code = .Cells(rwIndex, 1).Value '指定列code
col.DataType = .Cells(rwIndex, 2).Value '指定列数据类型
If.Cells(rwIndex, 3).Value = &主键& Then'指定主键
col.Primary =true
If.Cells(rwIndex, 4).Value = &N& Then'指定列是否可空 true 为不可空
col.Mandatory =true
col.Name = .Cells(rwIndex, 5).Value '指定列name
ment = .Cells(rwIndex, 6).Value
'指定列说明
MsgBox &生成数据表结构共计 & + CStr(count), vbOK + vbInformation, &表&
导入到pdm以后，并不能显示相关的图形，原因是导入后生成的sql有问题，需要进行替换。
在左边菜单逐个点击开表，预览sql，将这些sql逐个拷贝到一个sql文本中，然后进行替换，替换掉所有的双引号，&DATETIME替换成&DATE，检查是否还有以Column_开头的列明，到plsql中运行一下看是否可以生成表。
替换后保存sql文件，然后在pdm中从用反向引擎打开这个sql文件，这个时候就可以生成图了。然后用在另外一篇博客中“注释到名称”脚本运行一下就可以。
excel模版下载位置
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：41041次
排名：千里之外
原创：23篇
(1)(1)(6)(1)(7)(6)(4)(5)(1)(5)(2)}