Microsoft Excel - Excel - ActiveXObject

}

 .....

Is the code in red VBA?

This seems to be working for me:

Public Sub test()

    ActiveSheet.PageSetup.CenterFooter = "&G"

    With ActiveSheet.PageSetup.CenterFooterPicture
      .Filename = "C:\Users\Pictures\Jr High.jpg"
'      .Brightness = 0.5
'      .ColorType = msoPictureAutomatic
'      .Contrast = 0.5
'      .Height = 269.25
'      .Width = 441
'      .LockAspectRatio = True
    End With

End Sub

function ExportToExcel() {
    input_box=confirm("Export to Microsoft Excel?");
        if (input_box==true) {

            var xlApp = new ActiveXObject("Excel.Application");
            // Silent-mode:
            xlApp.Visible = true;
            xlApp.DisplayAlerts = false;
            var xlBook = xlApp.Workbooks.Add();
            xlBook.worksheets("Sheet1").activate;
            var XlSheet = xlBook.activeSheet;
            XlSheet.Name="Company Report";

            // Store the sheet header names in an array
            var rows = tblreport_invoice.getElementsByTagName("tr");
            var columns = tblreport_invoice.getElementsByTagName("th");
            var data = tblreport_invoice.getElementsByTagName("td");

            // Set Excel Column Headers and formatting from array
            for(i=0;i<columns.length;i++){
                XlSheet.cells(2).value= "Company Quote";
                XlSheet.cells(3,i+1).value= columns[i].innerText; //XlSheetHeader[i];
                XlSheet.cells(3,i+1).font.color="6";
                XlSheet.cells(3,i+1).font.bold="true";
                XlSheet.cells(3,i+1).interior.colorindex="37";
                XlSheet.Range("K4:K200").NumberFormat = "€ #,##0.00";
                XlSheet.Range("L4:L200").NumberFormat = "€ #,##0.00";
                XlSheet.Range("O4:O200").NumberFormat = "€ #,##0.00";
                XlSheet.Range("P4:P200").NumberFormat = "€ #,##0.00";
                XlSheet.Range("Q4:Q200").NumberFormat = "€ #,##0.00";
                XlSheet.Range("R4:R200").NumberFormat = "€ #,##0.00";
                XlSheet.Range("K4:L1000").HorizontalAlignment = -4152;
                XlSheet.Range("M4:M1000").HorizontalAlignment = -4152;
                XlSheet.Range("N4:Q1000").HorizontalAlignment = -4152;
                XlSheet.Range("R4:R1000").HorizontalAlignment = -4152;
                XlSheet.Range("F4:F1000").NumberFormat = "MM/DD/YYYY";
            }

            //run over the dynamic result table and pull out the values and insert into corresponding Excel cells
            var d = 0;
            for (r=4;r<rows.length+3;r++) { // start at row 2 as we've added in headers - so also add in another row!
                for (c=1;c<columns.length+1;c++) {
                    XlSheet.cells(r,c).value = data[d].innerText;
                    d = d + 1;
                }
            }

            //autofit the columns
            XlSheet.columns.autofit;

            // Make visible:
            xlApp.visible = true;
            xlApp.DisplayAlerts = true;
            CollectGarbage();
            //xlApp.Quit();
        }
}

MyPic = XlSheet.Pictures.Insert("c:\\1.jpg");
            MyPic.Top = XlSheet.Range("A1").Top;
            MyPic.Left = XlSheet.Range("A1").Left;
            MyPic.ShapeRange.Height = XlSheet.Range("A1").RowHeight * 2;

Hi Danasegarane and Somesh 

Here is my code and it works perfect if I take off the code that I am trying to do (in red)!

I will try to use yours code, but I want to put it in footer not just one time.

Thanks for yours help.



//Constantes excel
var xlUp = -4162;
var xlTop = -4160;
var xlBottom = -4107;
var xlCenterAcrossSelection = 7;
var xlCenter = -4108;
var xlJustify = -4130;
var xlLeft = -4131;
var xlRight = -4152;
var xlContinuous = 1;
var xlLastCell = 11;
var xlMedium = -4138;
var xlEdgeLeft = 7;
var xlEdgeTop = 8;
var xlEdgeBottom = 9;
var xlEdgeRight = 10;
var xlInsideVertical = 11;
var xlInsideHorizontal = 12;
var PREPARE_PAR = "";
var TITRE = "&b&20Rapport hebdomadaire(Confirmé)";
var SERVICE = "&20Direction des travaux publics\nDivision de la conception et de la réalisation des travaux";
var MACRO_DATE = "&20Date de révision: &D";
var MACRO_PAGINATION = "&20Page &P de &N";

function exportExcel(url)
{
  window.open(url);
}

function exportReportInExcel(reportName)
{

  copyReport("excel","excel");
 
  if(reportName == "RPTCONFIRME")
 
    pasteRPTCONFIRMEInExcel();

   
  window.close();
}

function openAndPasteInExcel()
{
  var excel = new ActiveXObject('Excel.Application');
  var workBooks = excel.Workbooks.Add;
  var excelSheet = workBooks.Worksheets(1);
  excelSheet.Application.Visible = true;
  excelSheet.Activate();
  excel.ActiveSheet.Range('A1').Select;
  excel.ActiveSheet.PasteSpecial(0,false,false);
  return excel;
}

function excelPageSetup(excel, headerRange)
{
  excel.ActiveSheet.Cells.EntireRow.AutoFit;
  excel.ActiveSheet.Cells.EntireColumn.AutoFit;

  excel.ActiveSheet.Range('A4').Select;

  excel.ActiveSheet.PageSetup.PrintTitleRows = headerRange;

  //xlPortrait = 1, xlLandscape = 2
  excel.ActiveSheet.PageSetup.Orientation = 2;

  //xlPaperLetter = 1 (8.5x11), xlPaperTabloid = 3 (11x17), xlPaperLegal= 5 (8.5x14)
  try
  {
    excel.ActiveSheet.PageSetup.PaperSize = 3;
  }
  catch (ex)
  {
   
  }

  //xlDownThenOver = 1, xlOverThenDown = 2
  excel.ActiveSheet.PageSetup.Order = 2;

  //Entête
  excel.ActiveSheet.PageSetup.LeftHeader = SERVICE;
  excel.ActiveSheet.PageSetup.CenterHeader = TITRE;

 //Pied de page
strPicName = "C:\Teste\LEGENDE_HEBDOMADAIRE_EXCEL.png";
excel.ActiveSheet.PageSetup.LeftFooterPicture.Filename=strPicName;
excel.ActiveSheet.PageSetup.LeftFooter = "&G";

  excel.ActiveSheet.PageSetup.CenterFooter = MACRO_PAGINATION;
  excel.ActiveSheet.PageSetup.RightFooter = MACRO_DATE;
 
  excel.ActiveSheet.PageSetup.Zoom = false;
  excel.ActiveSheet.PageSetup.FitToPagesWide = 1;
  excel.ActiveSheet.PageSetup.FitToPagesTall = 32767;
}

function copyReport(startElementId, endElementId)
{
  var report = document.body.createTextRange();
  report.moveToElementText(document.getElementById(startElementId));
  var end = document.body.createTextRange();
  end.moveToElementText(document.getElementById(endElementId));
  report.setEndPoint('EndToEnd', end);
  report.execCommand('Copy');
}

function  pasteRPTCONFIRMEInExcel()
{
  var excel = openAndPasteInExcel();

//Suppression des images
//  try
//  {
//    for (var i =  excel.ActiveSheet.Shapes.Count; i > 0; --i)
//    excel.ActiveSheet.Shapes.Item(i).Delete();
//  }
//  catch (ex)
//  {
//    alert(excel.ActiveSheet.Shapes[i]);
//  }

  //Suppression des liens
  try
  {
   for (var j =  excel.ActiveSheet.Hyperlinks.Count;j > 0; --j)
   excel.ActiveSheet.Hyperlinks(j).Delete();
  }
  catch (ex)
  {
 
  }

  // LastRow = excel.Range("A65536").End(xlUp).Row;
 // excel.Cells(LastRow+2,1).Interior.ColorIndex = 6;
 // excel.Cells(LastRow+2,2).Value = "À discuter";
 // excel.Cells(LastRow+4,1).Interior.ColorIndex = 38; 
 // excel.Cells(LastRow+4,2).Value = "Planification intégrer";

  excel.Range("A:N").font.size=10;
  //Mise en page des colones
  excel.range("A1:N1").font.bold=true;
  excel.range("A1:N1").Interior.ColorIndex = 41;
  //Presentation du titre
  excel.Rows("1:1").HorizontalAlignment=xlCenter;
  excel.ActiveWindow.SplitRow = 1; 
  excel.ActiveWindow.FreezePanes = true;
  excelPageSetup(excel, "$1:$1");
  excel.Columns("A:A").ColumnWidth = 11;
  excel.Columns("B:B").ColumnWidth = 16;
  excel.Columns("C:C").ColumnWidth = 30;
  excel.Columns("E:E").ColumnWidth = 11;
  excel.Columns("G:G").ColumnWidth = 16;
  excel.Columns("H:H").ColumnWidth = 18;
  excel.Columns("I:I").ColumnWidth = 17;
  excel.Columns("K:K").ColumnWidth = 45;
  excel.Columns("L:L").ColumnWidth = 22;
  excel.Columns("M:M").ColumnWidth = 21;
  excel.Columns("N:N").ColumnWidth = 12;
  excel.Columns("A:J").VerticalAlignment = xlCenter;
  excel.Columns("L:N").VerticalAlignment = xlCenter;

  excel.Columns("O:Q").Delete;
  excel.Columns("O:O").ColumnWidth = 0.1;

 
}

/********************************* runOnLoad *********************************/
function runOnLoad(f)
{
  if (runOnLoad.loaded)
    f();
  else
    runOnLoad.funcs.push(f);
}

runOnLoad.funcs = [];
runOnLoad.loaded = false;
runOnLoad.run = function() {
  if (!runOnLoad.loaded)
  {
    for(var i=0; i < runOnLoad.funcs.length; i++)
    {
    try {runOnLoad.funcs[i]()}
    catch(e) {}
    }
   
    runOnLoad.loaded = true;
    delete runOnLoad.funcs;
    delete runOnLoad.run;
  }
};

if (window.addEventListener)
  window.addEventListener("load", runOnLoad.run, false);
else if (window.attachEvent)
  window.attachEvent("onload", runOnLoad.run);
else
  window.onload = runOnLoad.run;

Sub Macro1()
    ActiveSheet.PageSetup.LeftFooterPicture.Filename = _
      "C:\TESTE\LEGENDE_HEBDOMADAIRE_EXCEL.png"
      ActiveSheet.PageSetup.LeftFooter = "&G"
        
        
End Sub

My problem is when I transform this code in ActiveXObject.

var excel = new ActiveXObject('Excel.Application');
strPicName = "C:\Teste\LEGENDE_HEBDOMADAIRE_EXCEL.png";
excel.ActiveSheet.PageSetup.LeftFooterPicture.Filename=strPicName;
excel.ActiveSheet.PageSetup.LeftFooter = "&G";

The meaning of this code is for copy one HTML page and Paste in Excel file.

For you information I am using Apex (Oracle Application Express)

I just want to put a legend in each page of my report because if I take this code off it works very nice.

Thank you

Forgot to attach the sample

And here is the sample

<html>
<script>

function CreateExcelwithLogo()
{
  var excel = new ActiveXObject('Excel.Application');
  var workBooks = excel.Workbooks.Add;
  var excelSheet = workBooks.Worksheets(1);
  excelSheet.Application.Visible = true;
  excelSheet.Activate();
  excel.ActiveSheet.Range('A1').Select;
  excel.ActiveSheet.PasteSpecial(0,false,false);
  return excel;

excel.ActiveSheet.Cells(2,2).Value = document.all.my_textarea1.value;
excel.ActiveSheet.PageSetup.LeftFooterPicture.Filename = "C:\\Teste\LEGENDE_HEBDOMADAIRE_EXCEL.png";
excel.ActiveSheet.PageSetup.LeftFooter = "&G";
excel.SaveAs("C:\Teste\Footer.xls");
excel.Quit();
alert('done');
}

</script>

<body>
<form name="form1">
<input type=button onClick="CreateExcelwithLogo();" value="Send Excel Data">
<input type=text name="my_textarea1" size=70 value="Enter some value">
</form>
</body>
</html>

Tks, 

I cant upload, I think IE 7 not support to do it !! 

<html>
<script>

function CreateExcelwithLogo()
{
 var excel = new ActiveXObject('Excel.Application');
var workBooks = excel.Workbooks.Add;
var excelSheet = workBooks.Worksheets(1);
excelSheet.Application.Visible = true;
excelSheet.Activate();
excel.ActiveSheet.Range('A1').Select;
excel.ActiveSheet.PasteSpecial(0,false,false);
excel.ActiveSheet.Cells(2,2).Value = document.all.my_textarea1.value;
excel.ActiveSheet.PageSetup.LeftFooterPicture.Filename = "C:/Teste/LEGENDE.png";
// STUPID  Slash
excel.ActiveSheet.PageSetup.LeftFooter = "&G";
excel.SaveAs("C:/Teste/Footer.xls");
excel.Quit();

 //Return here
 return excel;

alert('done');
}

</script>

<body>
<form name="form1">
<input type=button onClick="CreateExcelwithLogo();" value="Send Excel Data">
<input type=text name="my_textarea1" size=70 value="Enter some value">
</form>
</body>
</html>