如何实现多个excel表导入到access中

良凤精品 · 发表于 2009-4-27 07:19

如何实现多个excel表导入到access中
问题1:多个excel工作簿有办法批量导入到access中吗?
问题2:同一个excel工作簿中的多个excel表有办法批量导入到access中吗?

良凤精品 · 发表于 2009-4-27 07:24

示例：Dim OpenFiles,FileNamePath,FileName
dim i as integer
With CommonDialog1
      .FileName = ""
      .DefaultExt = "*.*"
      .MaxFileSize = 10000
      .FilterIndex = 0
      .Filter = "*.xls ¦*.xls"
      .Flags = &H200 Or &H80000 Or &H4 ' Or cdlOFNFileMustExist
      .ShowOpen
End With
OpenFiles = Split(ComDlg.FileName, Chr(0)) '获取选择的一个或多个文件路径
For i = 0 To UBound(OpenFiles)  '将文件路径加入list控件中以方便控制

      If UBound(OpenFiles) >= 1 Then
         If i = UBound(OpenFiles) Then
            Exit Function
         End If
         FileNamePath = OpenFiles(0) & OpenFiles(i + 1)’文件的全路径
         FileName = OpenFiles(i + 1)’文件名
      Else
         '选单个文件的时候
         FileNamePath = ComDlg.FileName
         FileName = ComDlg.FileTitle
      End If
      '下面取到文件的路径和文件名进行导入的文件
      ’自己写代码
next i

我复制的是这段代码.现在access出错.删除代码找不到这段代码

ycf_sy · 发表于 2009-4-30 20:45

能否提供实例，谢谢！！！！

良凤精品 · 发表于 2009-5-7 12:18

我也是求助.
我也不知道如何操作

samxuan · 发表于 2009-5-7 23:12

我也有同样问题..明天提供Sample

wwywwy_1971 · 发表于 2009-5-15 21:12

一头雾水，

yvonne.zhu · 发表于 2009-5-16 07:11

我也很有兴趣知道的

papapa1001 · 发表于 2009-5-16 21:44

怎么没有人给出正确解答呀？

ningxiner912 · 发表于 2009-8-29 18:43

现在，我有个13万多条信息，在两个excel表中，怎样才能把这两个excel表的信息导入到access的一个表中呢，请大家帮帮忙啊1

yanl1981 · 发表于 2009-8-31 15:55

还要学习学习 ~~~~~~~~

		自动登录	找回密码
密码			免费注册

如何实现多个excel表导入到access中

怎样把excel中的两个表导入到access的同一个表中