[已解决]求助，如何在不打开Access2003的情况下，把Excel2003中的数据导入。

小米多123 · 发表于 2012-7-11 20:45

就是在不打开Access2003的情况下，把Excel2003中的数据导入到Access2003中。谢谢帮忙！！！！

最佳答案

月排行榜 / 总排行榜

suye1010

2012-7-13 16:09

这个是修改过的文件，如果运行正确的话，你可以在编辑菜单中找到一个 “上传到数据库” 的命令。

双庙村林权证数据库.zip (17.87 KB, 下载次数: 47)

小米多123 · 发表于 2012-7-11 20:47

本帖最后由小米多123 于 2012-7-11 20:48 编辑

双庙村林权证数据库.xls (30.5 KB, 下载次数: 12)

suye1010 · 发表于 2012-7-11 21:39

Option Explicit
'引用：microsoft access 11.0 object library
Sub TransferDataIntoAccess()
Dim myData As String, myTable As String
Dim myFile As String, myRange As String
Dim wb As Workbook
Dim ws As Worksheet
Dim myAccess As Access.Application
Set wb = ThisWorkbook '指定工作薄
Set ws = wb.Sheets("林权证数据库") '指定工作表名称
myData = wb.Path & "\林权证数据.mdb" '指定新数据库名称（完整路径）
myTable = "林权证数据" '指定数据库的数据表名称
myFile = wb.FullName '指定工作薄名称（完整路径）
'指定工作表数据区域字符串
myRange = ActiveSheet.UsedRange.Address(False, False)
'删除已经存在的同名数据库文件
On Error Resume Next
Kill myData
On Error GoTo 0
'引用access对象
Set myAccess = New Access.Application
With myAccess
.NewCurrentDatabase myData '创建新数据库
'将指定工作表数据导入Access数据库
.DoCmd.TransferSpreadsheet acImport, 8, myTable, myFile, True, myRange
End With
MsgBox "工作表数据已成功保存到数据库！", vbOKOnly
myAccess.CloseCurrentDatabase '关闭数据库
'释放变量
Set myAccess = Nothing
Set wb = Nothing
Set ws = Nothing
End Sub

复制代码

你需要重新整理你的数据，好似原始数据有问题。

小米多123 · 发表于 2012-7-12 22:55

suye1010 发表于 2012-7-11 21:39
你需要重新整理你的数据，好似原始数据有问题。

数据.rar (66.72 KB, 下载次数: 16)

suye1010 · 发表于 2012-7-13 16:09

这个最佳答案由 suye1010 给出，感谢 suye1010 的回答。

单击隐藏图章

这个是修改过的文件，如果运行正确的话，你可以在编辑菜单中找到一个 “上传到数据库” 的命令。

双庙村林权证数据库.zip (17.87 KB, 下载次数: 47)

小米多123 · 发表于 2012-7-14 22:30

suye1010 发表于 2012-7-13 16:09
这个是修改过的文件，如果运行正确的话，你可以在编辑菜单中找到一个 “上传到数据库” 的命令。

太谢谢您了，但是没有成功，也是因为我没说明白，我是想把电子表格里的数据导到lgdata.mdb这个数据库的LQ_DJ这张表里，因为我电子表格里因子比较全，而数据库里的有一些列有，有的一些列里没有数据。我是想把电子表格的的数据充实进去。虽然是这样，我也对您表示一万分的感谢了，因为我知道编这些程序特费脑筋，我们虽然素不相识，可您还能这么费心的帮我写。在这里还是要对您再表示感谢！！

小米多123 · 发表于 2012-7-14 22:32

小米多123 发表于 2012-7-14 22:30
太谢谢您了，但是没有成功，也是因为我没说明白，我是想把电子表格里的数据导到lgdata.mdb这个数据库的LQ ...

错误原因是找不到工程或库，是不是就是没有找到LQ_DJ这个库呢？

suye1010 · 发表于 2012-7-14 22:48

我觉得找不到库是不是因为你没有安装Access呢？

tomle · 发表于 2012-7-15 13:01

打开导不就行了，用2007版的很快吗，

		自动登录	找回密码
密码			注册

[已解决]求助，如何在不打开Access2003的情况下，把Excel2003中的数据导入。

相关帖子

评分