---
title: "Excel ---- >> HTML?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10106-excel-html"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Daniel78"
published: "2001-05-16T08:19:00.000Z"
updated: "2001-06-17T18:16:00.000Z"
replies: 4
views: 615
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/10106-excel-html"
---

# Excel ---- >> HTML?

## #1 — Daniel78, 2001-05-16T08:19Z

Hej, jag ska konvertera excel filer från en asp sida men jag får följande fel när jag kör denna kod, fungerar utmärkt tillsammans med Word men när jag fösöker göra en liknande funktion för Excel dokument blir det fel!

Fel:

SaveAs-metoden i Workbook-klassen misslyckades

Kod:

Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = FALSE
objExcel.WorkBooks.Open(strWordDoc) 'path, filename and extension

'check errors 
If Err.Number \<\> 0 Then
   ExcelToHTML = Err.Description
Else

   Dim FileFormat
   Dim LockComments
   Dim Password
   Dim AddToRecentFiles
   Dim WritePassword
   Dim ReadOnlyRecommended
   Dim EmbedTrueTypeFonts
   Dim SaveNativePictureFormat
   Dim SaveFormsData
   Dim SaveAsAOCELetter

   FileFormat=102 'ändra nummer till 106 om Word 2000 används
   LockComments=True
   Password=""
   AddToRecentFiles=False
   WritePassword=""
    ReadOnlyRecommended=False
   EmbedTrueTypeFonts=False
   SaveNativePictureFormat=True
   SaveFormsData=False
   SaveAsAOCELetter=False

   objExcel.ActiveWorkBook.SaveAs strHTMLDoc, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts,SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter

   'check errors (this should be another routine)
   If Err.Number \<\> 0 Then
      Response.Write Err.Description & "\<br\>"
      ExcelToHTML = Err.Description
   Else
      ExcelToHTML = "Konvertering genomförd"

      'Close/Kill
      objExcel.ActiveWorkBook.Close
      objExcel.Quit
      Set objExcel = Nothing

      'check errors (this should be another routine)
      If Err.Number \<\> 0 Then
         ExcelToHTML = Err.Description
      Else
         ExcelToHTML = "Konvertering genomförd"

      End If 'closing/killing Word Object Error Handling
   End If 'creating active doc and converting Error Handling
End If 'opening Word Object Error Handling

End Function

P.S Det är inte fel på sökvägar o sånt!

Permalänk: https://www.webforum.nu/p/10106

## #2 — Daniel78, 2001-05-16T11:45Z

Ingen som vet något? Hur kontaktar man t ex Excel är det med:

Dim objExcel
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = FALSE
objExcel.WorkBooks.Open(strExcelDoc)

Eller ska det se ut på något annat sätt?

Permalänk: https://www.webforum.nu/p/275166

## #3 — costodia, 2001-05-18T13:46Z

testa skriptet på pellesoft.nu istället det funkar

Permalänk: https://www.webforum.nu/p/275167

## #4 — emission, 2001-05-18T16:45Z

Din kontakt med Excel funkar alldeles lysande. 

Skrivrättigheter på disken?

Permalänk: https://www.webforum.nu/p/275168

## #5 — costodia, 2001-06-17T18:16Z

Hur hittar man information om hur man gör det till word?
Det låter mycket intressant, så om du vill posta där du läst det skulle jag bli mycket glad.

Permalänk: https://www.webforum.nu/p/275169

---

Tråden på webben: https://www.webforum.nu/amne/asp/10106-excel-html