[ osmania @ 17.10.2017. 20:47 ] @
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.


[ Gix_ @ 25.12.2017. 23:16 ] @
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