Обратите внимание, что я не проверял это, поскольку у меня нет Excel или каких-либо продуктов Microsoft.Я адаптировал код из здесь , чтобы работать так, как вы просили.Я не смог бы автоматизировать это без использования VBA, которая должна поставляться с каждой копией Excel.Он в основном используется для быстрой автоматизации макропоследовательностей.
Public Sub GenerateHTML(ByVal sTitle As String)
Dim iFileNum As Integer
Dim lRow As Long
Dim iColCount As Integer
Dim iCol As Integer
Dim sFileName As String
sFileName = "Your-Title-Here" ' Be sure to change this to a title. '
iColCount = ActiveSheet.UsedRange.Columns.Count
For lRow = 1 To 570
iFileNum = FreeFile
Open sFileName + "-row" + lRow + ".html" For Output As iFileNum
Print #iFileNum, "<HTML>"
Print #iFileNum, "<TITLE>" + sTitle + " Row: " + CStr(lRow) + "</TITLE>"
Print #iFileNum, "<BODY>"
Print #iFileNum, "<TABLE BORDER=1>"
Print #iFileNum, "<TR>"
For iCol = 1 To iColCount
Print #iFileNum, "<TD>"
Print #iFileNum, CStr(Cells(lRow, iCol).Value)
Print #iFileNum, "</TD>"
Next iCol
Print #iFileNum, "</TR>"
Print #iFileNum, "</TABLE>"
Print #iFileNum, "</BODY>"
Print #iFileNum, "</HTML>"
Close iFileNum
Next lRow
Close iFileNum
End Sub