如何把execl表的数据导入acess数据库

Question

没有例子，自己写吧
把Execl表格存成VB能认识的格式，用DAO或是ADO来写，我只能告诉你这么多，自己多想想

Answer 1

ado里好像可以直接读取Execl表的数据，如果那样的话我想是不是先读到ado的recordset里面，然后再写入Acess的表，如果这样倒是比较简单

Answer 2

为什么不直接用access的数据导入功能

Answer 3

    如何將 Excel 的文件导入 Access文件？ 
 
　下面我已將程序代码做成模块，只要导入必要之参数即可！此一模块共有四个参数：
1、sSheetName：要导出资料的文件名称 (Sheet name)，例如 Sheet1
2、sExcelPath：要导出资料的 Excel 档案路径名称 (Workbook path)，例如 C:\book1.xls
3、sAccessTable：要导入的 Access Table 名称，例如 TestTable
4、sAccessDBPath：要导入的 Access 档案路径名称，例如 C:\Test.mdb在声明中加入以下：Private Sub ExportExcelSheetToAccess(sSheetName As String, _
sExcelPath As String, sAccessTable As String, sAccessDBPath As String)
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(sExcelPath, True, False, "Excel 5.0")
Call db.Execute("Select * into [;database=" & sAccessDBPath & "]." & _
sAccessTable & " FROM [" & sSheetName & "$]")
MsgBox "Table exported successfully.", vbInformation, "Yams"
End Sub
使用范例如下：將 C:\book1.xls 中的 Sheet1 导入 C:\Test.mdb 成为 TestTableExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb" 
   
　
  
 

Answer 4

to:lihonggen0(李洪根,用VB，标准答案来了) 
不行,系统提示我找不到可用的isam,怎么办