Objet COM
tobleronne
Messages postés
104
Date d'inscription
vendredi 8 août 2003
Statut
Membre
Dernière intervention
1 mars 2005
-
13 mai 2004 à 20:39
cs_Jackboy Messages postés 757 Date d'inscription vendredi 7 septembre 2001 Statut Membre Dernière intervention 19 juin 2008 - 14 mai 2004 à 13:54
cs_Jackboy Messages postés 757 Date d'inscription vendredi 7 septembre 2001 Statut Membre Dernière intervention 19 juin 2008 - 14 mai 2004 à 13:54
1 réponse
cs_Jackboy
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
14 mai 2004 à 13:54
14 mai 2004 à 13:54
salut
en premier lieux pk utiliser un COM pour avoir accès à excell et en second lieux je crois que ces possible d'utiliser le com avec l'asp car j'ai produit cela pour une compagnie www.dvp-gs.com/wms ActiveX, COM, XML et ASP... sa na pas de rapport avec excel, mais seulement pour dire que com et asp sa fonctionne avec du bidouillage...
petite exemple asp et excel :
<%
Set objExcel = CreateObject("Excel.Sheet")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("COUNTER")
Set RS = Conn.Execute("SELECT * FROM COUNTS order by TOTALS")
td_dt = now()
Do While not rs.eof
if datediff("M",RS("last_dt"), td_dt) <> 0 then
months_hits = 0
else
months_hits = RS("MONTH")
end if
if datediff("d",RS("last_dt"), td_dt) <> 0 then
todays_hits = 0
else
todays_hits = RS("today")
end if
i = myCnt
objExcel.ActiveSheet.Cells(i + 1, 1 ) = rs("url")
objExcel.ActiveSheet.Cells(i + 1, 2 ) = rs("totals")
objExcel.ActiveSheet.Cells(i + 1, 3 ) = months_hits
objExcel.ActiveSheet.Cells(i + 1, 4 ) = todays_hits
myCnt = myCnt + 1
rs.movenext
loop
set rs = nothing
objExcel.ActiveSheet.Range("b1:d1").Value = Array("Total","Monthly","Today")
startstr = "b2:"
endstr = "d" & mycnt
objExcel.ActiveSheet.Range(startstr & endstr).Select
objExcel.Charts.Add
objExcel.activechart.ChartType = 100
objExcel.activechart.BarShape =3
objExcel.activechart.HasTitle = True
objExcel.activechart.ChartTitle.Text = _
"URL hits, by month, day and grand total"
objExcel.activechart.SetSourceData _
objExcel.Sheets("Sheet1").Range("A1:" & endstr),1
filename = server.mappath("/images")
if mid(filename,len(filename),1) <> "" then
filename = filename & ""
end if
filename = filename & "temp.gif"
objExcel.activechart.export filename, "GIF"
%>
<HTML>
<HEAD>
<TITLE>Chart</TITLE>
</HEAD>
</HTML>
en premier lieux pk utiliser un COM pour avoir accès à excell et en second lieux je crois que ces possible d'utiliser le com avec l'asp car j'ai produit cela pour une compagnie www.dvp-gs.com/wms ActiveX, COM, XML et ASP... sa na pas de rapport avec excel, mais seulement pour dire que com et asp sa fonctionne avec du bidouillage...
petite exemple asp et excel :
<%
Set objExcel = CreateObject("Excel.Sheet")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("COUNTER")
Set RS = Conn.Execute("SELECT * FROM COUNTS order by TOTALS")
td_dt = now()
Do While not rs.eof
if datediff("M",RS("last_dt"), td_dt) <> 0 then
months_hits = 0
else
months_hits = RS("MONTH")
end if
if datediff("d",RS("last_dt"), td_dt) <> 0 then
todays_hits = 0
else
todays_hits = RS("today")
end if
i = myCnt
objExcel.ActiveSheet.Cells(i + 1, 1 ) = rs("url")
objExcel.ActiveSheet.Cells(i + 1, 2 ) = rs("totals")
objExcel.ActiveSheet.Cells(i + 1, 3 ) = months_hits
objExcel.ActiveSheet.Cells(i + 1, 4 ) = todays_hits
myCnt = myCnt + 1
rs.movenext
loop
set rs = nothing
objExcel.ActiveSheet.Range("b1:d1").Value = Array("Total","Monthly","Today")
startstr = "b2:"
endstr = "d" & mycnt
objExcel.ActiveSheet.Range(startstr & endstr).Select
objExcel.Charts.Add
objExcel.activechart.ChartType = 100
objExcel.activechart.BarShape =3
objExcel.activechart.HasTitle = True
objExcel.activechart.ChartTitle.Text = _
"URL hits, by month, day and grand total"
objExcel.activechart.SetSourceData _
objExcel.Sheets("Sheet1").Range("A1:" & endstr),1
filename = server.mappath("/images")
if mid(filename,len(filename),1) <> "" then
filename = filename & ""
end if
filename = filename & "temp.gif"
objExcel.activechart.export filename, "GIF"
%>
<HTML>
<HEAD>
<TITLE>Chart</TITLE>
</HEAD>
</HTML>