Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Question
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Question
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" wrote in message om... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Question
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? On Sun, 5 Dec 2004 18:01:09 -0800, "Jim Cone" wrote: 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" wrote in message om... 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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Question
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 "Greg Little" wrote in message ... 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? On Sun, 5 Dec 2004 18:01:09 -0800, "Jim Cone" wrote: 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" wrote in message om... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 question involving SaveAs to .XLS | Excel Discussion (Misc queries) | |||
Saveas VBA question | Excel Discussion (Misc queries) | |||
More help with SaveAs | Excel Programming | |||
Question Using SaveAs Method | Excel Programming | |||
SaveAs,csv | Excel Programming |