Directing a Save As in VBA

[ngarland13]

Hi,

I am working on a tool, and when it opens I want it to immediatly do a save as (I have it read only, and can get the save as to come up, but i don't want anyone saving the tool where the save as pops up, I want it to co to their C/Data folder).

The last line in my auto open vba code is below, and that brings up the save as screen, but i want to direct it to go to C/Data, any help would be appreciated.

"Application.Dialogs(xlDialogSaveAs).Show"

[RonaldF]

ChDrive C
ChDir C:\Data folder

--
Ronald Ferdinandus
http://www.ro-pay.nl


"ngarland13" wrote:

>
> Hi,
>
> I am working on a tool, and when it opens I want it to immediatly do a
> save as (I have it read only, and can get the save as to come up, but i
> don't want anyone saving the tool where the save as pops up, I want it
> to co to their C/Data folder).
>
> The last line in my auto open vba code is below, and that brings up the
> save as screen, but i want to direct it to go to C/Data, any help would
> be appreciated.
>
> "Application.Dialogs(xlDialogSaveAs).Show"
>
>
> --
> ngarland13
> ------------------------------------------------------------------------
> ngarland13's Profile: http://www.excelforum.com/member.php...o&userid=23713
> View this thread: http://www.excelforum.com/showthread...hreadid=401212
>
>

[ngarland13]

Thanks, but I couldn't get that to work. I put in the commands you gave me before save as string, was that a mistake?

[RonaldF]

Sorry for my first answer, the code below will do the right thing

Sub test()

Dim vFileName As Variant

'Change directory and drive
ChDrive "C"
ChDir "C:\Data"

'Ask for the new filename
vFileName = Application.GetSaveAsFilename("", "Microsoft Excel-werkmap
(*.xls),*.xls")
If vFileName <> False Then
Workbooks.Add.SaveAs Filename:=vFileName
Else
MsgBox "File hasn't been saved!!!"
End If

End Sub

--
Ronald Ferdinandus
http://www.ro-pay.nl


"ngarland13" wrote:

>
> Hi,
>
> I am working on a tool, and when it opens I want it to immediatly do a
> save as (I have it read only, and can get the save as to come up, but i
> don't want anyone saving the tool where the save as pops up, I want it
> to co to their C/Data folder).
>
> The last line in my auto open vba code is below, and that brings up the
> save as screen, but i want to direct it to go to C/Data, any help would
> be appreciated.
>
> "Application.Dialogs(xlDialogSaveAs).Show"
>
>
> --
> ngarland13
> ------------------------------------------------------------------------
> ngarland13's Profile: http://www.excelforum.com/member.php...o&userid=23713
> View this thread: http://www.excelforum.com/showthread...hreadid=401212
>
>

[Dave Peterson]

ChDrive "C"
ChDir "C:\Data"
Application.Dialogs(xlDialogSaveAs).Show

(if you still want to use the dialog.)



ngarland13 wrote:
>
> Hi,
>
> I am working on a tool, and when it opens I want it to immediatly do a
> save as (I have it read only, and can get the save as to come up, but i
> don't want anyone saving the tool where the save as pops up, I want it
> to co to their C/Data folder).
>
> The last line in my auto open vba code is below, and that brings up the
> save as screen, but i want to direct it to go to C/Data, any help would
> be appreciated.
>
> "Application.Dialogs(xlDialogSaveAs).Show"
>
> --
> ngarland13
> ------------------------------------------------------------------------
> ngarland13's Profile: http://www.excelforum.com/member.php...o&userid=23713
> View this thread: http://www.excelforum.com/showthread...hreadid=401212

--

Dave Peterson