A
Ann
I am using VBA code in a 2003 Excel spreadsheet. I just upgraded the
computer to Office 2003 (not 97). Now when I post with HTMLConvert, it
appends instead of replacing the contents of the page. I deleted the object
and then posted and of course it’s OK – the next day when I run the daily
update, it appends. How can I make this code just replace the current data???
Here is my code:
'save Daily Safety Stats as html format on Safety Web Page
Set rngRangeToHTML = Worksheets(strMonth).Range(strRange)
iResult = htmlconvert(rangeandcharttoconvert:=rngRangeToHTML, _
useexistingfile:=False, _
usefrontpageforexistingfile:=False, _
addtofrontpageweb:=False, codepage:=1252, _
htmlfilepath:="\\ifsweb\safetydept$\IncidentRates.htm", _
headerfullpage:="Safety Incident Rates for " & Format(DateAdd("d",
-1, Now), "MMMM YYYY"), _
linebeforetablefullpage:=False, _
namefullpage:="IFSADMIN, IncidentRates",
lineaftertablefullpage:=False, _
lastupdate:=Format(Now, "mm/dd/yy hh:mm:ss"))
computer to Office 2003 (not 97). Now when I post with HTMLConvert, it
appends instead of replacing the contents of the page. I deleted the object
and then posted and of course it’s OK – the next day when I run the daily
update, it appends. How can I make this code just replace the current data???
Here is my code:
'save Daily Safety Stats as html format on Safety Web Page
Set rngRangeToHTML = Worksheets(strMonth).Range(strRange)
iResult = htmlconvert(rangeandcharttoconvert:=rngRangeToHTML, _
useexistingfile:=False, _
usefrontpageforexistingfile:=False, _
addtofrontpageweb:=False, codepage:=1252, _
htmlfilepath:="\\ifsweb\safetydept$\IncidentRates.htm", _
headerfullpage:="Safety Incident Rates for " & Format(DateAdd("d",
-1, Now), "MMMM YYYY"), _
linebeforetablefullpage:=False, _
namefullpage:="IFSADMIN, IncidentRates",
lineaftertablefullpage:=False, _
lastupdate:=Format(Now, "mm/dd/yy hh:mm:ss"))