Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel,microsoft.public.excel.newusers,microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
Button Error - Save at location
I have copied the code for this button.
The purpose of the button is to save the excel sheet at a specific location, and to save it. I want a prompt box to appear, which asks what name the user wants to save it as. Usually this name will be the date. I am getting this message: Message: Run time error: '424' Debug = MyFileName = "MyName" & UserForm1.TextBox1 & ".xls" 'Create the File Name ---------------------------------------------------------------------------- --------------------------------------------------------- Private Sub CommandButton1_Click() MyPath = "s:shared\Enforcement, Enquiry & Complaints" 'Set the Path MyFileName = "MyName" & UserForm1.TextBox1 & ".xls" 'Create the File Name MySaveString = MyPath & MyFileName 'String the two together ActiveWorkbook.SaveAs Filename:= _ MySaveString, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub Private Sub UserForm_Initialize() Me.TextBox1 = Date End Sub Private Sub TextBox1_Change() End Sub ---------------------------------------------------------------------------- ------------------------------------------------------------- Please help |
#2
Posted to microsoft.public.excel,microsoft.public.excel.newusers,microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
Button Error - Save at location
Hi Ravi,
Textbox1 is an object. Change MyFileName = "MyName" & UserForm1.TextBox1 & ".xls" 'Create the File Name to: MyFileName = "MyName" & UserForm1.TextBox1.text & ".xls" 'Create the File Name -- John johnf 202 at hotmail dot com "Ravi Sandhu" wrote in message ... | I have copied the code for this button. | | The purpose of the button is to save the excel sheet at a specific location, | and to save it. I want a prompt box to appear, which asks what name the user | wants to save it as. Usually this name will be the date. | | I am getting this message: | Message: Run time error: '424' | Debug = MyFileName = "MyName" & UserForm1.TextBox1 & ".xls" 'Create the | File Name | -------------------------------------------------------------------------- -- | --------------------------------------------------------- | | Private Sub CommandButton1_Click() | MyPath = "s:shared\Enforcement, Enquiry & Complaints" 'Set | the Path | MyFileName = "MyName" & UserForm1.TextBox1 & ".xls" 'Create the File Name | MySaveString = MyPath & MyFileName 'String the two together | | ActiveWorkbook.SaveAs Filename:= _ | MySaveString, FileFormat:= _ | xlNormal, Password:="", WriteResPassword:="", _ | ReadOnlyRecommended:=False, CreateBackup:=False | End Sub | | Private Sub UserForm_Initialize() | Me.TextBox1 = Date | End Sub | Private Sub TextBox1_Change() | | End Sub | | -------------------------------------------------------------------------- -- | ------------------------------------------------------------- | | Please help | | | | |
#3
Posted to microsoft.public.excel,microsoft.public.excel.newusers,microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
Button Error - Save at location
Hi Ravi
you're trying to use the object reference in the string concatenation. Try MyFileName = "MyName" & UserForm1.TextBox1.text & ".xls" HTH Frank Ravi Sandhu wrote: I have copied the code for this button. The purpose of the button is to save the excel sheet at a specific location, and to save it. I want a prompt box to appear, which asks what name the user wants to save it as. Usually this name will be the date. I am getting this message: Message: Run time error: '424' Debug = MyFileName = "MyName" & UserForm1.TextBox1 & ".xls" 'Create the File Name --------------------------------------------------------------------- ------- --------------------------------------------------------- Private Sub CommandButton1_Click() MyPath = "s:shared\Enforcement, Enquiry & Complaints" 'Set the Path MyFileName = "MyName" & UserForm1.TextBox1 & ".xls" 'Create the File Name MySaveString = MyPath & MyFileName 'String the two together ActiveWorkbook.SaveAs Filename:= _ MySaveString, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub Private Sub UserForm_Initialize() Me.TextBox1 = Date End Sub Private Sub TextBox1_Change() End Sub --------------------------------------------------------------------- ------- ------------------------------------------------------------- Please help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro - save to current location vs excel default location | Excel Discussion (Misc queries) | |||
compile/syntax error to save active book to new location on networ | Excel Worksheet Functions | |||
how to get disk icon on save button of save as dialog like 2000 | Excel Discussion (Misc queries) | |||
Button - Save Location | Excel Programming | |||
Location of control button | Excel Programming |