嘿嘿，难说。

现在多数人是实用主义者，当有求于论坛时，带着问题来到了论坛，问题解决了，再也看不到人了。
论坛每天都有新帖及回帖更新，对于有心人来讲，隔三差五会到论坛来看看，把有用的帖子收藏起来，以备不时之需；对于无心之人，他是不会到论坛来的，也就不知道论坛有什么内容的帖子及回复。
对于热心人的回帖，不求大家有所回报，只求对大家有所帮助。找不到回帖，说明你是无缘人。
论坛现有帖子，我看过的至少有一半。

代码我就不发了，以前那个也只是类似的思想，不是具体当前问题的解决代码，找到也没什么用。解释一下思路即可：在Excel的另一个Sheet中，或者在外部另建一个文件（文本、xml、数据表等等形式均可），记录需要读取的数据的标题文字、灌入数据库的字段名（这样两个分离是为了适应字段名和文字不一致的情形）、数据在Excel.Sheet中的位置、数据类型、（必要时）转换公式之类用得着的东西，按图索骥提取数据，注入数据库，这是用循环做的，代码中不出现具体的字段名称和文字信息，就不是死代码，不管设计的Excel表格式如何变化、如何增减字段，都不需要修改源程序——事实上，我之前发的那个是根据Excel中的信息自动创建数据表的。

你要记住：你的表格不可能一成不变，而诸多细微的变化（尤其是字段文字被改动）是很难避免的，你的程序要有足够的适应能力，就绝对要避免硬编码，把字段名称和位置的具体值嵌入到源代码中，是编程大戒。可惜很多人喜欢这样写，因为不用动脑筋，又无比地勤快，不惜花精力敲入和修改硬数据——不企图一劳永逸的程序员不可能是好程序员。

如果有洁癖，看到、或写到前面那种十多数十个字段一行一行对应的代码，就应该想办法了！

[ 本帖最后由 TonyDeng 于 2014-8-4 00:06 编辑 ]

你的意思我明白，对于楼主这样水平的选手，只有用前面代码的方法，否则，他就看不懂了。

Close Databases 
Use Grxx && 表结构 字段内容 C(10) 类型 C(1) 位置 C(4)
Local Axx[Reccount()]
Eole=CREATEOBJECT('Excel.Application')
With Eole
    For lnI=1 To Adir(Axls,"*.Xls")
        .Workbooks.Open(Sys(5)+Sys(2003)+"\"+Axls[lnI,1])
        Select Grxx
        Scan 
            Do Case 
               Case Inlist(Alltrim(类型),"C","M")
                    Axx[Recno()]=Alltrim(.Range(位置).Text)
               Case Alltrim(类型)=="D"
                    Axx[Recno()]=Ctod(Transform(.Range(位置).Text,"@R 9999-99-99"))
               Case Alltrim(类型)=="N"
                    Axx[Recno()]=Val(.Range(位置).Text)
            Endcase
        Endscan 
        Insert Into 个人信息数据库表 From Array Axx
    Endfor 
    .quit
Endwith 
RELEASE Eole
Select 个人信息数据库表
Browse
Use In 个人信息数据库表
Use In Grxx

高见

论坛是铁打不动的，坛友是流水的，初学的提大问题——不着边际，半初学的提中问题——有点边际，到了门口的提小问题——版主们答起来有点味……

当一段代码只用一次，一般是硬编解决来得快。
当一段代码可用多次，遇变改几次后自然相着要提高适应性了————这是走向软编的推动力————火候不到位想软编也不行————所谓功到自然成哦

你们都很耐心

学习了！我更加要努力跟上了！