Looking for macro code that will save the current workbook to the desktop of
the current user that is signed on to XP.
Looking for macro code that will save the current workbook to the desktop of
the current user that is signed on to XP.
Hi Marvin
Test this one
Sub Desktoptest()
Dim WSHShell As Object
Dim DesktopPath As String
Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
ActiveWorkbook.SaveAs DesktopPath & "\test.xls"
Set WSHShell = Nothing
End Sub
--
Regards Ron de Bruin
http://www.rondebruin.nl
"Marvin" <[email protected]> wrote in message news:[email protected]...
> Looking for macro code that will save the current workbook to the desktop of
> the current user that is signed on to XP.
"Marvin" <[email protected]> wrote in message
news:[email protected]...
> Looking for macro code that will save the current workbook to the desktop
> of
> the current user that is signed on to XP.
Try here:
http://groups.google.com/group/micro...28@tkmsftngp08
Good luck,
George
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks