עבודה עם אקסל בHTML או ASP

אני צריך תשובה
אם יש בכלל אפשרות ואיך עושים את זה

מה הלחץ????

איך אני הופך מאקרו לסקריפט
בהנחה שזה המאקרו
Sub refresh()

Workbooks.Open Filename:= _
"C:Documents and Settingsgb381My Documentsweat.xls"
Sheets("orginal").Select
Range("A1").Select
Selection.QueryTable.refresh BackgroundQuery:=False
Sheets("weat").Select
With ActiveWorkbook.PublishObjects("weat_2440")
.HtmlType = xlHtmlStatic
.Publish (False)
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

איך עושים את זה????