如何实现将统一格式的多个excel的SHEET1的数据导入到一个Access的同一TABLE中? 谁能给个实例?

用文件列表框工具,然后遍列文件列表框工具里面的XLS文件,打开每个表格把数据放到ACCESS数据库就行了啊.

可以给个实例吗?我太菜....

等待.....

兄弟姐妹们帮帮忙。。。。

继续等待...

自己找个软件转换不行了？

把众多散的 Execl 文档, 手工表样式, 转为二维表 Execl 格式.如果换成 Access 的话,修改保存那个部分.
如读每个格子数据后,连接起来,然后使用 SQL 进行添加记录.

或者添加新记录后, 分别对各个字段设置对应格子的数据,再保存. 推荐这种方法

Private Sub Command1_Click()

ExcelID.Visible = True          '显示EXCEL ,如果不用显示,这里就不显示
ExcelID.Caption = "应用程序调用 Microsoft Excel"            'EXECL 标题
'ExcelID.Workbooks.Add           '添加新工作薄

ExcelID.Workbooks.Open (Text1.Text)        ' 打开文件

ExcelID.Worksheets.Item(1).Activate         '设置第一个工作表为活动工作表

Dim 起始位置 As Long
起始位置 = CLng(InputBox("请输入起始行号", "起始行号", 4))

Dim j As Long
    Dim i As Long

For j = 0 To List1.ListCount - 1

    'openEID.Visible = True          '显示EXCEL ,如果不用显示,这里就不显示
    'openEID.Caption = "应用程序调用 Microsoft Excel"            'EXECL 标题
   
    openEID.Workbooks.Open (List1.List(j))          ' 打开文件
    openEID.Worksheets.Item(1).Activate         '设置第一个工作表为活动工作表
   
    For i = 1 To 79
        ExcelID.Cells(起始位置 + j, 坐标(i).NEWY) = openEID.Cells(坐标(i).OLDY, 坐标(i).OLDX)
    Next i
   
    openEID.Quit
   
    'Call 进度条(j / (List1.ListCount - 1))

Next j

ExcelID.SaveWorkspace

ExcelID.Quit


End Sub

谢谢风吹过b指点,我是想实现:
   1. 有N个人----操作员
   2. 打开VB界面,选择要加入的Excel数据
   3. 将Excel的数据加入到access,不覆盖前面的数据,可以依据操作员的要求选择性覆盖数据.
   4. 当有人正操作/打开access时提示"有人操作,稍等!",Access好象不能同时多人操作
数据有点大,就是因为多人同时操作数据会造成excel崩溃或错误覆盖数据,我想各自处理,再合并到access中,可以实现吗?谢谢

[ 本帖最后由 yuk_yu 于 2010-4-27 12:16 编辑 ]

我试过一笔笔加入但太慢了,望大家指点!