Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save Excel File every wednesday VB Script Help
Hello Group, I use the following code to save file as an html at the end of month with Date stamp. Sub chem_gas_7day() Dim newSecond Dim fname As String fname = Format(Date, "yyyy-mm") Sheets("data").Select If CDate(Format(Range("A2").Value, "mm/dd/yyyy")) = CDate(DateSerial(Year(Now), Month(Now) + 1, 0)) Then ActiveWorkbook.Save ChDir "C:\TEST\" ActiveWorkbook.SaveAs Filename:="C:\TEST\" & fname & "_Report" & ".html", FileFormat:=xlHtml, _ ReadOnlyRecommended:=False, CreateBackup:=False Else Sheets("Report").Select Range("A1").Select ActiveWorkbook.Save ChDir "C:\TEST\" ActiveWorkbook.SaveAs Filename:="C:\TEST\Report.html", FileFormat:=xlHtml, _ ReadOnlyRecommended:=False, CreateBackup:=False End If End Sub I wonder if i can save file now every Wednesday with Date stamp (file name = wednesday date). In other words saving file every 7th day. Thanks in adavnce for help. Sam -- sam76210 ------------------------------------------------------------------------ sam76210's Profile: http://www.excelforum.com/member.php...o&userid=20885 View this thread: http://www.excelforum.com/showthread...hreadid=520215 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save Excel File every wednesday VB Script Help
Sub chem_gas_7day()
Dim newSecond Dim fname As String fname = Format(Date, "yyyy-mm-dd") Sheets("data").Select If Weekday(Date) = 4 Then ActiveWorkbook.Save ChDir "C:\TEST\" ActiveWorkbook.SaveAs Filename:="C:\TEST\" & fname & "_Report" & ".html", _ FileFormat:=xlHtml, _ ReadOnlyRecommended:=False, _ CreateBackup:=False Else Sheets("Report").Select Range("A1").Select ActiveWorkbook.Save ChDir "C:\TEST\" ActiveWorkbook.SaveAs Filename:="C:\TEST\Report.html", _ FileFormat:=xlHtml, _ ReadOnlyRecommended:=False, _ CreateBackup:=False End If End Sub -- HTH Bob Phillips (remove nothere from email address if mailing direct) "sam76210" wrote in message ... Hello Group, I use the following code to save file as an html at the end of month with Date stamp. Sub chem_gas_7day() Dim newSecond Dim fname As String fname = Format(Date, "yyyy-mm") Sheets("data").Select If CDate(Format(Range("A2").Value, "mm/dd/yyyy")) = CDate(DateSerial(Year(Now), Month(Now) + 1, 0)) Then ActiveWorkbook.Save ChDir "C:\TEST\" ActiveWorkbook.SaveAs Filename:="C:\TEST\" & fname & "_Report" & ".html", FileFormat:=xlHtml, _ ReadOnlyRecommended:=False, CreateBackup:=False Else Sheets("Report").Select Range("A1").Select ActiveWorkbook.Save ChDir "C:\TEST\" ActiveWorkbook.SaveAs Filename:="C:\TEST\Report.html", FileFormat:=xlHtml, _ ReadOnlyRecommended:=False, CreateBackup:=False End If End Sub I wonder if i can save file now every Wednesday with Date stamp (file name = wednesday date). In other words saving file every 7th day. Thanks in adavnce for help. Sam -- sam76210 ------------------------------------------------------------------------ sam76210's Profile: http://www.excelforum.com/member.php...o&userid=20885 View this thread: http://www.excelforum.com/showthread...hreadid=520215 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Save Excel File every wednesday VB Script Help
Thanks Bob( ). It works for me. Regards Sam -- sam76210 ------------------------------------------------------------------------ sam76210's Profile: http://www.excelforum.com/member.php...o&userid=20885 View this thread: http://www.excelforum.com/showthread...hreadid=520215 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2007 Can't Save File with VB Script but it can in 97/2003format??? | Excel Discussion (Misc queries) | |||
can't save VBA script when saving excel file | Excel Discussion (Misc queries) | |||
Save Excel File every wednesday VB Script Help !! | Excel Discussion (Misc queries) | |||
Script to save Excel file to the server. | Excel Discussion (Misc queries) | |||
when i save xls file, debug script is running and canno't save fil | Excel Discussion (Misc queries) |