anoniem Geplaatst: 30 oktober 2002 Delen Geplaatst: 30 oktober 2002 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 Quote Link naar reactie
anoniem Geplaatst: 30 oktober 2002 Auteur Delen Geplaatst: 30 oktober 2002 1. CSV bestand exporteren 2. tag stripper util gebruiken Quote Link naar reactie
anoniem Geplaatst: 30 oktober 2002 Auteur Delen Geplaatst: 30 oktober 2002 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 Quote Link naar reactie
anoniem Geplaatst: 1 november 2002 Auteur Delen Geplaatst: 1 november 2002 yo bedankt het werkt perfect Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen