需要从本地系统动态插入访问表单的附件，并将地址保存到表中

Question

嘿，我是访问数据库的新手。我正在创建一个表单，我需要在其中附加本地系统的 excel 文件。我尝试使用附件控件来附加文档。但是我无法将其存储到表中。我需要使用该 excel 文档进行进一步处理。我需要从本地系统中获取从中选择数据的路径。
我对路径进行了硬编码，并且能够进行操作，但现在我需要从该位置动态获取数据。

提前致谢

我的硬编码代码如下所示

    Private Sub Command4_Click()
Dim dbs As DAO.Database
Set dbs = CurrentDb
If (ifTableExists("featuretable") = True) Then
dbs.Execute "Delete * from  featuretable"
End If
Dim filepath As String
filepath = "C:[e-mail]"**
DoCmd.TransferSpreadsheet acImport, , "featuretable", filepath, True
fmfeaturesubform.Form.Requery
End Sub

Answer 1

"

附加"和"导入"是完全不同的东西。 我猜你想导入Excel工作表。一种方法是使用Application.FileDialog：http://msdn.microsoft.com/en-us/library/office/ff196794（v=office.15）.aspx

另一种方法是搜索当前文件夹并导入匹配的文件名：

    Dim mBaseFolder As String
    Dim mFname as string
    mBaseFolder = "C:test" ' or application.CurrentProject.Path
    mFname = Dir(mBaseFolder & "*.xls")
    Do While fname <> ""
        DoCmd.TransferSpreadsheet acImport, , "featuretable", mFname , True
        mFname = dir()
    Loop