使用VBA将电子表格传输到Access数据库

Question

我有一个浏览按钮，然后选择文件名和路径并将其放置在textbox5中。我需要在文件名中使用相同的值，但是它不起作用。它抛出：

  

运行时错误2522-该操作或方法需要一个File Name参数

Private Sub Command10_Click()
  Dim dbs As DAO.Database
  Dim td As DAO.TableDef
  Dim fileName As String

'set current database
 Set dbs = CurrentDb

 Me.Text5 = fileName

DoCmd.TransferSpreadsheet acImport, , "tblS3DimportTemp", fileName, True
 MsgBox "Data Uploaded!"

End Sub

Answer 1

而不是：Me.Text5 = fileName

写： fileName = Me.Text5

在许多编程语言中，左变量获取右变量的值。