怎样将一个文件夹下面的多个excel表格批量导入到access中解决方法

怎样将一个文件夹下面的多个excel表格批量导入到access中
各位高手，大家好！我现在想在VB中实现这样一个功能：就是说我在窗体中有个打开对话框，通过选择某个文件后（或者选择该文件夹里面几十个excel表），可以实现自己将多个excel表自动导入到access数据库中，在数据库中的表名称和excel表的名称相同。我现在已经实现单个excel表格导入到access中，数据库中的表名称和excel表的名称相同。如果要实现很多表格导入到话，使用这样的操作就太费事了，所以想实现多个excel表格的导入。有人说在VB中用多线程来实现，但是VB中多线程太麻烦。所以请教大家！还有个问题，就是我在导入的时候该如何为导入的表数据设定主键呢？

------解决方案--------------------
ADO SQL 方法的知识，帮楼主顶顶。
------解决方案--------------------
vba

------解决方案--------------------
将单个excel表格导入到access的代码写成过程,传入一个excel文件名参数
Private Sub Command1_Click()
Dim i As Long,sFile as string
For i = 0 To File1.ListCount - 1
sFile= File1.List(i)
导入过程 sFile
Next
End Sub

------解决方案--------------------

不需要多线程。

既然已经实现了单个文件导入，实际上只剩下文件查找的问题了。

你可以如此：

指定某一个文件夹之后，遍历之。

Dim strPath As Stirng, strFile As String

strFile = Dir(strPath & "\*.xls")

List1.Clear
Do While strFile > ""
List1.AddItem strFile
List1.Selected(List1.NewIndex) = True
strFile = Dir()
Loop

将文件都加到 List 中。在 List 中设置 Style 属性 = 1-Checkbox，以便选择需要导入的文件。

你在导入时，加入一个循环，将所有文件一一导入即可。

------解决方案--------------------
三楼大哥方法很正确，可以试一试！
------解决方案--------------------
UPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUPUP