Kako da XLS pretvorim u HTML pomoc OpenOffice ili LibreOffice

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

Potpis

Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!

Forum kao aplikacija na telefonu

Srodne teme