Hur gör man enklast för att skriva till en Excel fil från ASP.NET? Om du menar att spara filen på servern? Jag har ett problem med processer som inte vill försvinna. Som sagt. Undvik detta på webservern.Rappport i Excel
Hittade nått exempel på MS sida men det funkade inte får bara felmeddelande på det.Sv: Rappport i Excel
Det lättaste är att spotta ut en vanlig HTML-tabell med rätt content-type.
ungefär, exempel i gammaldags ASP/VBScript, men du fattar:
<code>
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "attachment;filename=data.xls"
Response.Write("<table>" & vbNewLine)
If Not rs.EOF Then
Response.Write("<tr>")
For Each fld In rs.Fields
Response.Write("<td>" & fld.Name & "</td>")
Next
Response.Write("</tr>" & vbNewLine)
End If
While Not rs.EOF
Response.Write("<tr>")
For Each fld In rs.Fields
Response.Write("<td>")
If Not IsNull(rs(fld.Name)) Then Response.Write(rs(fld.Name))
Response.Write("</td>")
Next
Response.Write("</tr>" & vbNewLine)
rs.MoveNext
Wend
Response.Write("</table>" & vbNewLine)
</code>Sv: Rappport i Excel
1. Skapa HTML-data.
2. Spara som textfil men med filändelsen .xls på servern.
Excel efter version 95 klarar att tolka HTML.
Dessutom minskar risken för att erhålla X antal processer som hänger på servern.
/HåkanSv: Rappport i Excel
Min kod ser ut som nedan. Men det det skapas en ny process varje gång jag kör koden och den vill inte försvinna fast att jag stänger den!
<code>
Dim excelApp As New Excel.Application()
Dim excelBook As Excel.Workbook = excelApp.Workbooks.Open("D:\XLS\temp.xls")
Dim excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1), Excel.Worksheet)
Dim tmp As String
With excelWorksheet
.Range("A2").Value = "P19000 Tidrapport"
.Range("A4").Value = "23"
.Range("A6").Value = "15"
.Range("A8").Value = "2003-08-31"
End With
Dim i As Integer
tmp = ""
For i = 10 To 20
tmp &= Convert.ToString(Int(i * Rnd()))
Next
excelBook.SaveAs("D:\XLS\" & tmp & ".xls")
excelApp.Workbooks.Close()
excelApp.Quit()
excelWorksheet = Nothing
excelBook = Nothing
excelApp = Nothing
</code>Sv: Rappport i Excel
Läs följande
http://support.microsoft.com/default.aspx?scid=kb;EN-US;257757
/Håkan