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 !!!