Hallo zusammen,
ich möchte Tabelle die in einem DIV-Tag eingefügt wurden, nach Word exportieren.
Mit Excell funktioniert dies so:
Kann mir jemand helfen wie ich das in Word umsetzte
Vielen Dank und Gruß,
Nici
ich möchte Tabelle die in einem DIV-Tag eingefügt wurden, nach Word exportieren.
Mit Excell funktioniert dies so:
Code:
function exportStatisticTableToExcel()
{
window.parent.frames("unten").cb.style.display = "block";
var xlMaximized = -4137;
var xlMinimized = -4140;
var xlNormal = -4143;
var coll = resultDIV.all.tags("TABLE");
var rows, cells;
if ( (coll != null) && (coll.length != 0) )
{
try {
var ExcelApplication = new ActiveXObject("Excel.Application");
ExcelApplication.WindowState = xlMinimized;
ExcelApplication.SheetsInNewWorkbook = coll.length;
var workbook = ExcelApplication.Workbooks.Add();
for (var i=0; i {
try {
rows = coll(i).rows;
if (rows.length >= 1)
{
// pro Tabelle ein neues Worksheet
try {
workbook.Sheets(i+1).Name = coll(i).id;
}
catch(e)
{}
workbook.Sheets(i+1).Cells.Font.Name = "Arial";
workbook.Sheets(i+1).Cells.Font.Size = 8;
for (var j=0; j {
var cells = rows[j].cells;
for (k=0; k workbook.Sheets(i+1).Cells((j+1),(k+1)).Value = cells[k].innerText;
}
workbook.Sheets(i+1).Rows("1:1").Font.Bold = true;
workbook.Sheets(i+1).Range("A1").AutoFilter();
workbook.Sheets(i+1).Cells.Columns.AutoFit();
}
}
catch(e)
{
alert("Fehler: " + e.description);
}
}
ExcelApplication.WindowState = xlMaximized;
ExcelApplication.visible = true;
}
catch(e)
{
alert("MS Excel konnte nicht gestartet werden!\n\nEntweder verhindern Ihre Sicherheitseinstellungen\nim Browser den regulären Programmstart oder\ndas Programm wurde auf Ihrem Rechner\nnicht ordnungsgemäß installiert.");
var ExcelApplication = null;
return;
}
}
else {
alert("Keine Tabelle zum Export vorhanden ...");
return;
}
window.parent.frames("unten").cb.style.display = "none";
}
Vielen Dank und Gruß,
Nici
Zuletzt bearbeitet von einem Moderator: