Gönderen Konu: Javascript ile Tabloda Bulunan Verileri Excel'e Aktarma  (Okunma sayısı 1883 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Yasin_0023

  • İleti: 157
  • Puan: 148
  • Cinsiyet: Bay
    • SİYAHSERİT
Javascript ile Tabloda Bulunan Verileri Excel'e Aktarma
« : Kasım 09, 2008, 16:27:53 ÖS »
Umarım işiniz yarar

Kod: [Seç]
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>tıkla</title>
<script>

function raporExcel()
{
var xlApp, xlWB, xlSheet,f2,fso,oBook,oSheet,oBook1,oSheet1,idTmr,tablom,satir,sutun,i,j;
tablom=document.getElementById("liste");
satir=tablom.rows.length;

xlApp = new ActiveXObject("Excel.Application");
fso = new ActiveXObject("Scripting.FileSystemObject");
xlApp.Visible = true;
xlApp.DisplayAlerts=true;
xlWB = xlApp.Workbooks.Add();
xlWB.Sheets.Add(null,xlWB.Sheets(xlWB.Sheets.Count));
xlWB.WorkSheets(1).Name="Sorgu Sonuc";
xlSheet = xlWB.WorkSheets(1);
xlSheet.Activate();

for (i=1;i<=satir;i++)
{
for (j=1;j<=tablom.rows[i-1].cells.length;j++)
{
if (tablom.rows[i-1].cells[j-1].innerText!='null')
{
//alert(tablom.rows[i-1].cells[j-1]..innerText);
xlSheet.Cells(i,j).Value=tablom.rows[i-1].cells[j-1].innerText;
}
}
}

xlSheet.SaveAS("C:\\hsnoguz.xlsx");
xlApp = null;
CollectGarbage(1500);
}
</script>
</head>

<body>

<table border="1" width="100%" id="liste">
<tr>
<td>aaaa</td>
<td>bbbb</td>
<td>cccc</td>
<td>dddd</td>
<td>eeee</td>
</tr>
<tr>
<td height="25">111</td>
<td height="25">222</td>
<td height="25">333</td>
<td height="25">444</td>
<td height="25">555</td>
</tr>
<tr>
<td>fff</td>
<td>ggg</td>
<td>hhh</td>
<td>jjj</td>
<td>kkk</td>
</tr>
<tr>
<td>666</td>
<td>777</td>
<td>888</td>
<td>999</td>
<td>000</td>
</tr>
</table>

<a href="javascript:raporExcel();">Excel'e Aktar</a>
</body>

</html>
Konuyu Paylaş:
  delicious  facebook  twitter  google
|www .siyahserit.tr.cx | 
|www .siyahserit.tr.gg  |  |www.uzmanweb.yetkinblog.com |  |www.uzmanweb.yetkinforum.com | |www.siyahserit.turkforumpro.com  |

 

Benzer Konular

  Konu / Başlatan Yanıt Son İleti
0 Yanıt
1223 Gösterim
Son İleti Ekim 09, 2006, 00:09:21 ÖÖ
Gönderen: AdmiN
3 Yanıt
9755 Gösterim
Son İleti Ocak 05, 2010, 22:54:03 ÖS
Gönderen: burajan
1 Yanıt
8885 Gösterim
Son İleti Aralık 02, 2008, 20:14:50 ÖS
Gönderen: ERÇOLAK
2 Yanıt
1568 Gösterim
Son İleti Nisan 15, 2009, 13:48:04 ÖS
Gönderen: karagedikli
1 Yanıt
1266 Gösterim
Son İleti Eylül 12, 2010, 14:53:14 ÖS
Gönderen: barbu