[excel 2003] website publiceren met een script

[Nelisj]

Ik heb een excel bestand met daarin een 30 tal werkbladen.

een 10 tal van deze bladen wil ik graag een html pagina van maken. Dit wil ik in een VB script maken. (zit namelijk al een heel stuk VB Script in) .

de optie bestand --> opslaan als webpagina. en dan kiezen voor 1 blad pudliceren werkt goed. ik krijg dan netje 1 blad als html. allen nu moet ik dit nog voor de ander 9 doen.

de dat verandert per dag en per dag moet ik dus 10 nieuwe html pagina's hebben.

de optie om het hele document op te slaan werkt voor mij niet. mede omdat er dan in IE wordt gevraagd om inter actief gebeuren. daarnaast wordt meteen alles gepubliveerd wat niet te bedoeling is.

Heb als gezocht in de help van VB daar kan ik niks nuttigs vinden. Google geeft allen maar optie's om het hele document of 1 blad op te slaan als webpagina.

Iemand al zo iets gemaakt in VB hoor ik het graag?

[skate master]

Het is heel simpel, ik gebruik het voor de publicatie van uitslagen.
Neem een macro op waarin je de actie opslaan als webpagina vastlegd.
Ga naar de vba editor, kies hier de module met je macro.
Kopieer de macro net zovaak als dat je tabbladen hebt.
Wijzig in de macro de naam van het tabblad en heel belangrijk, wijzig ook
even de bestandsnaam.

zo moet je macro er ongeveer uitzien. Dit is voor 2 tabbladen.

code:

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        "C:\Documents and Settings\skatemaster\Bureaublad\Uitslagen heren.htm", "HEREN", "", _
        xlHtmlStatic, "Uitslagen_20149", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    
    With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
        "C:\Documents and Settings\skatemaster\Bureaublad\Uitslagen dames.htm", "DAMES", "", _
        xlHtmlStatic, "Uitslagen_20149", "")
        .Publish (True)
        .AutoRepublish = False
    End With
    ChDir "C:\Documents and Settings\skatemaster\Bureaublad"

[ Voor 10% gewijzigd door skate master op 12-03-2006 19:11 . Reden: Typo ]

[Nelisj]

With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, _
"j:\wk2006.htm", "WK2006", "", _
xlHtmlStatic, "WK2006", "")
.Publish (True)
.AutoRepublish = False
End With

hij loopt bij mij stuk op .Publish krijg de volgde melding

Fout 1004 tijdens uitvoering.
methode publish van object PublishObject is mislukt

wat kan dit zijn?

heb namelijk al meerder optie's gerbuikt waar ook de .Publish (True) in zitten en die liepen ook op die regel stuk.

Edit 1:

Stom probleem gevonden wk2006.htm bestond al van een voor gaande test.
Hij werkt nu goed bedankt :d

allen nog een klein vraagje. ik heb al mijn cellen een kleurtje gegeven als zijnde achtergrond. nu was mijn idee dat ik dan in IE een volledig venste zie met die kleur. nu wil het dus dat ik witte balken aan de zijkanten heb. Dit wil niet aangezien deze pagina onderdeel gaat uitmaken van een frame pagina. Is daar nog een mogelijk heid om dat in te stellen/aante passen.

Edit 2:

Hij loopt zo nu en dan nog steeds stuk op de regel .Publish (True)

[ Voor 54% gewijzigd door Nelisj op 12-03-2006 19:55 ]

[skate master]

Wat dat vastlopen betreft weet ik niet.
Als ik tijd heb zal ik nog wel ff kijken.

Wat je vraag betreft: Hoe bedoel je dat.
Die witte balken ontstaan die door de webpagina of zitten die in de webpagina of hoe?
Ik volg het niet helemaal.

[Nelisj]

Vastlopen heb ik gevonden. Je moet het werkblad wat je wil Publiseren geselecteerd hebben. Dit is ook gelukt door middel van een Script dus dat gaat goed.

waar het eigenlijk op neer komt is dat ik de achtergrond kleur van de webpagina wil kunnen instellen.

als ik namelijk een tabblad heb met daar in het berijk A1:D5 is dit niet beeld vullen. Ik wil dus wel het hele scherm vullend hebben met 1 achter grond kleur.