---
title: "Ladda ner excel ifrån access"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41067-ladda-ner-excel-ifrån-access"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jesper T"
published: "2002-04-07T23:20:27.000Z"
updated: "2002-04-12T08:08:15.000Z"
replies: 6
views: 318
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/41067-ladda-ner-excel-ifrån-access"
---

# Ladda ner excel ifrån access

## #1 — Jesper T, 2002-04-07T23:20Z

Med AddHeader skall det väl gå att ladda ner hela databasen och samtidigt konvertera denna till excel?! Går det också att välja ut olika kolumner ur tabellen?

MVH Jesper T

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

## #2 — Fredde Mannen, 2002-04-08T10:44Z

Här kommer några länkar till sidor som skriver om AddHeader

1\. [Sloppycode](http://www.sloppycode.net/asp/?m=18) 

2\. [w3 schools](http://www.w3schools.com/asp/met_addheader.asp) 

m.m ...

Kanske hittar nåt vettigt på någon av dessa sidor.

Förstog som inte riktigt frågan!

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

## #3 — Jesper T, 2002-04-08T22:29Z

Jo, det jag vill göra är att loopa ut mina kolumner i en databas (access) och göra dessa till en nerladdningsbar fil med addHeader typ: 

```
response.AddHeader "content-disposition", "attachment; filename=namnet.xls"
```

detta skall väl gå?!
Och i sådana fall hur?
Jag hittade inget bra på dina länkar Fredde mannen, tyvärr!

MVH Jesper T

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

## #4 — Jesper T, 2002-04-08T23:31Z

Det ser ut så här nu, men sidan listas bara som vanligt med "vanlig" html och öppnar inte ett exceldokument.

```
<!--#include file="con.asp"-->
<%
sql = "SELECT * FROM users ORDER BY username"
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open sql, con, 3, 3
%>
<head>
[b]<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "attachment; filename=blaaa.xls" 
%>[/b]
</head>
<body>
<%
Do while not rsUsers.EOF
%>
<table>
  <tr> 
    <td> 
     <%=rsUsers("username")%>
    </td>
    <td> 
    <%=rsUsers("phone")%>
    </td>
    <td> 
     <%=rsUsers("firstname")%>
    </td>
    <td> 
      <%=rsUsers("surname")%>
      </td>
  </tr>
</table>
<%
rsUsers.Movenext
loop%>
</body>
</html>

<%
rsUsers.close
set rsUsers = nothing
con.close
set con = nothing
%>
```

Har jag placerat det fetmarkerade fel eller ngt annat?

MVH Jesper T

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

## #5 — solbulle, 2002-04-09T00:04Z

<http://www.hotscripts.com/search/?query=xls&category=ASP>

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

## #6 — Jesper T, 2002-04-12T02:24Z

Ja, nu har jag provat det i din länk solbulle, med det blir bara "vanliga" tabeller ingen .xls fil och inget nerladdningsbart \*snyft\*. Jag har även provat med: Response.AddHeader "content-disposition", "attachment; filename=blaaa.xls" 
Men nej då det vill bara inte.

??????????????????????????????????????????????????????

MVH Jesper

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

## #7 — doggelito, 2002-04-12T08:08Z

vet inte om jag fattat helt korrekt men här är lite kod som jag använt till liknande projekt (ommodifierad och lite rörig men, men).
du kan nog vända på koden så det passar dig, jag använde den till att uppdatera databasen från ett exceldokument.
ev. så får du nog lägga dessa på olika sidor, köra inserten först och sedan skickas till nerladdningen, kanske kan vara nån hjälp.  :) 

```
ladda ner filer..........................................................................

Response.Buffer = True
Dim strFilePath, strFileName

Const adTypeBinary = 1

strFilePath = Server.MapPath("/Files/" & Request.QueryString("FileName")) 
strFileName = Request.QueryString("FileName")
Response.Clear

Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile strFilePath

strFileType = right(strFileName, len(strFileName)-instrRev(strFileName,"."))
Select Case strFileType
	Case "xls"
	ContentType = "application/vnd.ms-excel"
	Case Else
	ContentType = "application/octet-stream"
End Select
	
Response.AddHeader "Content-Disposition", "attachment; filename=000" & strFileName
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush

objStream.Close
Set objStream = Nothing

uppdatera databas från exel....................................................

response.buffer = true

Set fs = Server.CreateObject("Scripting.FileSystemObject")
If fs.FileExists(Server.MapPath("/db/fil.xls")) Then

strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=xxx;Data Source=" & Server.MapPath("/db/db.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn

Set cnnExcel = Server.CreateObject("ADODB.Connection")
cnnExcel.Open "DBQ=" & Server.MapPath("/db/fil.xls") & ";" & _
"DRIVER={Microsoft Excel Driver (*.xls)};"

strsql = "SELECT * FROM [Tabellnamn$] "
Set rstExcel = cnnExcel.Execute(strsql)
mygetrows = rstExcel.GetRows()
rstExcel.Close
Set rstExcel = Nothing

cnnExcel.Close
Set cnnExcel = Nothing

for rows = 0 to Ubound(mygetrows,2)
artikelnr = mygetrows(0,rows)
pris = mygetrows(3,rows)

strsql = "Update produkter set pris = " & pris & " WHERE produktnr = '" & artikelnr & "' ;"
conn.Execute strsql,,128

next
conn.Close()
Set conn = Nothing

else
response.write "excelfilen finns ej eller har fel filnamn."
end if
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/41067-ladda-ner-excel-ifrån-access