[求助]如何用VBA把Excel数据复制到Access里去?

duron · 发表于 2005-9-7 13:44

fTwilBka.rar (13.68 KB, 下载次数: 23)

如附件,我想把excel两个工作表里面的数据分别复制到Access对应的两个表里面去, 然后把Access的查询复制到Excel 的"Comparison"工作表里面去, 不知道VBA是如何编写的?

Public Sub ActualvsForecast() Dim AppAccess As New Access.Application AppAccess.OpenCurrentDatabase "E:\Actual Vs Forecast.mdb" AppAccess.DoCmd.OpenTable "Actual" '接下来怎么把Excel数据复制到Access里面然后把Access数据复制到Excel里面?

End Sub

duron · 发表于 2005-9-8 17:50

怎么一直没人回应啊?!求求大家帮帮忙吧!!!

hnqjping · 发表于 2005-10-5 13:53

用宏可以解决EXCEL到ACCESS

duron · 发表于 2005-10-15 18:10

重游故地，还是没有什么发现。楼上的，能不能详细点解释一下？拜托了！

今天试了一下改为引用“Microsoft DAO 3.6 Object Libraray”而不是之前的“Microsoft Access 10.0 Object Library”可以实现删除“Actual”表中记录，但不知如何把Excel里复制的数据粘贴到Access的“Actual”表当中去？

Sub ActualvsForecast() Dim RST As Recordset, DBS As Database ActiveWorkbook.Activate Application.Goto reference:="dd" Selection.Copy Set DBS = OpenDatabase("E:\Actual Vs Forecast.mdb") 'DBS.Execute "DELETE * FROM ACTUAL" '...

DBS.Close End Sub

duron · 发表于 2005-10-15 23:31

热切期待中！就没人能解答我的问题吗？

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