don't export to desktop..everyones PC is different,
instead, export to "C:\temp"
the code makes the folder in case the user doent have it.
Code:
sub saveFile()
vDir = "c:\temp\"
MakeDir vDir
vFile = vDir & "Myfile.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "qsData2Export", vFile, True,tabname
end sub
Public Sub MakeDir(ByVal pvDir)
Dim FSO
On Error Resume Next
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder pvDir 'like MkDir pvDir
Set FSO = Nothing
End Sub