Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Cell.value=filename
Hi, I am using the following statement:
Application.Dialogs(xlDialogSaveAs).Show FullFilePath, vbNormalFocus How can I include in this statement a Filename which is in a Cell.value in order that the user can select the appropriate directory for him/her but the filename is fixed. thanks Helmut |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Cell.value=filename
That gets the whole filename, you need FileDialog as I showed you in the
previous thread. -- HTH Bob Phillips (replace xxxx in the email address with gmail if mailing direct) "Helmut" wrote in message ... Hi, I am using the following statement: Application.Dialogs(xlDialogSaveAs).Show FullFilePath, vbNormalFocus How can I include in this statement a Filename which is in a Cell.value in order that the user can select the appropriate directory for him/her but the filename is fixed. thanks Helmut |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Cell.value=filename
Hi Helmut,
Please try the following: In cell A1 (as example) you place the following formula: =If(B1="Lucy";"C:\Lucy\";"")&ifIf(B1="Helmut";"C:\ Helmut\";"").... as much varable you want You write on cell A2 the following formula: =A1&"FILENAME.xls" In your VBA code, you write: sub filename() Dim FILENAME as string FILENAME=range("A2").value ActiveWorkbook.SaveAs Filename:=FILENAME end sub You will have your file saved with the name you pre-selected on the path of the user. If it doesn't work, please react. Regards, -- Paulo Mónica Portugal "Helmut" wrote: Hi, I am using the following statement: Application.Dialogs(xlDialogSaveAs).Show FullFilePath, vbNormalFocus How can I include in this statement a Filename which is in a Cell.value in order that the user can select the appropriate directory for him/her but the filename is fixed. thanks Helmut |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Cell.value=filename
Sorry Helmut, there is a "IF" repeated on the 2nd variable of cell A1.
-- Paulo Mónica Portugal "pmonica" wrote: Hi Helmut, Please try the following: In cell A1 (as example) you place the following formula: =If(B1="Lucy";"C:\Lucy\";"")&ifIf(B1="Helmut";"C:\ Helmut\";"").... as much varable you want You write on cell A2 the following formula: =A1&"FILENAME.xls" In your VBA code, you write: sub filename() Dim FILENAME as string FILENAME=range("A2").value ActiveWorkbook.SaveAs Filename:=FILENAME end sub You will have your file saved with the name you pre-selected on the path of the user. If it doesn't work, please react. Regards, -- Paulo Mónica Portugal "Helmut" wrote: Hi, I am using the following statement: Application.Dialogs(xlDialogSaveAs).Show FullFilePath, vbNormalFocus How can I include in this statement a Filename which is in a Cell.value in order that the user can select the appropriate directory for him/her but the filename is fixed. thanks Helmut |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs Cell.value=filename
Hi Monica,
the following did it: 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("Fname") "pmonica" wrote: Sorry Helmut, there is a "IF" repeated on the 2nd variable of cell A1. -- Paulo Mónica Portugal "pmonica" wrote: Hi Helmut, Please try the following: In cell A1 (as example) you place the following formula: =If(B1="Lucy";"C:\Lucy\";"")&ifIf(B1="Helmut";"C:\ Helmut\";"").... as much varable you want You write on cell A2 the following formula: =A1&"FILENAME.xls" In your VBA code, you write: sub filename() Dim FILENAME as string FILENAME=range("A2").value ActiveWorkbook.SaveAs Filename:=FILENAME end sub You will have your file saved with the name you pre-selected on the path of the user. If it doesn't work, please react. Regards, -- Paulo Mónica Portugal "Helmut" wrote: Hi, I am using the following statement: Application.Dialogs(xlDialogSaveAs).Show FullFilePath, vbNormalFocus How can I include in this statement a Filename which is in a Cell.value in order that the user can select the appropriate directory for him/her but the filename is fixed. thanks Helmut |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
SaveAs with a pre-defined filename | Excel Programming | |||
FileName SaveAs | Excel Programming | |||
Set Saveas Filename from Cell Contents Using VBA | Excel Programming | |||
Macro to open SaveAs... and change filename to cell value | Excel Programming | |||
SaveAs Filename Help | Excel Programming |