VBA i Excel. Eksportér til html
Så sent som med Excel 2002 (Office 10) kunne man let skrive og bruge en VBA-kode, som eksporterede forskellige dele af en projektmappe til en statisk html-fil. Der kunne f.eks. også anvendes en html-template. Tilføjelsesprogrammet HTML.XLA med Xlhtml.dll blev anvendt.Det understøttes tilsyneladende ikke i Excel 2003 (Office 11).
Kan vise, hvordan noget tilsvarende laves?
Altså ikke kun det, man kan med "Filer" - "Gem som webisde..." i Excel, men det man kunne med "Guiden Internet-assistent".
Koden, der virker i Excel 2002, er - med både danske og engelske kommentarer:
Sub GemSomHTML()
Dim ObjToConvert(2) As Variant
' Populate the array of objects for HTMLConvert.
Set ObjToConvert(1) = Sheets("Diagram").ChartObjects("Chart 1") 'Et diagram
Set ObjToConvert(2) = Sheets("Data").Range("A1:D14") 'Et celleområde
Set ObjToConvert(0) = Sheets("Data").Range("A15") 'Et andet celleområde (én celle)
' Load Html.xla into memory.
AddIns("Guiden Internet-assistent").Installed = True
' Create the HTML document.
Htmlconvert rangeandcharttoconvert:=ObjToConvert, _
usefrontpageforexistingfile:=False, _
ExistingFilePath:="C:\TemplateFil.htm", _ 'Html skabelon med billeder, evt. css osv.
addtofrontpageweb:=False, useexistingfile:=True, _
codepage:=1252, htmlfilepath:="C:\Eksportresultatet.htm", _ 'Det færdige resultat til at se i ie e.l.
descriptionfullpage:="", lastupdate:=Now
End Sub
