Z Excelu do HTML pomocí Visual Basicu - Builder.cz - Informacni server o programovani

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:



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 HTML

Public 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
Nejlépe hodnocené články

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: