excel opslaan als .html

[anoniem]

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

[anoniem]

1. CSV bestand exporteren 2. tag stripper util gebruiken

[anoniem]

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

[anoniem]

yo bedankt het werkt perfect