[VBA] Excel werkblad opslaan als html

[Verwijderd]

Weet iemand hoe ik in excel een macro programmeer die één werkblad opslaat als een html file. Ik heb tot nu toe twee manieren in de help file gevonden, maar deze doen allebei niet wat ik wil. Ook heb ik een macro opgenomen, maar deze werkt ook niet
Deze twee manieren heb ik gebrobeerd,

code:

ActiveWorkbook.PublishObjects.Add( _
    SourceType:=xlSourceRange, _
    Filename:="\\Server2\Q1\stockreport.htm", _
    Sheet:="First Quarter", _
    Source:="D5:D9", _
    HtmlType:=xlHTMLCalc).Publish

Op deze manier wordt het bestand steeds aangevuld, en dat wil ik niet.

code:

ActiveWorkbook.SaveAs _
    Filename:="C:\Reports\myfile.htm", _
    FileFormat:=xlHTML

Op deze manier wordt de hele werkmap opgeslagen in de HTML file, en dat is ook niet wat ik wil.

[ Voor 6% gewijzigd door Verwijderd op 26-04-2006 11:34 ]

[KatirZan]

kan je geen call aanmaken die verwijst naar het excel bestand dan?

[Verwijderd]

KatirZan schreef op woensdag 26 april 2006 @ 11:02:
kan je geen call aanmaken die verwijst naar het excel bestand dan?

Bedoel je hiermee dat ik via een ander excel bestand het werkblad moet kopieren en dan de werkmap op moet slaan als html? of bedoel je iets anders. Ik had hier ook al over nagedacht, maar ik vind dit een erg omslachtige manier, ik kan me niet voorstellen dat dit niet gaat wat ik wil.

[Lustucru]

Verwijderd schreef op woensdag 26 april 2006 @ 10:58:
[...]
ActiveWorkbook.SaveAs _
Filename:="C:\Reports\myfile.htm", _
FileFormat:=xlHTML

Op deze manier wordt de hele werkmap opgeslagen in de HTML file, en dat is ook niet wat ik wil.[...]

Nofi, maar dit snap ik niet. Je doet een activeworkbook.saveas en merkt dat de hele werkmap wordt opgeslagen. Wat ligt er dan meer voor de hand dan te kijken of er ook een worksheet.saveas bestaat?

offtopic:
Het zal wel vaker opgemerkt zijn, maar zet je code tussen [code][/code] tags?

[ Voor 9% gewijzigd door Lustucru op 26-04-2006 11:31 ]

[Verwijderd]

worksheet.saveas bestaat ook, alleen dan slaat excel ook de hele werkmap op als html file. Dus dat is helaas niet de oplossing.

[Verwijderd]

Het volgende werkt,

code:

ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        htmlfile_pad, Worksheet, "", xlHtmlStatic, _
        workbook, pagina_titel).Publish (True)
    ActiveWorkbook.PublishObjects(workbook).Publish (False)

Je moet eerst iets publishen, daarin kun je het bereik aangeven. Dit gepublisht gebied kun je daarna steeds vernieuwen.