Excel表的导入！

Question

请问要如何把Excel表格中的数据导入到Access表格中去？急！请各位救救我！谢谢

Answer 1

来源：Yamini 
版本：VB6.0 / VB5.0 --------------------------------------------------------------------------------
 先前我们在【问题127】数据库的汇出 ---- 使用 DAO 提过数据库的汇出功能，之后，很多网友来信问到如何将 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 2

直接可以的,用access 导入工具!

Answer 3

Option ExplicitPrivate Sub Command1_Click()
        Dim Conn As New ADODB.Connection
        
        
        
        Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb"
        Conn.Open
        Conn.Execute "Select * INTO Test From [Excel 8.0;DATABASE=" & App.Path & "\bbb.xls].[Sheet1$]", , adCmdText
        
        Conn.Close
        Set Conn = Nothing
        MsgBox "OK!请您打开bbb.xls文件察看!"
End Sub

Answer 4

你要源程序吗？？？？我发给你，，[email protected]

Answer 5

是的啊我试啦兄弟，真的不行不知道是不是我哪搞错啦，你发给我最好啦，我明天就要交啦，你能发给我我就真的太感谢你啦！
   [email protected]