Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
PLEASE CAN ANYBODY CORRECT THIS MACRO
Hi all, I got excel 2007 and I am trying to Save As Range ("A2:F23")
as Web Page file format. I have done it but I want sheet to be Activesheet and file name to be Range("H2") for which I done the macro below but its giving error. Can any friend can help me in this i'll be very thankful to him. Sub SAV() Dim SH As Sheets Dim NA As Range SH = ActiveSheet NA = Range("H2").Value Range("A2:F23").Select With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "C:\Documents and Settings\kamranr\My Documents\NA.htm", SH, _ "$A$2:$F$23", xlHtmlStatic, , "") .Publish (True) .AutoRepublish = False End With Range("A2").Select End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
PLEASE CAN ANYBODY CORRECT THIS MACRO
Give this a try (untested)
Sub SAV() Dim SH As Sheets Dim NA As Range set SH = ActiveSheet set NA = Range("H2") Range("A2:F23").Select With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "C:\Documents and Settings\kamranr\My Documents\" & NA.value & ".htm", _ SH, "$A$2:$F$23", xlHtmlStatic, , "") .Publish (True) .AutoRepublish = False End With Range("A2").Select End Sub -- HTH... Jim Thomlinson "K" wrote: Hi all, I got excel 2007 and I am trying to Save As Range ("A2:F23") as Web Page file format. I have done it but I want sheet to be Activesheet and file name to be Range("H2") for which I done the macro below but its giving error. Can any friend can help me in this i'll be very thankful to him. Sub SAV() Dim SH As Sheets Dim NA As Range SH = ActiveSheet NA = Range("H2").Value Range("A2:F23").Select With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "C:\Documents and Settings\kamranr\My Documents\NA.htm", SH, _ "$A$2:$F$23", xlHtmlStatic, , "") .Publish (True) .AutoRepublish = False End With Range("A2").Select End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
PLEASE CAN ANYBODY CORRECT THIS MACRO
On 2 Jun, 17:18, Jim Thomlinson <James_Thomlin...@owfg-Re-Move-
This-.com wrote: Give this a try (untested) Sub SAV() Dim SH As Sheets Dim NA As Range set SH = ActiveSheet set NA = Range("H2") * * Range("A2:F23").Select * * With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ * * * * "C:\Documents and Settings\kamranr\My Documents\" & NA.value & ".htm", _ * * * * *SH, "$A$2:$F$23", xlHtmlStatic, , "") * * * * .Publish (True) * * * * .AutoRepublish = False * * End With * * Range("A2").Select End Sub -- HTH... Jim Thomlinson "K" wrote: Hi all, *I got excel 2007 and I am trying to Save As Range ("A2:F23") as Web Page file format. *I have done it but I want sheet to be Activesheet and file name to be Range("H2") for which I done the macro below but its giving error. Can any friend can help me in this i'll be very thankful to him. Sub SAV() Dim SH As Sheets Dim NA As Range SH = ActiveSheet NA = Range("H2").Value * * Range("A2:F23").Select * * With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ * * * * "C:\Documents and Settings\kamranr\My Documents\NA.htm", SH, _ * * * * "$A$2:$F$23", xlHtmlStatic, , "") * * * * .Publish (True) * * * * .AutoRepublish = False * * End With * * Range("A2").Select End Sub- Hide quoted text - - Show quoted text - Thanks for replying jim. in macro below i have solved my problem the only thing left that how can i change Sheet1 to Activesheet. I did try doing different thing but i am getting error message. Any suggestions Sub SAV() Range("A2:F23").Select With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _ "C:\Documents and Settings\KAMRAN\My Documents\" & Range("K1").Value & " - " & Range("H2").Value & ".htm", _ "Sheet1", "$A$2:$F$23", xlHtmlStatic, , "") .Publish (True) .AutoRepublish = False End With Range("A2").Select End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Correct syntax for IF, Then in a macro | Excel Worksheet Functions | |||
PLEASE ANY BODY CAN CORRECT MY MACRO | Excel Programming | |||
Please help correct this macro! :) | Excel Programming | |||
Please correct my macro | Excel Discussion (Misc queries) | |||
this Macro is don't correct | Excel Programming |