How would I be able to allow a user to choose the file to open instead of hard coding the name of the file as shown in the following line:
Private Sub cmdImport_Click()
DoCmd.OpenQuery "qryAppend_ImportFC" 'appends to an archive
Dim strName As String
Dim xl As Object
Set xl = CreateObject("Excel.Application")
Set xl = Nothing
CurrentDb.Execute "delete * from [Import_FC]"
strName = "Transpose"