Rubriky
Odběr fotomagazínu
Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!
Zadejte Vaši e-mailovou adresu:
Kamarád fotí rád?
Přihlas ho k odběru fotomagazínu!
Zadejte e-mailovou adresu kamaráda:
Seriály
Visual Basic
Z Excelu do HTML pomocí Visual Basicu
7. října 1998, 00.00 | Tip jak exportovat tabulky z Excelu do HTML. Samozřejmě že to lze pomocí "Save As HTML", ale ..
Nedávno jsem dostal dotaz ohledně exportu tabulky z Excelu do HTML. Tento problém sice řeší příkaz Uložit jako HTML z nabídky soubor, ale je nutno projít několika okny průvodce. Pokud potřebujete provést export tabulky do HTML, rychle, popřípadě využít přednastavených hodnot (Šablona) můžete využít následující kód. Tento kód převede do HTML souvisle označenou oblast. Pokud potřebujete exportovat určitou oblast stačí místo Selection použít Range(Cell1:Cell2) př. Range("E8:H12") exportuje oblast E8:H12 do HTMLPublic Sub subExportHTML() ' Přiřazení čísla volného referenčního čísla pro soubor CisloSouboru = FreeFile ' Otevření souboru pro zápis Open "pokus.htm" For Output As #CisloSouboru ' Zápis hlavičky HTML souboru Print #CisloSouboru, "<HTML>" Print #CisloSouboru, "<HEAD>" Print #CisloSouboru, "<TITLE> Tabulka </TITLE>" Print #CisloSouboru, "</HEAD>" Print #CisloSouboru, "<BODY>" ' --------------- ' Začátek tabulky Print #CisloSouboru, "<TABLE BORDER>" 'Zápis dat For i = 1 To Selection.Rows.Count Print #CisloSouboru, "<TR>" For j = 1 To Selection.Columns.Count Print #CisloSouboru, "<TD>" & _ Selection.Cells(i, j).Value & "</TD>" Next j Print #CisloSouboru, "</TR>" Next i Print #CisloSouboru, "</TABLE>" ' Zde končí tabulka ' ----------------- ' Zakončení HTML souboru Print #CisloSouboru, "</BODY>" Print #CisloSouboru, "</HTML>" ' Uzavření souboru Close #CisloSouboru End Sub
Testováno a odladěno MS Excel 8.0 (97) CZ
Nejčtenější články
-
25. listopadu 2012
-
30. srpna 2002
-
10. října 2002
-
4. listopadu 2002
-
12. září 2002
Nejlépe hodnocené články
-
25. listopadu 2012
-
28. července 1998
-
31. července 1998
-
28. srpna 1998
-
6. prosince 2000
-
27. prosince 2007
-
4. května 2007
