Прошу помощи. По форуму есть масса скриптов по переделыванию таблиц екселя в HTML. Я не силен в макросах но мне кажется тот что я нашел преобразует таблицу с активного листа. Можно ли преобразовывать определенные лист определенной книги. Дело в том что у меня файл обновляется каждые 10 минут и таких таблиц несколько. Так вот HTML файл получается один только с активной книги, а нужно что бы с каждой книги был свой файл в независимости от того активна она или нет. ПОМОГИТЕ
| Код |
|---|
Public Function SheetToHTML(sh As Worksheet, adr)
Dim TempFile As String
Dim fso As Object
Dim ts As Object
sh.Copy
TempFile = sh.Parent.Path & "\TempHtml.htm"
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
TempFile, sh.Name, adr, xlHtmlStatic) '"A1:F13"
.Publish (True)
.AutoRepublish = False
End With
ActiveWorkbook.Close False
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
SheetToHTML = ts.ReadAll
SheetToHTML = Replace(SheetToHTML, "align=center", "align=left")
ts.Close
Set ts = Nothing
Set fso = Nothing
' Kill TempFile
End Function
Sub hhh()
'
Call SheetToHTML(ActiveSheet, [a1..d10].Address)
End
|
