MACRO Excel VBA per salvataggio foglio di lavoro in formato Html

Question

MACRO Excel VBA per salvataggio foglio di lavoro in formato Html

Anonimo

Buongiorno,

chiedo se qualcuno può indicarmi la corretta sintassi in codice VBA (Excel) per il salvataggio di un foglio di lavoro in formato Html attribuendogli il nome "PROVA".

Ringrazio e saluto tutti.

Carlo

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

1 risposta

Answer 1

Ciao,

prova qualcosa del genere:

Sub SalvaFoglioInHtml() 

   Const sNomeFoglio As String = "Foglio1" '<== modificare con il nome del foglio da salvare in html 

   Const sNomeFileHtml As String = "PROVA.html" '== modificare con il nome da assegnare al file html 

   Dim wsToSave As Worksheet 

   Dim sPath As String 

   sPath = ThisWorkbook.Path 

   If Right(sPath, 1) <> Application.PathSeparator Then 

      sPath = sPath & Application.PathSeparator 

   End If 

   Set wsToSave = ThisWorkbook.Worksheets(sNomeFoglio) 

   wsToSave.Copy 

   With Application 

      .ScreenUpdating = False 

      .DisplayAlerts = False 

   End With 

   With ActiveWorkbook 

      .SaveAs sPath & sNomeFileHtml, xlHtml 

      .Close 

   End With 

   With Application 

      .ScreenUpdating = True 

      .DisplayAlerts = True 

   End With 

End Sub

Nota che il file html (e la relativa cartella) verranno salvati nel percorso in cui è salvata la cartella di lavoro Excel.

ciao

Condividi tramite

MACRO Excel VBA per salvataggio foglio di lavoro in formato Html

1 risposta