访问VBA查询提取并命名它

我正在尝试从表单中的查询中提取内容。提取正在工作，但我无法为提取的电子表格命名。问题是提取的文件没有名称，出于某种原因vba不会接受我的文本框值。我欢迎任何解决方案，谢谢

Private Sub Command1_Click()

Dim FirstName As String
Dim path As String

path = CurrentProject.path & "\" & FirstName & ".xlsx"

FirstName = Forms![Form2]![Text2]

            DoCmd.TransferSpreadsheet acExport, _
            TableName:="3_QRY_AEGIS_LIMITS_MAX", _
            fileName:=path, _
            HasFieldNames:=True
End Sub

---

由于@Warcupine已经在评论中为您提供了解决方案，而且您也通过它解决了您的问题，所以我只是将其作为答案发布，以便其他新生访客能够理解它已经解决了

Private Sub CmdExport_Click()    
Dim FirstName As String
Dim OutputPath As String
Dim TblToExport As String

FirstName = Forms![Form2]![Text2]
OutputPath = CurrentProject.path & "\" & FirstName & ".xlsx"
TblToExport = "3_QRY_AEGIS_LIMITS_MAX"

            DoCmd.TransferSpreadsheet acExport, _
            TableName:=TblToExport, _
            fileName:=OutputPath, _
            HasFieldNames:=True
End Sub

---

你们在名字之前分配路径，这样路径就会有一个空字符串作为名字。非常感谢你们，我同时感到哑口无言和宽慰。再次感谢你的帮助！