Partiamo dal presupposto che se apri un file html con excel vedi il foglio ben formattato; comunque tu potresti leggere l'html come un normale file di testo (quale č in definitiva) e poi scrivere un file excel utilizzando codice del tipo
codice:
Dim applExcel As Object
Set applExcel = CreateObject("excel.application")
Dim NewSheet As Object
applExcel.Workbooks.Add
j = 1
Set NewSheet = applExcel.Sheets(1)
NewSheet.Name = "Rate SEAT in scadenza"
With NewSheet
.cells(j, 1) = "Titolo Foglio"
.Rows(j).Font.Bold = True
j = j + 1
.cells(j, 1) = "titolo colonna 1"
.cells(j, 2) = "titolo colonna 2"
.cells(j, 3) = "titolo colonna 3"
.cells(j, 4) = "titolo colonna 4"
End With
poi ti fa un loop sul file di testo che scrive le varie celle della Sheet
applExcel.Visible = True
Set NewSheet = Nothing
Set applExcel = Nothing
Puoi personalizzare il formato dei dati con istruzioni del tipo
codice:
NewSheet.Columns(2).NumberFormat = "#,##0.00"
NewSheet.Columns(2).HorizontalAlignment = -4152 ' xlRight