通过VBA将在线xls数据导入MS访问

时间:2015-06-09 13:50:05

标签: vba ms-access data-import

我需要将存储在Excel电子表格中的汇率数据在线导入Access数据表。但是首先我需要操作它,所以我想将它导入数组然后将数组写入表中。我用于Excel的代码似乎不适用于Access ...

Dim arr as variant
Workbook.Open ("http://www.rba.gov.au/statistics/tables/xls-hist/f11hist.xls")
arr=activeworkbook.worksheets("Data").Range("A12:X" & Range("A1045876").end(xldown).Row)

'data manipulation ommitted

'add to data table

显然这在Access中不起作用,但我不知道如何打开文件并读取数据。任何帮助表示赞赏!

3 个答案:

答案 0 :(得分:0)

你的问题过于宽泛,所以答案是通用的。您可以在MS Access应用程序中使用Microsoft Excel对象库,方法是添加对该库的引用并开始使用其方法,类似于您在Excel中所做的操作。更多详情请见:https://msdn.microsoft.com/en-us/library/office/ff194944.aspx。希望这可能有所帮助。

答案 1 :(得分:0)

我想这一行可以帮到你。 Docmd.Transferspreadsheet acImport ,," excel表的名称","链接找到表格(例如:c:.....)",true 这将有助于获取excel表并导入其访问权限。

答案 2 :(得分:0)

Excel通过 - 在场景后面 - 首先下载文件然后阅读它。

Access无法执行此操作,但您可以使用VBA下载文件Download file from URL,然后创建指向其中的工作表或命名范围的链接。或者通过自动化打开文件。