Solved

Can't Create an Excel Object

Posted on 2006-10-23
10
311 Views
Last Modified: 2012-08-14
Hi everybody I've got troubles when I want to create an active X object (to launch an excel file) I'm using IIS 4 and it retrieves me the following message:

"Only InProc server components should be used. If you want to use localServer components, you must set the AspAllowOutOfProcComponents metabase setting"

well acording to my support stuff they did set that property already but I still get the error message

What should I do?

Thanks in advance
0
Comment
Question by:edwbear1976a
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 4
10 Comments
 
LVL 25

Expert Comment

by:kevp75
ID: 17799347
move to a new host.

any server still using IIS4 is behind the times, and has alot more to worry about than getting an excel file launched from a web app  (like security, virii, etc...)

more than likely the issue is being caused by the fact that MS Excel is not installed on the server, and thus cannot create an object out of something it does not have.  If this is not the issue, check the user permissions on the folder containing the excel file, as even in an intranet environment, the IUSR_machinename account would still need read/write/modify access to the containing folder...

if all this doesn't solve your problem, do as the error suggests (providing you have access to do that...)
0
 
LVL 25

Expert Comment

by:kevp75
ID: 17988604
i am interested...
0
 

Author Comment

by:edwbear1976a
ID: 17993285
I'm interested too, I still have that error message, It doesn't happen on IIS 5 web server for some reasons but I develope on IIS4 so I've got a problem to reference wheather  a word.application or excel.application, I 've been thinking that you would have to install MS OFFICE 2000 at least (my local IIS4 web server has Office 97)
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 25

Expert Comment

by:kevp75
ID: 17995577
the main problem is IIS4

it's outdated, un-secure, and un-stable.    You may be able to get away with installing Office 2k on that server, however.

Thus said.  Your other option may only be to upgrade your OS on your development machine, so you have IIS5
0
 

Author Comment

by:edwbear1976a
ID: 17997628
Hi , Thanks for your comments,
well I did make an upgrade and now we are running on IIS5 but I get another kind of error message ,  I still can't create the active x object but this time this is what I get :
==========================================
error:
Microsoft VBScript  run time error  (0x800A01AD)
ActiveX  Component can't create the object : 'Excel.Application'

================================
I'm running on OS W2k , WebServer IIS 5 and I have installed  MS Office 2k as well ....
0
 

Author Comment

by:edwbear1976a
ID: 18034506
Hi, I still get an error  but this time when I'm trying with any kind of profile except when I'm admistrator, I tried it as administrator and it worked fine but when I want to load the asp page with my common account  of  windows network  , I get a permission dennied error to create the excel object.

The iis5 is set to Windows Autentiphication, do I have to set it as anyonimus?
do you have any clues?

0
 
LVL 25

Accepted Solution

by:
kevp75 earned 250 total points
ID: 18034553
it would have tp be set to anon, if you plan on making this public.  You can use window auth, if not.

You would have to set user permissions to read/execute the dll file of the object.  in case you need to make this public, the user you want to give these permission to would be the IUSR_machinename account...
0
 

Author Comment

by:edwbear1976a
ID: 18034578
Hi thanks for the comment
well I do want to make this public
when you say about setting user permissions.. do you mean that I 've got to set user  pemission to read/execute dll file for each user ? so according to you it would be the IUSR_machinename account.. Where and How can I set those properties?
And What if I want  this for internet public  purposes that way anybody can access that page?
Does it make sense that only Administrators can load the asp page with no problems?

0
 

Author Comment

by:edwbear1976a
ID: 18054347
Hi,  now I can create the Excel Object  :) but  I can't make it to show up and it's imposible to send it to print unless I have installed the printers drivers in the server  :(  , but this is not a solution. What if you want an user to print it out?

This is the source code and it fails when I want to set up for printing cause it can't find a printer so I solved it by installing the printer driver in the server but this is really crazy!!!!

======================================================================
<!-- #include file="Librerias\LibConstantes.asp" -->
<!-- #include file="Librerias\LibTools.asp"   -->
<!-- #include file="Librerias\LibBaseDatos.asp"   -->
<!-- #include file="Librerias\LibExcel.asp"   -->

<HTML>
      <HEAD>
            <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
            <TITLE></TITLE>
      </HEAD>
      <BODY>
            <img src=iconos\print.gif align=absmiddle>
      </BODY>
</HTML>

<%
on error resume next


set Session("ObjExcel") = CreateObject("Excel.Application") ''CreaReferenciaExcel

if err.number <>0 then
            Response.Write ("<font name=arial>Se han experimentdo errores de acceso, por favor comuniquese con el operador de turno... </font><BR>")
            Response.Write ("<B>" + err.Description + "</B> <BR> "  )
            err.Clear
            Response.End
      end if




call AperturaHojaNueva(Session("ObjExcel"))
'Session("ObjExcel").Visible = true
      
dim gConn            'Objeto conexión
dim mAdo            'Recordset
dim mEmi            'Recordset
dim mRen            'Recordset
dim gstrSql            'Cadena con el query a ejecutar
dim lTotalEmi      'Variable que acumula
dim lAnoRpt            'Año del reporte
dim mTotales(21)

set gConn =      Con400(Session("Usuario"), Session("Pass"), Session("Servidor"))

if lAnoRpt<=35 then
      lAnoRpt = 2000 + Session("AnoReporte")
else
      lAnoRpt = 1900 + Session("AnoReporte")
end if
gstrSql="select cuprogp.dyr5nb as CODRAMO, tbramop.avjmtx as RAMO, cuprogp.dydvnw as IMPPRPAGADOANT, "
gstrSql = gstrSql + "cuprogp.dydwnw as IMPPRCONVMANANT, cuprogp.dydxnw as IMPPRCONVAUTPDTE, cuprogp.dydynw as IMPPRCONVMANPDTE, "
gstrSql = gstrSql + "cuprogp.dydZnw as IMPPRPAGADOPTE, cuprogp.dyd0nw as IMPPRCOASEG, "
gstrSql = gstrSql + "cuprogp.dydwnw + cuprogp.dydvnw + cuprogp.dydxnw + cuprogp.dydynw + cuprogp.dydznw + cuprogp.dyd0nw as TOTALPRODUCCION, "
gstrSql = gstrSql + "cuprogp.dyd1nw as IMPANENDOSO, cuprogp.dyd2nw as IMPANCONVUSER, cuprogp.dyd3nw as IMPANCONVMAS90, "
gstrSql = gstrSql + "cuprogp.dyd4nw as IMPANFINLETRA, cuprogp.dyd5nw as IMPANFINCUPON, cuprogp.dyd6nw as IMPANEXTPROF, "
gstrSql = gstrSql + "cuprogp.dyd1nw + cuprogp.dyd2nw + cuprogp.dyd3nw + cuprogp.dyd4nw + cuprogp.dyd5nw + cuprogp.dyd6nw as TOTALANULACION, "
gstrSql = gstrSql + "cuprogp.dyd7nw as IMPREGPOSITIVA, cuprogp.dyd8nw as IMPREGNEGATIVA, "
gstrSql = gstrSql + "cuprogp.dyd7nw + cuprogp.dyd8nw as TOTALREGULARIZACION, "
gstrSql = gstrSql + "cuprogp.dyd9nw as IMPPRODADICIONAL, "
gstrSql = gstrSql + "cuprogp.dydwnw + cuprogp.dydvnw + cuprogp.dydxnw + cuprogp.dydynw + cuprogp.dydznw + "
gstrSql = gstrSql + "cuprogp.dyd0nw + cuprogp.dyd1nw + cuprogp.dyd2nw + cuprogp.dyd3nw + cuprogp.dyd4nw + "
gstrSql = gstrSql + "cuprogp.dyd5nw + cuprogp.dyd6nw + cuprogp.dyd7nw + cuprogp.dyd8nw + cuprogp.dyd9nw as TOTALGENERAL "
gstrSql = gstrSql + "from " + Session("LibData") + ".cuprogp cuprogp left outer join " + Session("LibData") + ".tbramop tbramop "
gstrSql = gstrSql + "on (cuprogp.dyr5nb=tbramop.avr5nb) "
gstrSql = gstrSql + "where cuprogp.dydlnm=" + cstr(Session("MesReporte")) + " and cuprogp.dydknm=" + cstr(Session("AnoReporte")) + " "
gstrSql = gstrSql + "order by cuprogp.dyr5nb "
set mAdo = gConn.Execute (gstrSql)
if not mAdo.EOF then
      call CabeceraExcel
      lngFila=20
      
      while not mAdo.EOF
            lTotalEmi=0
            call InsertaDataCelda(Session("ObjExcel"),"A"+cstr(lngFila),mAdo(0))
            call InsertaDataCelda(Session("ObjExcel"),"B"+cstr(lngFila),mAdo(1))
            call InsertaDataCelda(Session("ObjExcel"),"C"+cstr(lngFila),"")
            gstrSql = "select sum(cxy9vv), sum(cxy9vv) from " + Session("LibData") + ".esvigep "
            gstrSql = gstrSql + "where cxdmnw=" + cstr(lAnoRpt) + " and cxdnnw=" + cstr(Session("MesReporte")) + " and cxeuez='N' "
            gstrSql = gstrSql + "and cxr5nb=" + cstr(mAdo(0)) + " and cxevez in ('2', '3', '5')"
            set mEmi = gConn.Execute (gstrSql)
            if mEmi.EOF then
                  call InsertaDataCelda(Session("ObjExcel"),"E"+cstr(lngFila),0)
            else
                  if not isnull(mEmi(0)) then
                        call InsertaDataCelda(Session("ObjExcel"),"E"+cstr(lngFila),round(mEmi(0),0))
                        lTotalEmi = lTotalEmi + round(cdbl(mEmi(0)),0)
                  else
                        call InsertaDataCelda(Session("ObjExcel"),"E"+cstr(lngFila),0)
                  end if
            end if
            gstrSql = "select sum(cxy9vv), sum(cxy9vv) from " + Session("LibData") + ".esvigep "
            gstrSql = gstrSql + "where cxdmnw=" + cstr(lAnoRpt) + " and cxdnnw=" + cstr(Session("MesReporte")) + " and cxeuez='R' "
            gstrSql = gstrSql + "and cxr5nb=" + cstr(mAdo(0)) + " and cxevez in ('2', '3', '5')"
            set mRen = gConn.Execute (gstrSql)
            if mRen.EOF then
                  call InsertaDataCelda(Session("ObjExcel"),"E"+cstr(lngFila),0)
            else
                  if not isnull(mRen(0)) then
                        call InsertaDataCelda(Session("ObjExcel"),"E"+cstr(lngFila),round(mRen(0),0))
                        lTotalEmi = lTotalEmi + round(cdbl(mRen(0)),0)
                  else
                        call InsertaDataCelda(Session("ObjExcel"),"E"+cstr(lngFila),0)
                  end if
            end if
            call InsertaDataCelda(Session("ObjExcel"),"F"+cstr(lngFila),round(lTotalEmi,0))
            call InsertaDataCelda(Session("ObjExcel"),"G"+cstr(lngFila),"")
            call InsertaDataCelda(Session("ObjExcel"),"H"+cstr(lngFila),round(mAdo(2),0))
            call InsertaDataCelda(Session("ObjExcel"),"I"+cstr(lngFila),round(mAdo(3),0))
            call InsertaDataCelda(Session("ObjExcel"),"J"+cstr(lngFila),round(mAdo(4),0))
            call InsertaDataCelda(Session("ObjExcel"),"K"+cstr(lngFila),round(mAdo(5),0))
            call InsertaDataCelda(Session("ObjExcel"),"L"+cstr(lngFila),round(mAdo(6),0))
            call InsertaDataCelda(Session("ObjExcel"),"M"+cstr(lngFila),round(mAdo(7),0))
            call InsertaDataCelda(Session("ObjExcel"),"N"+cstr(lngFila),round(mAdo(8),0))
            call InsertaDataCelda(Session("ObjExcel"),"O"+cstr(lngFila),"")
            call InsertaDataCelda(Session("ObjExcel"),"P"+cstr(lngFila),round(mAdo(9),0))
            call InsertaDataCelda(Session("ObjExcel"),"Q"+cstr(lngFila),round(mAdo(10),0))
            call InsertaDataCelda(Session("ObjExcel"),"R"+cstr(lngFila),round(mAdo(11),0))
            call InsertaDataCelda(Session("ObjExcel"),"S"+cstr(lngFila),round(mAdo(12),0))
            call InsertaDataCelda(Session("ObjExcel"),"T"+cstr(lngFila),round(mAdo(13),0))
            call InsertaDataCelda(Session("ObjExcel"),"U"+cstr(lngFila),round(mAdo(14),0))
            call InsertaDataCelda(Session("ObjExcel"),"V"+cstr(lngFila),round(mAdo(15),0))
            call InsertaDataCelda(Session("ObjExcel"),"W"+cstr(lngFila),"")
            call InsertaDataCelda(Session("ObjExcel"),"X"+cstr(lngFila),round(mAdo(16),0))
            call InsertaDataCelda(Session("ObjExcel"),"Y"+cstr(lngFila),round(mAdo(17),0))
            call InsertaDataCelda(Session("ObjExcel"),"Z"+cstr(lngFila),round(mAdo(18),0))
            call InsertaDataCelda(Session("ObjExcel"),"AA"+cstr(lngFila),"")
            call InsertaDataCelda(Session("ObjExcel"),"AB"+cstr(lngFila),round(mAdo(19),0))
            call InsertaDataCelda(Session("ObjExcel"),"AC"+cstr(lngFila),"")
            call InsertaDataCelda(Session("ObjExcel"),"AD"+cstr(lngFila),round(mAdo(20),0))

            if not isnull(mEmi(0)) then
                  mTotales(0)  = mTotales(0) + cdbl(mEmi(0))
                  mTotales(2)  = mTotales(2) + cdbl(mEmi(0))
            end if
            if not isnull(mRen(0)) then
                  mTotales(1)  = mTotales(1) + cdbl(mRen(0))
                  mTotales(2)  = mTotales(2) + cdbl(mRen(0))
            end if
                              
            mTotales(3)  = mTotales(3)  + cdbl(mAdo(2))
            mTotales(4)  = mTotales(4)  + cdbl(mAdo(3))
            mTotales(5)  = mTotales(5)  + cdbl(mAdo(4))
            mTotales(6)  = mTotales(6)  + cdbl(mAdo(5))
            mTotales(7)  = mTotales(7)  + cdbl(mAdo(6))
            mTotales(8)  = mTotales(8)  + cdbl(mAdo(7))
            mTotales(9)  = mTotales(9)  + cdbl(mAdo(8))
            mTotales(10) = mTotales(10) + cdbl(mAdo(9))
            mTotales(11) = mTotales(11) + cdbl(mAdo(10))
            mTotales(12) = mTotales(12) + cdbl(mAdo(11))
            mTotales(13) = mTotales(13) + cdbl(mAdo(12))
            mTotales(14) = mTotales(14) + cdbl(mAdo(13))
            mTotales(15) = mTotales(15) + cdbl(mAdo(14))
            mTotales(16) = mTotales(16) + cdbl(mAdo(15))
            mTotales(17) = mTotales(17) + cdbl(mAdo(16))
            mTotales(18) = mTotales(18) + cdbl(mAdo(17))
            mTotales(19) = mTotales(19) + cdbl(mAdo(18))
            mTotales(20) = mTotales(20) + cdbl(mAdo(19))
            mTotales(21) = mTotales(21) + cdbl(mAdo(20))

            mAdo.MoveNext
            lngFila = lngFila + 1
      wend
      mAdo.Close
      lngFila = lngFila + 1
      call InsertaDataCelda(Session("ObjExcel"),"A"+cstr(lngFila),"")
      call InsertaDataCelda(Session("ObjExcel"),"B"+cstr(lngFila),"")
      call InsertaDataCelda(Session("ObjExcel"),"C"+cstr(lngFila),"")
      call InsertaDataCelda(Session("ObjExcel"),"D"+cstr(lngFila),round(mTotales(0),0))
      call InsertaDataCelda(Session("ObjExcel"),"E"+cstr(lngFila),round(mTotales(1),0))
      call InsertaDataCelda(Session("ObjExcel"),"F"+cstr(lngFila),round(mTotales(2),0))
      call InsertaDataCelda(Session("ObjExcel"),"G"+cstr(lngFila),"")
      call InsertaDataCelda(Session("ObjExcel"),"H"+cstr(lngFila),round(mTotales(3),0))
      call InsertaDataCelda(Session("ObjExcel"),"I"+cstr(lngFila),round(mTotales(4),0))
      call InsertaDataCelda(Session("ObjExcel"),"J"+cstr(lngFila),round(mTotales(5),0))
      call InsertaDataCelda(Session("ObjExcel"),"K"+cstr(lngFila),round(mTotales(6),0))
      call InsertaDataCelda(Session("ObjExcel"),"L"+cstr(lngFila),round(mTotales(7),0))
      call InsertaDataCelda(Session("ObjExcel"),"M"+cstr(lngFila),round(mTotales(8),0))
      call InsertaDataCelda(Session("ObjExcel"),"N"+cstr(lngFila),round(mTotales(9),0))
      call InsertaDataCelda(Session("ObjExcel"),"O"+cstr(lngFila),"")
      call InsertaDataCelda(Session("ObjExcel"),"P"+cstr(lngFila),round(mTotales(10),0))
      call InsertaDataCelda(Session("ObjExcel"),"Q"+cstr(lngFila),round(mTotales(11),0))
      call InsertaDataCelda(Session("ObjExcel"),"R"+cstr(lngFila),round(mTotales(12),0))
      call InsertaDataCelda(Session("ObjExcel"),"S"+cstr(lngFila),round(mTotales(13),0))
      call InsertaDataCelda(Session("ObjExcel"),"T"+cstr(lngFila),round(mTotales(14),0))
      call InsertaDataCelda(Session("ObjExcel"),"U"+cstr(lngFila),round(mTotales(15),0))
      call InsertaDataCelda(Session("ObjExcel"),"V"+cstr(lngFila),round(mTotales(16),0))
      call InsertaDataCelda(Session("ObjExcel"),"V"+cstr(lngFila),"")
      call InsertaDataCelda(Session("ObjExcel"),"X"+cstr(lngFila),round(mTotales(17),0))
      call InsertaDataCelda(Session("ObjExcel"),"Y"+cstr(lngFila),round(mTotales(18),0))
      call InsertaDataCelda(Session("ObjExcel"),"Z"+cstr(lngFila),round(mTotales(19),0))
      call InsertaDataCelda(Session("ObjExcel"),"AA"+cstr(lngFila),"")
      call InsertaDataCelda(Session("ObjExcel"),"AB"+cstr(lngFila),round(mTotales(20),0))
      call InsertaDataCelda(Session("ObjExcel"),"AC"+cstr(lngFila),"")
      call InsertaDataCelda(Session("ObjExcel"),"AD"+cstr(lngFila),round(mTotales(21),0))       
      'A partir de aca imprime
      call FormatoNumerico(Session("ObjExcel"),"A1:AZ5000")
      call AutoAncho(Session("ObjExcel"))
      call LetraNegrita(Session("ObjExcel"),"A15:A16")
      call InsertaDataCelda(Session("ObjExcel"),"A15","CUADRO DE PRODUCCIÓN " + MesLetras(Session("FecProd"),0) + " al " + Session("FecProd"))
      call InsertaDataCelda(Session("ObjExcel"),"A16","Dolarizado")
      call CeldaIzquierda(Session("ObjExcel"),"A15:A16")
      
      call Hoja1x1(Session("ObjExcel"))
      if err.number <>0 then
            Response.Write ("<font name=arial>Se han experimentdo errores para establecer el formato de impresión </font><BR>")
            Response.Write ("<B>" + err.Description + "</B> <BR> "  )
            err.Clear
            Response.End
      end if
      
      call ImprimeExcel(Session("ObjExcel"))
end if
Session("ObjExcel").Quit
set Session("ObjExcel") = Nothing
%>
      <script language=javascript>
            window.close("PrintXLS") ;
      </script>
<%
 sub CabeceraExcel
      'Título 1ra fila
      call InsertaDataCelda(Session("ObjExcel"),"A17","")
      call InsertaDataCelda(Session("ObjExcel"),"B17","")
      call InsertaDataCelda(Session("ObjExcel"),"C17","")
      call InsertaDataCelda(Session("ObjExcel"),"D17","")
      call InsertaDataCelda(Session("ObjExcel"),"E17","")
      call InsertaDataCelda(Session("ObjExcel"),"F17","")
      call InsertaDataCelda(Session("ObjExcel"),"G17","")
      call InsertaDataCelda(Session("ObjExcel"),"H17","Producción")
      call InsertaDataCelda(Session("ObjExcel"),"I17","")
      call InsertaDataCelda(Session("ObjExcel"),"J17","")
      call InsertaDataCelda(Session("ObjExcel"),"K17","")
      call InsertaDataCelda(Session("ObjExcel"),"L17","")
      call InsertaDataCelda(Session("ObjExcel"),"M17","")
      call InsertaDataCelda(Session("ObjExcel"),"N17","")
      call InsertaDataCelda(Session("ObjExcel"),"O17","")
      call InsertaDataCelda(Session("ObjExcel"),"P17","Anulación")
      call InsertaDataCelda(Session("ObjExcel"),"Q17","")
      call InsertaDataCelda(Session("ObjExcel"),"R17","")
      call InsertaDataCelda(Session("ObjExcel"),"S17","")
      call InsertaDataCelda(Session("ObjExcel"),"T17","")
      call InsertaDataCelda(Session("ObjExcel"),"U17","")
      call InsertaDataCelda(Session("ObjExcel"),"V17","")
      call InsertaDataCelda(Session("ObjExcel"),"W17","")
      call InsertaDataCelda(Session("ObjExcel"),"X17","Regularizaciones")
      call InsertaDataCelda(Session("ObjExcel"),"Y17","")
      call InsertaDataCelda(Session("ObjExcel"),"Z17","")
      call InsertaDataCelda(Session("ObjExcel"),"AA17","")
      call InsertaDataCelda(Session("ObjExcel"),"AB17","Producción Nacional")
      call InsertaDataCelda(Session("ObjExcel"),"AC17","")
      call InsertaDataCelda(Session("ObjExcel"),"AD17","TOTAL GENERAL")
      'Título 2da fila
      call InsertaDataCelda(Session("ObjExcel"),"A18","")
      call InsertaDataCelda(Session("ObjExcel"),"B18","")
      call InsertaDataCelda(Session("ObjExcel"),"C18","")
      call InsertaDataCelda(Session("ObjExcel"),"D18","Prima emitida")
      call InsertaDataCelda(Session("ObjExcel"),"E18","")
      call InsertaDataCelda(Session("ObjExcel"),"F18","")
      call InsertaDataCelda(Session("ObjExcel"),"G18","")
      call InsertaDataCelda(Session("ObjExcel"),"H18","Meses anteriores")
      call InsertaDataCelda(Session("ObjExcel"),"I18","")
      call InsertaDataCelda(Session("ObjExcel"),"J18","Presente mes")
      call InsertaDataCelda(Session("ObjExcel"),"K18","")
      call InsertaDataCelda(Session("ObjExcel"),"L18","")
      call InsertaDataCelda(Session("ObjExcel"),"M18","Coaseguro recibido")
      call InsertaDataCelda(Session("ObjExcel"),"N18","Total")
      call InsertaDataCelda(Session("ObjExcel"),"O18","")
      call InsertaDataCelda(Session("ObjExcel"),"P18","Endosos")
      call InsertaDataCelda(Session("ObjExcel"),"Q18","Convenios")
      call InsertaDataCelda(Session("ObjExcel"),"R18","")
      call InsertaDataCelda(Session("ObjExcel"),"S18","Financiados")
      call InsertaDataCelda(Session("ObjExcel"),"T18","")
      call InsertaDataCelda(Session("ObjExcel"),"U18","Ext.Prof.90 días (EC)")
      call InsertaDataCelda(Session("ObjExcel"),"V18","TOTAL")
      call InsertaDataCelda(Session("ObjExcel"),"W18","")
      call InsertaDataCelda(Session("ObjExcel"),"X18","Positivas")
      call InsertaDataCelda(Session("ObjExcel"),"Y18","Negativas")
      call InsertaDataCelda(Session("ObjExcel"),"Z18","Total")
      call InsertaDataCelda(Session("ObjExcel"),"AA18","")
      call InsertaDataCelda(Session("ObjExcel"),"AB18","")
      call InsertaDataCelda(Session("ObjExcel"),"AC18","")
      call InsertaDataCelda(Session("ObjExcel"),"AD18","")
      'Título 3ra fila
      call InsertaDataCelda(Session("ObjExcel"),"A19","Rm")
      call InsertaDataCelda(Session("ObjExcel"),"B19","Ramo")
      call InsertaDataCelda(Session("ObjExcel"),"C19","")
      call InsertaDataCelda(Session("ObjExcel"),"D19","Nueva")
      call InsertaDataCelda(Session("ObjExcel"),"E19","Renovac")
      call InsertaDataCelda(Session("ObjExcel"),"F19","Total")
      call InsertaDataCelda(Session("ObjExcel"),"G19","")
      call InsertaDataCelda(Session("ObjExcel"),"H19","Pagado")
      call InsertaDataCelda(Session("ObjExcel"),"I19","Convenio Aut./Man.")
      call InsertaDataCelda(Session("ObjExcel"),"J19","Convenio automático")
      call InsertaDataCelda(Session("ObjExcel"),"K19","Convenio manual")
      call InsertaDataCelda(Session("ObjExcel"),"L19","Pagado")
      call InsertaDataCelda(Session("ObjExcel"),"M19","")
      call InsertaDataCelda(Session("ObjExcel"),"N19","")
      call InsertaDataCelda(Session("ObjExcel"),"O19","")
      call InsertaDataCelda(Session("ObjExcel"),"P19","Disminución/ Anulación")
      call InsertaDataCelda(Session("ObjExcel"),"Q19","Anuladas por usuario")
      call InsertaDataCelda(Session("ObjExcel"),"R19","Anuladas >90 días")
      call InsertaDataCelda(Session("ObjExcel"),"S19","Letras")
      call InsertaDataCelda(Session("ObjExcel"),"T19","Cupones")
      call InsertaDataCelda(Session("ObjExcel"),"U19","")
      call InsertaDataCelda(Session("ObjExcel"),"V19","")
      call InsertaDataCelda(Session("ObjExcel"),"W19","")
      call InsertaDataCelda(Session("ObjExcel"),"X19","")
      call InsertaDataCelda(Session("ObjExcel"),"Y19","")
      call InsertaDataCelda(Session("ObjExcel"),"Z19","")
      call InsertaDataCelda(Session("ObjExcel"),"AA19","")
      call InsertaDataCelda(Session("ObjExcel"),"AB19","")
      call InsertaDataCelda(Session("ObjExcel"),"AC19","")
      call InsertaDataCelda(Session("ObjExcel"),"AD19","")
      'Formato título
      call LetraNegrita(Session("ObjExcel"),"A17:AD19")
      
      call AlturaCelda(Session("ObjExcel"),"17:18",14.55)
      call AlturaCelda(Session("ObjExcel"),"19:19",28.50)
      
      call UneCeldas(Session("ObjExcel"),"H17:N17")
      call UneCeldas(Session("ObjExcel"),"P17:V17")
      call UneCeldas(Session("ObjExcel"),"X17:Z17")
      call UneCeldas(Session("ObjExcel"),"AB17:AB19")
      call UneCeldas(Session("ObjExcel"),"AD17:AD19")
      call UneCeldas(Session("ObjExcel"),"D18:F18")
      call UneCeldas(Session("ObjExcel"),"H18:I18")
      call UneCeldas(Session("ObjExcel"),"J18:L18")
      call UneCeldas(Session("ObjExcel"),"M18:M19")
      call UneCeldas(Session("ObjExcel"),"N18:N19")
      call UneCeldas(Session("ObjExcel"),"Q18:R18")
      call UneCeldas(Session("ObjExcel"),"S18:T18")
      call UneCeldas(Session("ObjExcel"),"U18:U19")
      call UneCeldas(Session("ObjExcel"),"V18:V19")
      call UneCeldas(Session("ObjExcel"),"X18:X19")
      call UneCeldas(Session("ObjExcel"),"Y18:Y19")
      call UneCeldas(Session("ObjExcel"),"Z18:Z19")
      
      call ColorCeldas(Session("ObjExcel"),"H17",15)
      call ColorCeldas(Session("ObjExcel"),"P17",15)
      call ColorCeldas(Session("ObjExcel"),"X17",15)
      call ColorCeldas(Session("ObjExcel"),"AB17",15)
      call ColorCeldas(Session("ObjExcel"),"AD17",15)
      call ColorCeldas(Session("ObjExcel"),"D18",15)
      call ColorCeldas(Session("ObjExcel"),"H18:N18",15)
      call ColorCeldas(Session("ObjExcel"),"P18:V18",15)
      call ColorCeldas(Session("ObjExcel"),"X18:Z18",15)
      call ColorCeldas(Session("ObjExcel"),"A19:B19",15)
      call ColorCeldas(Session("ObjExcel"),"D19:F19",15)
      call ColorCeldas(Session("ObjExcel"),"H19:L19",15)
      call ColorCeldas(Session("ObjExcel"),"P19:T19",15)
      call ColorCeldas(Session("ObjExcel"),"A19:B19",15)
      
      call CeldaCentrada(Session("ObjExcel"),"A17:AD19")
      call AnchoColumna(Session("ObjExcel"),"C:C",0.50)
      call AnchoColumna(Session("ObjExcel"),"G:G",0.50)
      call AnchoColumna(Session("ObjExcel"),"O:O",0.50)
      call AnchoColumna(Session("ObjExcel"),"W:W",0.50)
      call AnchoColumna(Session("ObjExcel"),"AA:AA",0.50)
      call AnchoColumna(Session("ObjExcel"),"AC:AC",0.50)

      call InsertaDataCelda(Session("ObjExcel"),"H17","Producción")
      call InsertaDataCelda(Session("ObjExcel"),"P17","Anulación")
      call InsertaDataCelda(Session("ObjExcel"),"X17","Regularizaciones")
      call InsertaDataCelda(Session("ObjExcel"),"AB17","Producción Nacional")
      call InsertaDataCelda(Session("ObjExcel"),"AD17","TOTAL GENERAL")
      call InsertaDataCelda(Session("ObjExcel"),"D18","Prima emitida")
      call InsertaDataCelda(Session("ObjExcel"),"H18","Meses anteriores")
      call InsertaDataCelda(Session("ObjExcel"),"J18","Presente mes")
      call InsertaDataCelda(Session("ObjExcel"),"M18","Coaseguro recibido")
      call InsertaDataCelda(Session("ObjExcel"),"N18","Total")
      call InsertaDataCelda(Session("ObjExcel"),"Q18","Convenios")
      call InsertaDataCelda(Session("ObjExcel"),"S18","Financiados")
      call InsertaDataCelda(Session("ObjExcel"),"U18","Ext.Prof.90 días (EC)")
      call InsertaDataCelda(Session("ObjExcel"),"V18","TOTAL")
      call InsertaDataCelda(Session("ObjExcel"),"X18","Positivas")
      call InsertaDataCelda(Session("ObjExcel"),"Y18","Negativas")
      call InsertaDataCelda(Session("ObjExcel"),"Z18","Total")
      
      call CentradoVertical(Session("ObjExcel"),"19:19")
      call WordWrapCell(Session("ObjExcel"),"19:19")
      call WordWrapCell(Session("ObjExcel"),"18:18")
      
      call BordesCeldas(Session("ObjExcel"),"H17")
      call BordesCeldas(Session("ObjExcel"),"P17")
      call BordesCeldas(Session("ObjExcel"),"X17")
      call BordesCeldas(Session("ObjExcel"),"AB17")
      call BordesCeldas(Session("ObjExcel"),"AD17")

      call BordesCeldas(Session("ObjExcel"),"D18")
      call BordesCeldas(Session("ObjExcel"),"H18")
      call BordesCeldas(Session("ObjExcel"),"J18")
      call BordesCeldas(Session("ObjExcel"),"M18")
      call BordesCeldas(Session("ObjExcel"),"N18")
      call BordesCeldas(Session("ObjExcel"),"P18")
      call BordesCeldas(Session("ObjExcel"),"Q18")
      call BordesCeldas(Session("ObjExcel"),"S18")
      call BordesCeldas(Session("ObjExcel"),"U18")
      call BordesCeldas(Session("ObjExcel"),"V18")
      call BordesCeldas(Session("ObjExcel"),"X18")
      call BordesCeldas(Session("ObjExcel"),"Y18")
      call BordesCeldas(Session("ObjExcel"),"Z18")

      call BordesCeldas(Session("ObjExcel"),"A19")
      call BordesCeldas(Session("ObjExcel"),"B19")
      call BordesCeldas(Session("ObjExcel"),"D19")
      call BordesCeldas(Session("ObjExcel"),"E19")
      call BordesCeldas(Session("ObjExcel"),"F19")
      call BordesCeldas(Session("ObjExcel"),"H19")
      call BordesCeldas(Session("ObjExcel"),"I19")
      call BordesCeldas(Session("ObjExcel"),"J19")
      call BordesCeldas(Session("ObjExcel"),"K19")
      call BordesCeldas(Session("ObjExcel"),"L19")
      call BordesCeldas(Session("ObjExcel"),"M19")
      call BordesCeldas(Session("ObjExcel"),"N19")
      call BordesCeldas(Session("ObjExcel"),"P19")
      call BordesCeldas(Session("ObjExcel"),"Q19")
      call BordesCeldas(Session("ObjExcel"),"R19")
      call BordesCeldas(Session("ObjExcel"),"S19")
      call BordesCeldas(Session("ObjExcel"),"T19")

      call LetraNegrita(Session("ObjExcel"),"F20:F5000")
      call LetraNegrita(Session("ObjExcel"),"N20:N5000")
      call LetraNegrita(Session("ObjExcel"),"V20:V5000")
      call LetraNegrita(Session("ObjExcel"),"Z20:Z5000")
      call LetraNegrita(Session("ObjExcel"),"AD20:AD5000")

end sub
%>
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Auto Submit on dropdown box 14 78
Html CheckBox obtain Its Value 5 36
2012 SQL to JSON Select 5 29
Want an individual results display div 8 41
Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
The Email Laundry PDF encryption service allows companies to send confidential encrypted  emails to anybody. The PDF document can also contain attachments that are embedded in the encrypted PDF. The password is randomly generated by The Email Laundr…

756 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question