Allowing the user to specify save location

[TimN]

Easy question I'm sure.....

How do I write code to save a file as the name in cell C2 but also allow the
user to define the location (path) of the file?

What I would like is the same as the window that pops up when you select
File>> Save As in Excel. If I could get the file name to default (from cell
C2) and then have the user take it from there to save to the location they
want.

How can I get there?

I currently have the code below:

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Range("C2").Value
Application.DisplayAlerts = True

[News]

Tim,
You mean like this ?

Private Sub CommandButton3_Click()
Dim RetVal As Variant
RetVal = Application.GetSaveAsFilename(Range("C2"))
If RetVal <> False Then
ThisWorkbook.SaveAs RetVal
End If
End Sub

NickHK

"TimN" <[email protected]> 级糶秎ン穝籇:[email protected]...
> Easy question I'm sure.....
>
> How do I write code to save a file as the name in cell C2 but also allow
> the
> user to define the location (path) of the file?
>
> What I would like is the same as the window that pops up when you select
> File>> Save As in Excel. If I could get the file name to default (from
> cell
> C2) and then have the user take it from there to save to the location they
> want.
>
> How can I get there?
>
> I currently have the code below:
>
> Application.DisplayAlerts = False
> ActiveWorkbook.SaveAs Filename:=Range("C2").Value
> Application.DisplayAlerts = True

[Die_Another_Day]

Tim, try this:
Sub FolderPicker()
Dim SvPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect =3D False
If .Show =3D False Then Exit Sub
SvPath =3D .SelectedItems(1)
End With
ActiveWorkbook.SaveAs SvPath & Range("C1")
End Sub

Charles
News wrote:
> Tim,
> You mean like this ?
>
> Private Sub CommandButton3_Click()
> Dim RetVal As Variant
> RetVal =3D Application.GetSaveAsFilename(Range("C2"))
> If RetVal <> False Then
> ThisWorkbook.SaveAs RetVal
> End If
> End Sub
>
> NickHK
>
> "TimN" <[email protected]> =BC=B6=BCg=A9=F3=B6l=A5=F3=B7s=BB=
D:[email protected]...
> > Easy question I'm sure.....
> >
> > How do I write code to save a file as the name in cell C2 but also allow
> > the
> > user to define the location (path) of the file?
> >
> > What I would like is the same as the window that pops up when you select
> > File>> Save As in Excel. If I could get the file name to default (from
> > cell
> > C2) and then have the user take it from there to save to the location t=
hey
> > want.
> >
> > How can I get there?
> >
> > I currently have the code below:
> >
> > Application.DisplayAlerts =3D False
> > ActiveWorkbook.SaveAs Filename:=3DRange("C2").Value
> > Application.DisplayAlerts =3D True

[TimN]

Thanks to both of you. These worked great! One question just out of
curiosity. When I do the save, it saves the file as a file type "File"
rather than an excel worksheet (.xls). What is file type "file"?

"Die_Another_Day" wrote:

> Tim, try this:
> Sub FolderPicker()
> Dim SvPath As String
> With Application.FileDialog(msoFileDialogFolderPicker)
> .AllowMultiSelect = False
> If .Show = False Then Exit Sub
> SvPath = .SelectedItems(1)
> End With
> ActiveWorkbook.SaveAs SvPath & Range("C1")
> End Sub
>
> Charles
> News wrote:
> > Tim,
> > You mean like this ?
> >
> > Private Sub CommandButton3_Click()
> > Dim RetVal As Variant
> > RetVal = Application.GetSaveAsFilename(Range("C2"))
> > If RetVal <> False Then
> > ThisWorkbook.SaveAs RetVal
> > End If
> > End Sub
> >
> > NickHK
> >
> > "TimN" <[email protected]> 录露录g漏贸露l楼贸路s禄D:[email protected]...
> > > Easy question I'm sure.....
> > >
> > > How do I write code to save a file as the name in cell C2 but also allow
> > > the
> > > user to define the location (path) of the file?
> > >
> > > What I would like is the same as the window that pops up when you select
> > > File>> Save As in Excel. If I could get the file name to default (from
> > > cell
> > > C2) and then have the user take it from there to save to the location they
> > > want.
> > >
> > > How can I get there?
> > >
> > > I currently have the code below:
> > >
> > > Application.DisplayAlerts = False
> > > ActiveWorkbook.SaveAs Filename:=Range("C2").Value
> > > Application.DisplayAlerts = True
>
>

