Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako da XLS pretvorim u HTML pomoc OpenOffice ili LibreOffice

[es] :: Office :: Excel :: Kako da XLS pretvorim u HTML pomoc OpenOffice ili LibreOffice

[ Pregleda: 1106 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

osmania
Panet

Član broj: 26316
Poruke: 773
*.cable.dynamic.surfer.at.



+7 Profil

icon Kako da XLS pretvorim u HTML pomoc OpenOffice ili LibreOffice17.10.2017. u 20:47 - pre 78 meseci
Patim se sa ovim gore navadenim.

Ovo funkcionise: otvorim XLS file u open office idem na save as i stavim html i on snimi fino u HTML format. Sve super.

Zelio bih da to automatiziram.

Nasao sam na netu da preko command line se moze pretvoriti ali nikako mi ne uspijeva.
Svaki put mi otvori open office a nista ne konvertuje.

Code:
soffice --headless --convert-to html test.xls


https://ask.libreoffice.org/en...ert-to-command-line-parameter/

Koristim windows 10 i verziju 4.1.3 Open Office.


 
Odgovor na temu

Gix_
Milenkovic
Lyon (France)

Član broj: 113036
Poruke: 185
*.w86-194.abo.wanadoo.fr.



Profil

icon Re: Kako da XLS pretvorim u HTML pomoc OpenOffice ili LibreOffice25.12.2017. u 23:16 - pre 76 meseci
Neznam dalisi pronasao odgovor na svoje pitanje,
evoti kod kojim mozes da snimis sve radne listove u HTM formatu.
Pozdrav
Code:

Dim Ws As Worksheet
Dim Fichier As String, MonCode As String
Dim i As Byte
 
'Boucle sur les feuilles de calcul du classeur
For Each Ws In ThisWorkbook.Worksheets
    'Définit le chemin de stockage de chaque page htm
    Fichier = ThisWorkbook.Path & "\" & Ws.Name & ".htm"
    'Sauvegarde au format htm
    ActiveWorkbook.PublishObjects.Add _
        (xlSourceSheet, Fichier, Ws.Name, "", xlHtmlStatic, "", "").Publish
 
    '--- ajout liens hypertextes dans les pages créées ---
    Open ThisWorkbook.Path & "\" & Ws.Name & ".htm" For Append As #1
        Print #1, "<HTML>"
        Print #1, "<HEAD><BODY>"
 
        For i = 1 To Worksheets.Count
            If Ws.Name <> Worksheets(i).Name Then
                MonCode = "<PR><CENTER><td bgcolor='#FFFFFF' rowspan='2'><a href='" & _
                    ThisWorkbook.Path & "\" & Worksheets(i).Name & ".htm'>" & _
                    Worksheets(i).Name & "</a></td><BR></CENTER>"
 
                Print #1, MonCode
            End If
        Next i
 
        Print #1, "</HEAD></BODY>"
    Close #1
Next
 
'Affiche la 1ère page créée.
ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "\" & _
    Worksheets(1).Name & ".htm", NewWindow:=True 



Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!
 
Odgovor na temu

[es] :: Office :: Excel :: Kako da XLS pretvorim u HTML pomoc OpenOffice ili LibreOffice

[ Pregleda: 1106 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.