L
Lz
I posted this as a question a couple of weeks ago and now finally trying to
get it to work.
I have a number of spreadsheets to import and need some help with the code,
sample code was posted, however it does not work, this is what I have:
Private Sub Command95_Click()
Dim strSS As String
For i = ""
strSS = "C:\database\dataimports\Prospects_& i &.xls"
If Dir(strSS) <> " " Then
DoCmd.TransferSpreadsheet acImport, 8, "tblmamprospects", _
strSS, True, ""
End If
End Sub
Any help would be appreciated.
Lz
get it to work.
I have a number of spreadsheets to import and need some help with the code,
sample code was posted, however it does not work, this is what I have:
Private Sub Command95_Click()
Dim strSS As String
For i = ""
strSS = "C:\database\dataimports\Prospects_& i &.xls"
If Dir(strSS) <> " " Then
DoCmd.TransferSpreadsheet acImport, 8, "tblmamprospects", _
strSS, True, ""
End If
End Sub
Any help would be appreciated.
Lz