如何创建一个按钮将数据从excel表导入我的访问表？

Question

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

实施例

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

ID名称职位公司开始日期停止日期订单ID-2中的CV日期CV

1 Joe Nurse BRC 10-Jan-12 20-Oct-09 yes
123 Paul CO CGH 10-Feb-12 yes 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文件。