访问acc.DoCmd.TransferSpreadsheet方法抛出错误

Question

下面是我用于将数据从活动工作表传输到访问表'

的代码

它会抛出以下错误

'运行时错误2498

Sub AccImport()
Dim acc As New Access.Application
Dim rng As Range
Set rng = ActiveSheet.Range("A1").CurrentRegion
'MsgBox (rng.Address)
acc.OpenCurrentDatabase "C:\Users\ksathis\Desktop\sample.accdb"
acc.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "RETOUCH_WORKEDHOURS", ActiveWorkbook.FullName, True, rng
acc.CloseCurrentDatabase
acc.Quit
Set acc = Nothing
End Sub

这是我的访问表的外观

这就是我的excel外观表的样子

Answer 1

TransferSpreadsheet中的范围是一个字符串（http://msdn.microsoft.com/en-us/library/office/ff844793(v=office.15).aspx）。您正在使用对象。

您可能需要考虑：

Rng.Address