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

zhc_y2000 2001-07-29 08:37:00
老师最近给了我一个Excel格式的数据文件,其中第一行为字段名,后面是数据。老师让我把这些数据一个一个输入到ACCESS数据库中,求救!
...全文
106 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
wlong 2001-07-30
用不了的,在office 2000 的access中的文件(File)菜单下有
一个功能是倒入excel文件的在英文版中菜单名叫get external data,
中文叫啥我就不知道了,在file的第三项,然后按向导做,
呵呵,一分钟搞定。
回复
zhc_y2000 2001-07-29
如何通过VBA读取EXCEL中的数据到ACCESS中??
回复
limengchen 2001-07-29
用ACCESS的导入功能,在文件菜单中。
回复
zzh 2001-07-29
真是的,你建一个ACCESS测试的数据库,然后再CTRL+C总会了吧,如果还要我教,你再学三年吧
回复
wyzegg 2001-07-29
肯定要写程序啦,把数据读出来写进数据库,难道这些也要教
回复
warlord 2001-07-29
听limengchen(lmc)的,否则累死你。
回复
cqq_chen 2001-07-29
用VBA完全可以做到,不然你可以把EXCEL文件发给我,我写个例子给你看看。
cqq-cheng@263.net
回复
playyuer 2001-07-29
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
回复
yun95791 2001-07-29
试以下:


此一模块共有四个参数:
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"
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-07-29 08:37
社区公告
暂无公告