Profil: irfan1977 | DonanımHaber Forum

Şimdi Ara

@irfan1977

Takip Et 0 takipçi

Özel Mesaj

24 Ocak 2014
Tarihinde Katıldı

Takip Ettikleri
0 üye

Görüntülenme
Toplam: 11 (Bu ay: 0)

Fırsat Ekle

Gönderileri

Tümü (1)

Sadece Konular (1)

Sadece Bağlantılar (0)

irfan1977 (İrfan ÜÇBENLİ) · Asp / Asp.NET altına konu açtı. 11 yıl

Klasik ASP 'den Excel'e aktarım

Merhaba,

Yurtdışı forumu için aşağıdaki gibi ingilizce yazmıştım. Dileyen olursa Türkçe yazabilirim. Yardımlarınızı rica ederim. Teşekkürler

Hi All,
I want to create an excel file from classical ASP. My client is Win 7 / IE9, Server has Windows Server 2003 and Excel 2003
I tried HTML TABLES.

Response.ContentType = "application/vnd.ms-excel; charset=utf-8"
Response.AddHeader "Content-Disposition", "attachment; filename=abc.xls"
Response.Write(sResponseString)

AT first It worked but later on the file corrupted. While opening the file in excel and import job too we are getting error saying "The file you are trying to open <filename> is in different format than specified bt file extension. Verify that the file is from a trusted source before opening the file. Do you want to open the file now ?"
I tried different types of the followings, but I could not solve.
application/vnd.ms-excel
application/vnd.msexcel
application/vnd.excel

Then I changed my way to create excel file using Excel.Application

I am creating excel file from classical ASP using Excel.Application
In the file, I can not see Turkish characters normally.
For example İ is seen like Ä°.

Can anyone help me ? I used the followings :

'Session.LCID = 1055
'Session.CodePage = 1254
'response.Charset="ISO-8859-1"
'Response.Charset="windows-1254"

'Response.ContentEncoding = Server.Encoding.GetEncoding(1254)
'Response.ContentEncoding = "windows-1254"

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False
'objExcel.DefaultWebOptions.Encoding = 28599
objExcel.DefaultWebOptions.AlwaysSaveInDefaultEncoding = True
Set objWorkbook = objExcel.Workbooks.Add()
'Set objWorkbook = objExcel.Workbooks.Add
objExcel.DefaultWebOptions.AlwaysSaveInDefaultEncoding = True
Set objSpreadsheet = objWorkbook.Worksheets(1)
'objSpreadsheet.Cells(1, 1).Select
objSpreadsheet.Cells(1, 1) = "ıışşç"

4 Yanıt

Yanıtla

Favorilere Ekle

Temel Bilgiler ve İstatistikler

Aktiflik: Şu anda DH'de değil
Son Giriş: 5 yıl önce
Son Mesaj Zamanı: 5 yıl
Mesaj Sayısı: 2
Gerçek Toplam Mesaj Sayısı: 13
İkinci El Bölümü Mesajları: 0
Konularının görüntülenme sayısı: 522 (Bu ay: 3)
Toplam aldığı artı oy sayısı: 3 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Sağlıklı Yaşam

Mesajları

İkinci El Referansları