Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Fails on SAVE
Hello
The following code gives me Incorrect Function on the save line. What does this mean and how do I fix it? Dim strMonth As String Dim strYear As String Range("B36:X36").Select Selection.Copy Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A4:X35").Select Application.CutCopyMode = False Selection.ClearContents strMonth = InputBox("Enter Reporting Month 01-12") strYear = InputBox("Enter Reporting Year") ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" & strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Thanks! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Fails on SAVE
Try the below. You dont need to declare the month as a string. Instead
declare as a numeric and use format function to zero pad... Dim strFile as String strfile = "G:\" & strYear & "\" & strYear & "-" & Format(strMonth, "00") & _ "\Turbine log " & strYear & "-" & Format(strMonth, "00") & ".xlsm" ActiveWorkbook.SaveAs Filename:=strFile, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False If this post helps click Yes --------------- Jacob Skaria "Thanks" wrote: Hello The following code gives me Incorrect Function on the save line. What does this mean and how do I fix it? Dim strMonth As String Dim strYear As String Range("B36:X36").Select Selection.Copy Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A4:X35").Select Application.CutCopyMode = False Selection.ClearContents strMonth = InputBox("Enter Reporting Month 01-12") strYear = InputBox("Enter Reporting Year") ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" & strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Thanks! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Fails on SAVE
This will do..
ActiveWorkbook.SaveAs strFile, Fileformat:=52 If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: Try the below. You dont need to declare the month as a string. Instead declare as a numeric and use format function to zero pad... Dim strFile as String strfile = "G:\" & strYear & "\" & strYear & "-" & Format(strMonth, "00") & _ "\Turbine log " & strYear & "-" & Format(strMonth, "00") & ".xlsm" ActiveWorkbook.SaveAs Filename:=strFile, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False If this post helps click Yes --------------- Jacob Skaria "Thanks" wrote: Hello The following code gives me Incorrect Function on the save line. What does this mean and how do I fix it? Dim strMonth As String Dim strYear As String Range("B36:X36").Select Selection.Copy Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A4:X35").Select Application.CutCopyMode = False Selection.ClearContents strMonth = InputBox("Enter Reporting Month 01-12") strYear = InputBox("Enter Reporting Year") ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" & strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Thanks! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Fails on SAVE
OK Almost have it. Your code worked through saving the file but I get
Application-defined or object-defined error after the save. Thanks for your help "Jacob Skaria" wrote: This will do.. ActiveWorkbook.SaveAs strFile, Fileformat:=52 If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: Try the below. You dont need to declare the month as a string. Instead declare as a numeric and use format function to zero pad... Dim strFile as String strfile = "G:\" & strYear & "\" & strYear & "-" & Format(strMonth, "00") & _ "\Turbine log " & strYear & "-" & Format(strMonth, "00") & ".xlsm" ActiveWorkbook.SaveAs Filename:=strFile, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False If this post helps click Yes --------------- Jacob Skaria "Thanks" wrote: Hello The following code gives me Incorrect Function on the save line. What does this mean and how do I fix it? Dim strMonth As String Dim strYear As String Range("B36:X36").Select Selection.Copy Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A4:X35").Select Application.CutCopyMode = False Selection.ClearContents strMonth = InputBox("Enter Reporting Month 01-12") strYear = InputBox("Enter Reporting Year") ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" & strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Thanks! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code Fails on SAVE
You can test the save code by assigning another file name to strFile (say
"c:\test.xlsm"). This shouldnt be a problem. Check your folder paths.. If this post helps click Yes --------------- Jacob Skaria "Thanks" wrote: OK Almost have it. Your code worked through saving the file but I get Application-defined or object-defined error after the save. Thanks for your help "Jacob Skaria" wrote: This will do.. ActiveWorkbook.SaveAs strFile, Fileformat:=52 If this post helps click Yes --------------- Jacob Skaria "Jacob Skaria" wrote: Try the below. You dont need to declare the month as a string. Instead declare as a numeric and use format function to zero pad... Dim strFile as String strfile = "G:\" & strYear & "\" & strYear & "-" & Format(strMonth, "00") & _ "\Turbine log " & strYear & "-" & Format(strMonth, "00") & ".xlsm" ActiveWorkbook.SaveAs Filename:=strFile, _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False If this post helps click Yes --------------- Jacob Skaria "Thanks" wrote: Hello The following code gives me Incorrect Function on the save line. What does this mean and how do I fix it? Dim strMonth As String Dim strYear As String Range("B36:X36").Select Selection.Copy Range("B3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A4:X35").Select Application.CutCopyMode = False Selection.ClearContents strMonth = InputBox("Enter Reporting Month 01-12") strYear = InputBox("Enter Reporting Year") ActiveWorkbook.SaveAs Filename:="G:\" & strYear & "\" & strYear & "-" & strMonth & "\Turbine log " & strYear & "-" & strMonth & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False Thanks! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel fails on Save/Save As | Excel Discussion (Misc queries) | |||
XLBook.Save fails in Excel 2007 | Excel Programming | |||
Excel fails to save | Excel Discussion (Misc queries) | |||
Excel fails to save properly | Excel Discussion (Misc queries) | |||
Save As - Multiple Sheets fails to save as text file | Excel Programming |