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!
|