Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

excel opslaan als .html

remon_loos
3 antwoorden
  • beste mensen
    ik heb een 1 excelfile met 2 bladeren. op blad een vul ik gewoon tekst in in kolommen. bv
    1 remon loos groningen
    2 piet loos groningen
    3 jan loos groningen
    4 klaas loos groningen
    dus in 4 kolommen.

    in blad 2 maakt hij de html aan, dit gaat automatisch met bv de volgende functie (gedeeltelijke functie) =blad1!a1 & blad2!a2 enz.


    <tr><td>1</td><td>remon</td><td>loos</td><td>groningen</td>
    <tr><td>2</td><td>piet</td><td>loos</td><td>groningen</td>
    <tr><td>3</td><td>jan</td><td>loos</td><td>groningen</td>
    <tr><td>4</td><td>klaas</td><td>loos</td><td>groningen</td>

    nu wil ik met een knop dat hij de 2de blad opslaat als een html file, dus alleen de tekst opslaan in een html file, dus niet de gebruikelijke html file, maar gewoon de tekst wat in het blad staat opslaan als html file

    iemand een ideetje
  • 1. CSV bestand exporteren
    2. tag stripper util gebruiken
  • Probeer de volgende code eens:
    [code:1:c51c7cc2bb]
    Sub ExportText()
    Dim i As Integer

    Open "C:\Temp\ExcelHTML.html" For Output As #1

    i = 1
    Do
    Print #1, Sheets("Blad2").Cells(i, 1).Text
    i = i + 1
    Loop Until Sheets("Blad2").Cells(i, 1).Text = ""

    Close #1

    End Sub
    [/code:1:c51c7cc2bb]
    Succes
    Ed

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.