save as a web-part

[silverskye787]

I know how to save a excel file manually but how can i do it automatically?

I have created a button on sheet3 and i want it to be click and it will save
automatically the whole of (sheet1 & sheet2) into two web parts into the current folder.

how do i do it?

 

[unnilennium78]

what do u mean two web parts ????

Below code save the entire workbook as htm

Sub Save()




Sheets("Sheet3").Select
Range("z6000").Select
    ActiveCell.FormulaR1C1 = _
        "=LEFT(CELL(""Filename""),FIND(""["",CELL(""Filename""),1)-1)"
    
    d = Range("z6000")
    
 

    ThisWorkbook.SaveAs Filename:= _
        d & "Book4.htm", FileFormat:=xlHtml _
        , ReadOnlyRecommended:=False, CreateBackup:=False
        'ThisWorkbook.Save , FileFormat:=xlHtml _
        , ReadOnlyRecommended:=False, CreateBackup:=False
        
        
    Sheets("Sheet3").Select
    Range("z6000").Select
    Selection.ClearContents
    Sheets("Sheet1").Select
    Range("A1").Select
End Sub

 

[unnilennium78]

Do u mean saving Sheet1 as one Web Page & Sheet2 as another webpage ?

Below is the code

Sub Save()

'Find the Workbook directory

Sheets("Sheet3").Select
Range("z6000").Select
    ActiveCell.FormulaR1C1 = _
        "=LEFT(CELL(""Filename""),FIND(""["",CELL(""Filename""),1)-1)"
    
    d = Range("z6000")
    
'Save sheet1
 Sheets("Sheet1").Select
  With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        d & "Sheet1.htm", "Sheet1" _
        , "", xlHtmlStatic, "", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    
   
 'Save sheet2
 Sheets("Sheet2").Select
  With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        d & "Sheet2.htm", "Sheet2" _
        , "", xlHtmlStatic, "", "")
        .Publish (True)
        .AutoRepublish = False
    End With

'Delete content written in cell Z6000

    Sheets("Sheet3").Select
    Range("z6000").Select
    Selection.ClearContents
    Sheets("Sheet1").Select
    Range("A1").Select
End Sub

Note the Worksheet Name is Sheet1 , Sheet2 & Sheet3 ... pls modify accordingly if ur worksheet name is different..... it will save to the directory where your excel worksheet is.

 

[silverskye787]

thanks alot...

how about specifiying a specific cell instead of the sheets

example:

A2 has the name exactly the same as one of the sheet.. then it will convert that sheet to HTML.