SaveAs Question

[Greg Little]

I'm using
Activeworkbook.SaveAs.("C:Copyofthecurrent") to save a copy
on my desktop. If this runs on Win 98, works just fine. What happens
if it runs on Win 2k or XP, which have multiple users? Is the user an
issue or will it just save to the desktop, which is the desired
result? Also, what happens in the rare case that the user doesn't have
a C drive? I'd expect a macro error- How do I get around these
problems, if problems they are? TIA
Greg

 

[Jim Cone]

Greg,

I can't get your code snippet to compile.
However, the following code will place a shortcut to the active workbook on the desktop.
Maybe it will suit your needs...
'-----------------------------------------
Sub DesktopShortcut()
Dim WSHShell As Object
Dim MyShortcut As Object
Dim DesktopPath As String

Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\" & ActiveWorkbook.Name & ".lnk")

With MyShortcut
.TargetPath = ActiveWorkbook.FullName
' .IconLocation = "F:\Icons\Arrows\ARW03LT.ICO" 'your choice
.WindowStyle = 1 'not sure if needed
.Save
End With

Set WSHShell = Nothing
Set MyShortcut = Nothing
MsgBox "A shortcut has been placed on your desktop. ", vbInformation, " Primitive Software"
End Sub
'----------------------------------

Jim Cone
San Francisco, CA

 

[Greg Little]

My Bad, there's an extra period in there- should read

Activeworkbook.SaveAs ("C:Copyofthecurrent")

This should save a copy of the current workbook as whatever name is specified in
the quotes. What I'm after is making sure it is saved on the desktop.It has
previously done sounder Win 98, however it seems to want to put the copy in the
documents folder on XP. Is there a way to force it to the desktop on later
versions of windows, which include multiple users?

 

[Jim Cone]

Greg,

Did you try the code I supplied?
In any case, I recorded a macro and saved a new workbook to the desktop.
This is what I got...

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\user\Desktop\Book2.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False

Regards,
Jim Cone
San Francisco, USA