< návrat zpět
MS Excel
Téma: Tvorba html kódu z dat v excelu 
Zaslal/a Me2D 12.6.2014 15:33
Ahoj, potřebuju poradit s jedním postupem. Mám v jednom řádku někollik buněk s daty, třeba A1-3. Chtěl bych je nějakým způsoobem exportovat do přesně daného kódu, např:
<div id="A1">
<source src="video/A2.mp4" type="video/mp4">
<span class="text">A3</span>
</div>
Je nějaký způsob, jak toho dosáhnout?
Děkuju, Me2D, Excel 2010
Me2D(12.6.2014 15:35)#019951 
Jde o to, že těch řádků mám 300 a buněk v řádku asi 6, takže to ručně moc dělat nechci.
Samozřejmě by bylo fajn, kdyby se do tý html šablony exportovaly data ze všech řádků pod sebe...
citovatPalooo(12.6.2014 15:47)#019953 prilohu by to chcelo
citovatMe2D(12.6.2014 16:08)#019960 Tohle je zdroj a výstup...
Dík
Příloha: 
19960_slovnik.zip (45kB, staženo 25x) citovat
eLCHa(13.6.2014 7:38)#019971
Měl jsem chvilku, takže asi takhle - zkopíroval jsem Váš HTML kód ze zdroje a nakopíroval do VBA. Nahradil jsem písmena A až G za odkazy na buňky v listu. Nijak jsem nezkoumal ty + a *, prostě jsem to vzal jak to je. Vlastně jsem napsal 10 řádků kódu a zbytek byl jen CTRL+H. Píšu to proto, že ten výstup je pro mně bez stylů nečitelný, ale odpovídá tomu Vašemu. Jako ukázka, jak na to by to ale mělo stačit.
Sub subCreateHTML()
Dim iRows As Long
iRows = Cells(Rows.Count, 1).End(xlUp).Row
Dim sHTML As String
Dim iFile As Byte
iFile = FreeFile
Open "V:\vystup.htm" For Output As #iFile
Dim i As Long
For i = 2 To iRows
sHTML = "<div id=""s_***" & Cells(i, "A").Value & "+" & Cells(i, "B").Value & "***"" class=""slovnik_slovo""> <!--řádek č.1-->"
sHTML = sHTML & "<video class=""slovnik_video"" controls >"
sHTML = sHTML & "<source src=""video/slovnik/***" & Cells(i, "E").Value & "***.mp4"" type=""video/mp4"">"
sHTML = sHTML & "<source src=""video/slovnik/***" & Cells(i, "E").Value & "***.ogv"" type=""video/ogg"">"
sHTML = sHTML & "</video>"
sHTML = sHTML & "<span class = ""slovnik_title"" >***" & Cells(i, "A").Value & "+" & Cells(i, "B").Value & "***</span>"
sHTML = sHTML & "<span class = ""slovnik_rod"">***" & Cells(i, "B").Value & "+" & Cells(i, "C").Value & "+" & Cells(i, "D").Value & "***</span>"
sHTML = sHTML & "<div class=""slovnik_detail"">"
sHTML = sHTML & "***" & Cells(i, "F").Value & "***"
sHTML = sHTML & "</div>"
sHTML = sHTML & "<div class=""synonymum"">"
sHTML = sHTML & "Synonymum: ***" & Cells(i, "G").Value & "***"
sHTML = sHTML & "</div>"
sHTML = sHTML & "</div>"
sHTML = sHTML & "<div id=""s_***" & Cells(i, "A").Value & "+" & Cells(i, "B").Value & "***"" class=""slovnik_slovo""> <!--řádek č.2-->"
sHTML = sHTML & "<video class=""slovnik_video"" controls >"
sHTML = sHTML & "<source src=""video/slovnik/***" & Cells(i, "E").Value & "***.mp4"" type=""video/mp4"">"
sHTML = sHTML & "<source src=""video/slovnik/***" & Cells(i, "E").Value & "***.ogv"" type=""video/ogg"">"
sHTML = sHTML & "</video>"
sHTML = sHTML & "<span class = ""slovnik_title"" >***" & Cells(i, "A").Value & "+" & Cells(i, "B").Value & "***</span>"
sHTML = sHTML & "<span class = ""slovnik_rod"">***" & Cells(i, "B").Value & "+" & Cells(i, "C").Value & "+" & Cells(i, "D").Value & "***</span>"
sHTML = sHTML & "<div class=""slovnik_detail"">"
sHTML = sHTML & "***" & Cells(i, "F").Value & "***"
sHTML = sHTML & "</div>"
sHTML = sHTML & "<div class=""synonymum"">"
sHTML = sHTML & "Synonymum: ***" & Cells(i, "G").Value & "***"
sHTML = sHTML & "</div>"
sHTML = sHTML & "</div>"
Print #iFile, sHTML
Next i
Close #iFile
End SubcitovatMe2D(13.6.2014 11:36)#019977 Je to bezvadný, mockrát děkuju...
citovat
RSS nejnovější články