Avatar billede falster Ekspert
08. november 2006 - 19:45 Der er 3 kommentarer og
1 løsning

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
Avatar billede falster Ekspert
08. november 2006 - 19:46 #1
Et par trykfejl. Det skal selvfølgelig være

"Kan nogen vise, hvordan noget tilsvarende laves?"

og

"Altså ikke kun det, man kan med "Filer" - "Gem som webside...""
Avatar billede hiks Nybegynder
08. november 2006 - 21:30 #2
hej

jeg tror det er blevet lidt nemmere. Vel og mærke hvis det er hele workbooken. Du kan faktisk tilrette det via en macro og så vælge selection etc.

    ActiveWorkbook.SaveAs Filename:= _
        "C:\Book.htm", FileFormat:=xlHtml, _
        ReadOnlyRecommended:=False, CreateBackup:=False

/hiks
Avatar billede hiks Nybegynder
08. november 2006 - 21:33 #3
ok jeg læste lige hvad du skrev og det var præcis det du ikke var ude efter...
Avatar billede falster Ekspert
09. november 2006 - 10:42 #4
Du har ret - men tak for interessen.

Jeg var galt på den. Dll'en manglede øjensynligt i installationen.

Med disse placeringer virker det stadig i Excel 2003, selvom det er sådan nogle 1997-2000-ting.

C:\Programmer\Microsoft Office\OFFICE11\Bibltek\HTML.XLA
C:\Programmer\Microsoft Office\OFFICE11\XLHTML.DLL
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB