Привет.

Можно еще через буфер обмена и ActiveX.

Но мы сейчас переходим на linux, openoffice и firefox, которые так не умеют, так
что через content-type правильнее.

=Сергей Шутов
ООО Димас, Хабаровск


//*** Excel ***********************************************

// простое выравнивание строк и столбцов
// shu 031214, 031229-orientation
// namberFormat - столбцы в Excele для которых надо указать числовой формат.
// указывается в формате "B:B;D:E"
function PasteToExcel(str, lengthA, orientation,fontName,namberFormat,addExecute)
{
try
{
if ((lengthA == undefined) || (lengthA == null) || (lengthA == '')) {
lengthA = 12;
}
if ((orientation == undefined) || (orientation == null) || (orientation ==
'')) {
orientation = 1;
}

if ((str != null) && (str != undefined) && (str != ""))
{
var bool = window.clipboardData.setData("Text", str);
if (bool = false) { return; } //#
var ExcelApp = new ActiveXObject("Excel.Application");
var WorkBook = ExcelApp.WorkBooks.Add;
ExcelApp.ActiveSheet.Paste;
ExcelApp.Selection.VerticalAlignment = 1;
ExcelApp.Selection.ColumnWidth = "50";
ExcelApp.Selection.Interior.ColorIndex = 0;
// убираем подчеркивания для ссылок
ExcelApp.Selection.Font.Underline = false;
if (!((fontName == undefined) || (fontName == null) || (fontName == '')))
ExcelApp.Selection.Font.Name = fontName;
else {
ExcelApp.Selection.Font.Name = 'Courier New';
}
// Ставим числовой формат в нужных столбцах
if (!((namberFormat == undefined) || (namberFormat == null) || (namberFormat
== ''))) {
for (j=1; j<=Length(namberFormat,";"); j++) {
ExcelApp.ActiveSheet.Columns(Piece(namberFormat,";",j)).Select;
ExcelApp.Selection.NumberFormat = "#,##0.00";
}

}
ExcelApp.Columns("A:A").Select;
ExcelApp.Selection.ColumnWidth = lengthA;
ExcelApp.Columns("B:Z").Select;
ExcelApp.Selection.Rows.AutoFit;
ExcelApp.Columns("B:Z").Select;
ExcelApp.Selection.Columns.AutoFit;
ExcelApp.ActiveSheet.PageSetup.Orientation = orientation;
// Устанавливаем ширину страницы
ExcelApp.ActiveSheet.PageSetup.LeftMargin = 25
ExcelApp.ActiveSheet.PageSetup.RightMargin = 25
ExcelApp.ActiveSheet.PageSetup.Zoom = false;
ExcelApp.ActiveSheet.PageSetup.FitToPagesWide = 1;
ExcelApp.ActiveSheet.PageSetup.FitToPagesTall = 999;
if((addExecute != null) && (addExecute != undefined) && (addExecute != "")) {
eval(addExecute);
}
ExcelApp.ActiveSheet.Range("A1").Select;
ExcelApp.ActiveSheet.Refresh;
ExcelApp.Visible = true;
}
}
catch(e) { alert(e.description); }
}
Posted via ActualForum NNTP Server 1.4

Может открыться и внутри, но мы всегда отдельным окном открываем. Чтобы можно
было нормально сохранить, напечатать и т.д. в привычном пользователю редакторе.
Posted via ActualForum NNTP Server 1.4