使用VB6将数据从Excel文件传输到Access文件

Question

亲爱的所有人，我有一个Excel文件（.xls），其中包含名为“客户”的第一张工作表中的数据。 我也有一个Access.mdb数据库，其中包含一个名为“ CustomerDetails”的表。 我想使用VB6代码将数据从excel工作表传输到Access数据库。 我怎样才能做到这一点？ 提前致谢，

Answer 1

浏览此http://office.microsoft.com/zh-cn/access-help/import-export-and-link-data-between-access-and-excel-HP001095095.aspx

Answer 2

您可以使用Access从Excel导入工作表吗？

如果不是，则需要在VB中执行此操作，则需要以VB打开Excel文件或从Excel导出为csv格式并将其打开，然后将数据写入现有的Access表中。

Answer 3

这很简单，只需将下面的代码放在Access中的模块中，这将自动为您导入。 如果您需要运行代码，可以将其放在form_open或类似的名称中。 您甚至可以使用批处理文件启动它。

Function import()

basedir = "INSERT YOUR SPREADSHEET HERE"

DoCmd.TransferSpreadsheet _
            acImport, _
            acSpreadsheetTypeExcel9, _
            "TABLE NAME HERE", _
            basedir, _
            False
End Function