神那，救救我吧！如何将Excel中定义的数据库数据导入Access数据库。定给高分！！！

[zhc_y2000]

老师最近给了我一个Excel格式的数据文件，其中第一行为字段名，后面是数据。老师让我把这些数据一个一个输入到ACCESS数据库中，求救！

[yun95791]

试以下：


此一模块共有四个参数：
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 成为 TestTable

ExportExcelSheetToAccess "Sheet1", "C:\book1.xls", "TestTable", "C:\Test.mdb"

[playyuer]

HOWTO: Use ADO with Excel Data from Visual Basic or VBA
http://support.microsoft.com/support/kb/articles/Q257/8/19.asp

如果数据很规则是二维表关系型的,则:
HOWTO: Transfer Data from ADO Data Source to Excel with ADO
http://support.microsoft.com/support/kb/articles/Q295/6/46.asp

否则,遍历 Cell:
HOWTO: Transfer Data from an ADO Recordset to Excel with Automation
http://support.microsoft.com/support/kb/articles/Q246/3/35.ASP

[cqq_chen]

用VBA完全可以做到，不然你可以把EXCEL文件发给我，我写个例子给你看看。
[e-mail]

[warlord]

听limengchen(lmc)的，否则累死你。

[wyzegg]

肯定要写程序啦，把数据读出来写进数据库，难道这些也要教

[zzh]

真是的，你建一个ACCESS测试的数据库，然后再CTRL+C总会了吧，如果还要我教，你再学三年吧

[limengchen]

用ACCESS的导入功能，在文件菜单中。

[zhc_y2000]

如何通过VBA读取EXCEL中的数据到ACCESS中？？

[wlong]

用不了的，在office 2000 的access中的文件（File）菜单下有
一个功能是倒入excel文件的在英文版中菜单名叫get external data，
中文叫啥我就不知道了，在file的第三项，然后按向导做，
呵呵，一分钟搞定。