Засунуть таблицу на сайт

Обсуждение наверное уже закончилось, но...
Я пользуюсь для преобразования конвертерами с coolutils.com

Поищи в сторону Google Docs

Спасибо всем, кто откликнулся.
Понял, что я круглый идиот.
А если Вы (нижекомментирующие) ,ещё прямо здесь, в своём комменте, вставите таблицу (не скрин, а именно таблицу в html), я признаю себя даже дебилом!
Если не хватит кармы сиё сделать, то хотя-бы скиньте в виде файла .tpl, а я ужо в блокнотике плюс-плюс подивлюсь и вставлю всё-таки на свой закорузлый сайтик...

Глупый вопрос. Если исходные данные в doc и xls, почему бы не воспользоваться сохранением в html, которое есть во всех офисных приложениях? Я в курсе, что добрый MS ещё напихает туда кучу мусора, но как простейший вариант...

Только кроме таблицы в файле ничего быть не должно

На те макрос для ворда
Sub makros1()
'
'макрос однако
'
'
Selection.WholeStory
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.Tables(1).Select
Application.DefaultTableSeparator = "~"
Selection.Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _
NestedTables:=True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "~"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
Selection.WholeStory
Selection.Cut
Selection.TypeText Text:=""
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.TypeText Text:="table"
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=""
Selection.PasteAndFormat (wdPasteDefault)
End Sub

В каком формате исходные данные?

А почему нельзя использовать CMS? Многие из них умеют вставлять вордовские таблицы. А потом из CMS можно скопировать html и вставить.