导入不规则的EXCEL表格到ACCESS的方法

zhuxinneng

救助各位前辈：

假设每个员工在入职的时候都会填写一张EXCEL的入职表格。表格本身是不规则的。但是如果有100名员工，这100份入职申请表是完全相同的。现在需要把这些表格合并录入到ACCESS中。有什么方法呢？是否一定要通过VB来实现？如果必须用VB,能否给一些简单的代码学习一下。

大致的EXCEL格式如下

	A	B	C	D	E	F
1	姓名		年龄		性别
2	地址
3	工作经验
4

大致的ACCESS字段如下：
姓名，年龄，性别，地址，工作经验

zhangjimfu

1. '添加或更新Excel文件导入记录
   
2.     Dim OpenWorkbook As New Excel.workbook, sql$, i%, dbs As Database, UploadPerson$      '定义变量
   
3.     Dim StoreNumber$, Times$, StoreBrand$, FinMonth%, FinYear%, Update#, State$, ReportKind$, UploadDate#
   
4.     On Error Resume Next        '容错代码
   
5.     Set OpenWorkbook = GetObject(myPath)        '打开Excel文件
   
6.     With OpenWorkbook.Sheets("Help")            '简化代码
   
7.         StoreNumber = .Range("b4")              '从Help工作表中B4单元格获取门店编号
   
8.         StoreBrand = .Range("f4")              '从Help工作表中f4单元格获取门店品牌
   
9.         FinMonth = .Range("j4")              '从Help工作表中j4单元格获取导入月份
   
10.         FinYear = .Range("e2")              '从Help工作表中e2单元格获取导入年份
    
11.         ReportKind = .Range("e4")              '从Help工作表中e4单元格获取报表性质
    
12.         Update = Date                   '更新记录日期
    
13.         UploadDate = Date               '添加记录日期
    
14.         UploadPerson = Environ("UserName")          '添加或更新或上传记录人
    
15.     End With

复制代码

供参考!

zhangjimfu

工具--引用

lhpyyh

谢谢，学习了