[maxx_eclipse]

Afternoon everyone,

Just wanted to ask a question (which I hope is simple enough to answer).

I'm using VBA to run the DoCmd.OutputTo action to save a file. I would like the default save location to be the desktop, but unfortunately, the location of the desktop is unique for each computer*, so to determine the save location for the desktop wouldn't be so easy by just entering a default path.

Any ideas?

Thanks!

* I know this is the case for Vista, but I can't remember if it's the same for XP.... In fact, would it be possible to use a code that determines whether they're running a Vista or XP and then through that determine the save location?

[IMM]

You could locate what you want by using special folders as in
http://msdn.microsoft.com/en-us/libr...ffice.10).aspx

some various other language variations of it (there are lots out there)
http://msdn.microsoft.com/en-us/libr...xe(VS.85).aspx
http://msdn.microsoft.com/en-us/libr...xe(VS.85).aspx


Or, you might simply want to use %HOMEDRIVE%%HOMEPATH%\Desktop\ plus, of course, the file name in the Outputfile argument.

[Rollin_Again]

Here is some VBA to get the desktop path.

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(&H10&)
strMyDesk = objFolder.Self.Path
MsgBox strMyDesk

Regards,
Rollin

[maxx_eclipse]

Well, thanks for your help all,

but it seems that DoCmd.OutputTo doesn't like "%HOMEDRIVE%%HOMEPATH%\Desktop\" or "strMyDesk"...

Any other ways?

[Rollin_Again]

Please post the entire line of code you are attempting to use for the export.

Regards,
Rollin

[maxx_eclipse]

DoCmd.OpenForm "XLS", acNormal, "", "(([CONTACTS].[Select])=-1)", , acNormal
MsgBox "You will now be prompted to select the output folder for the .xls file.", vbInformation, "Select Output Folder"
DoCmd.OutputTo acOutputForm, "", "Excel97-Excel2003Workbook(*.xls)", "", True, "", 0, acExportQualityPrint
MsgBox "The selected records have been successfully exported into an Excel Document (.xls)." & vbCrLf & vbCrLf & "The XLS file will now open.", vbInformation, "Successful Export"
DoCmd.Close , ""