Solved

Can't Create an Excel Object

Posted on 2006-10-23
10
307 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
  • 5
  • 4
10 Comments
 
LVL 25

Expert Comment

by:kevp75
Comment Utility
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
Comment Utility
i am interested...
0
 

Author Comment

by:edwbear1976a
Comment Utility
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
 
LVL 25

Expert Comment

by:kevp75
Comment Utility
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
Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

 

Author Comment

by:edwbear1976a
Comment Utility
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
Comment Utility
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
Comment Utility
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
Comment Utility
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
Comment Utility
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

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
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/…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

762 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

Need Help in Real-Time?

Connect with top rated Experts

6 Experts available now in Live!

Get 1:1 Help Now