Solución 17.1 Crear una página web estática desde un libro Excel

En la zona de declaración:

Private strRuta As String

Código de la ruta de la carpeta que contiene el libro Excel:

Sub Ruta()  
  strRuta = ActiveWorkbook.Path  
End Sub

Código para obtener un documento HTML:

Sub WebEstatica1()  
    Dim strRutaRecursos As String   ...