Response.ContentType = "application/ms-excel"

[jrasmussen]

I have created an Excel spreadsheet for the web. When it opens in IE
6.0 I get the message that the format is not supported. This is because
it is in tab delimited format. Ane when I save the file, It saves it as
txt. How can this file be created so that Excel sees it as an .xls
format. I created the data in VB 6.0 with a vbtab to seperate the
columns.

Hope this is enough information.

Thanks for the help,
Jim

 

[Ray Costanzo [MVP]]

Create an actual Excel file. A tab delimited file is not the same as an
Excel file. You created the file programatically?

If you do it as a csv and give it a csv extension, it's more than likely
that it'll open in Excel on most machines. But even then, that does not
mean that it's an Excel file. It's then just a comma separated values file.

Ray at work

 

[Ray Costanzo [MVP]]

I didn't notice the subject and that you were setting the application type.
If you're going to do that, just return an html table, not tab delimited
data. Excel will handle converting an html table to a spreadsheet.

Ray at work

 

[Patrice]

AFAIK this is not the proper mime type.

Try :
.xls application/excel
.xls application/vnd.ms-excel
.xls application/x-excel
.xls application/x-msexcel


(from http://www.webmaster-toolkit.com/mime-types.shtml)

I used the second one...

 

[jrasmussen]

Here is the code that I have...

For Each eXml In xnlXml
For Each aAttr In eXml.Attributes
If aAttr.baseName <> "balance_due" Then
sXLSFile = sXLSFile & aAttr.Value & vbTab
Else
sXLSFile = sXLSFile & aAttr.Value & vbCrLf
End If
Next aAttr
Next eXml

Randomize
sFileName = Server.MapPath("dreamreport") & CStr(CInt(Rnd(100) * 1000))
& ".xls"
Set oFso = CreateObject("Scripting.FileSystemObject")
oFso.CreateTextFile sFileName
Set fFile = oFso.GetFile(sFileName)
Set tStream = fFile.OpenAsTextStream(ForWriting)

Then sFileName and sXLSFile are sent to..

bRtn = True
Response.Expires = 0
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "Content-Disposition", "inline; filename=" &
p_bstrFilename
Response.AddHeader "Content-Length", LenB(p_vBuffer)
Response.BinaryWrite p_vBuffer

And I still get that message that the file cannot be recognized.

Thanks for any help,

Jim