[Die_Another_Day]

Try:
ActiveWorkbook.SaveAs Filename:=3D _
SvPath & Range("C1"), _
FileFormat:=3DxlNormal

Let me know if that fixes things.

Charles

TimN wrote:
> Thanks to both of you. These worked great! One question just out of
> curiosity. When I do the save, it saves the file as a file type "File"
> rather than an excel worksheet (.xls). What is file type "file"?
>
> "Die_Another_Day" wrote:
>
> > Tim, try this:
> > Sub FolderPicker()
> > Dim SvPath As String
> > With Application.FileDialog(msoFileDialogFolderPicker)
> > .AllowMultiSelect =3D False
> > If .Show =3D False Then Exit Sub
> > SvPath =3D .SelectedItems(1)
> > End With
> > ActiveWorkbook.SaveAs SvPath & Range("C1")
> > End Sub
> >
> > Charles
> > News wrote:
> > > Tim,
> > > You mean like this ?
> > >
> > > Private Sub CommandButton3_Click()
> > > Dim RetVal As Variant
> > > RetVal =3D Application.GetSaveAsFilename(Range("C2"))
> > > If RetVal <> False Then
> > > ThisWorkbook.SaveAs RetVal
> > > End If
> > > End Sub
> > >
> > > NickHK
> > >
> > > "TimN" <[email protected]> =BC=B6=BCg=A9=F3=B6l=A5=F3=B7=
s=BBD:[email protected]...
> > > > Easy question I'm sure.....
> > > >
> > > > How do I write code to save a file as the name in cell C2 but also =
allow
> > > > the
> > > > user to define the location (path) of the file?
> > > >
> > > > What I would like is the same as the window that pops up when you s=
elect
> > > > File>> Save As in Excel. If I could get the file name to default (=
from
> > > > cell
> > > > C2) and then have the user take it from there to save to the locati=
on they
> > > > want.
> > > >
> > > > How can I get there?
> > > >
> > > > I currently have the code below:
> > > >
> > > > Application.DisplayAlerts =3D False
> > > > ActiveWorkbook.SaveAs Filename:=3DRange("C2").Value
> > > > Application.DisplayAlerts =3D True
> >=20
> >

[News]

Which format was was the original file in and how do you .SaveAs ?

NickHK

"TimN" <[email protected]> 级糶秎ン穝籇:[email protected]...
> Thanks to both of you. These worked great! One question just out of
> curiosity. When I do the save, it saves the file as a file type "File"
> rather than an excel worksheet (.xls). What is file type "file"?
>
> "Die_Another_Day" wrote:
>
>> Tim, try this:
>> Sub FolderPicker()
>> Dim SvPath As String
>> With Application.FileDialog(msoFileDialogFolderPicker)
>> .AllowMultiSelect = False
>> If .Show = False Then Exit Sub
>> SvPath = .SelectedItems(1)
>> End With
>> ActiveWorkbook.SaveAs SvPath & Range("C1")
>> End Sub
>>
>> Charles
>> News wrote:
>> > Tim,
>> > You mean like this ?
>> >
>> > Private Sub CommandButton3_Click()
>> > Dim RetVal As Variant
>> > RetVal = Application.GetSaveAsFilename(Range("C2"))
>> > If RetVal <> False Then
>> > ThisWorkbook.SaveAs RetVal
>> > End If
>> > End Sub
>> >
>> > NickHK
>> >
>> > "TimN" <[email protected]> ???gco?los?D:[email protected]...
>> >
>> > > Easy question I'm sure.....
>> > >
>> > > How do I write code to save a file as the name in cell C2 but also
>> > > allow
>> > > the
>> > > user to define the location (path) of the file?
>> > >
>> > > What I would like is the same as the window that pops up when you
>> > > select
>> > > File>> Save As in Excel. If I could get the file name to default
>> > > (from
>> > > cell
>> > > C2) and then have the user take it from there to save to the location
>> > > they
>> > > want.
>> > >
>> > > How can I get there?
>> > >
>> > > I currently have the code below:
>> > >
>> > > Application.DisplayAlerts = False
>> > > ActiveWorkbook.SaveAs Filename:=Range("C2").Value
>> > > Application.DisplayAlerts = True
>>
>>