database - 如何制作一个按钮以将 Excel 表中的数据导入我的访问表？

Question

我正在尝试制作一个按钮，以便在单击它时可以选择一个 Excel 文件并将其上传到数据库表。你能帮助我吗？

例子

=================

ID 姓名 职位 公司 开始日期 停止日期 简历日期 订单中的简历 ID-2

1 Joe Nurse BRC 10-Jan-12 20-Oct-09 是
123 Paul CO CGH 10-Feb-12 是 14

Answer 1

您可以调查 Office FileDialog：

Dim fd As FileDialog 
Set fd = Application.FileDialog(msoFileDialogFilePicker) 
If fd.Show Then
    MsgBox "file choosen was " & fd.SelectedItems(1)
End If

您需要添加对 Office 对象库的引用（在 VBA 中）才能运行此代码。

然后，您可以使用DoCmd.TransferSpreadsheet导入 Excel 文件。