Colin: Mit Button "Rechtsklick --> Export to Excel" aufrufen?

Beitrag lesen

SELF-Forum

Mit Button "Rechtsklick --> Export to Excel" aufrufen?

Colin
– Informationen zu den Bewertungsregeln

Vielen Dank, leider ist es ein bisschen komplizierter....das Tool welches die statischen HTML Seiten erstellt ist von einer anderen Firma die arbeiten schon an einer anderen Lösung kann aber noch lannnge dauern. Auch kann ich nur JS anpassen und weder PERL noch sonst was nutzen...leider.

Eine solche Statische HTML Tabelle sieht wie folgt aus:

<DIV ID=CF2  FIXROW=1 FIXCOL=2 FSTROW=3>  
<TABLE ID="F2"  CLASS=NAVREP SORTABLE=Y SCROLL=0>  
<THEAD>  
<TR><TD CLASS=HD1 COLSPAN=7>&nbsp;  
<A CLASS="SCROLL" HREF="javascript:Tblscroll('F2','False','MASYALD_TG0K')" onMouseOver="self.status='Scroll Table';return true;" onMouseOut="self.status='';return true;">  
<IMG CLASS="IMGV" SRC="..\..\IMG\SCROLL.PNG" ></A>  
<A CLASS="EXCEL" HREF="javascript:Epvexp('F2','False','MASYALD_TG0K')" onMouseOver="self.status='Export Table to Excel'; return true;"  onMouseOut="self.status='';return true;">  
<IMG CLASS="IMGV" SRC="..\..\IMG\EXCEL.PNG" ></A>  
<A CLASS="FAVOURITES" HREF="javascript:createCookie('ZOS','SYSTEM EXCEPTIONS DETAIL TG0K*'+document.location.href)" onMouseOver="self.status='Add to Favourites'; return true;" onMouseOut="self.status='';return true;">  
<IMG CLASS="IMGV" SRC="..\..\IMG\FAVOURITES.PNG" ></A>  
 <A CLASS="HELP" HREF="..\..\ZOSDOC\MASYALD.HTML" TARGET=_BLANK onMouseOver="self.status='Help';return true;"  onMouseOut="self.status='';return true;">  
<IMG CLASS="IMGV" SRC="..\..\IMG\HELP.PNG" ></A>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; EXCEPTIONS&nbsp;&nbsp;-&nbsp;&nbsp;Mon, 25 May 2009 </TD></TR>  
<TR>  
<TD CLASS=HD2> MESSAGE </TD>  
<TD CLASS=HD2> OBJECT </TD>  
<TD CLASS=HD2> FREQ </TD>  
<TD CLASS=HD2> OP </TD>  
<TD CLASS=HD2> THRESHOLD </TD>  
<TD CLASS=HD2> ALERT </TD>  
<TD CLASS=HD2> PRI </TD>  
</TR>  
</THEAD>  
<TBODY>  
<TR onClick="HighLightTR(this)">  
<TD CLASS=TXTCBLK NOWRAP TITLE="MESSAGE">GCP CAPTURE RATIO FOR SMF 72 RECORDS </TD>  
<TD CLASS=TXTCBLK TITLE="OBJECT">  
<A CLASS=HD2 NOWRAP HREF=MWMAIN.TG0K.D25MAY09.HTML#H3 >SYSTEM=TG0K </A></TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="FREQ">24 </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="OPERATOR">LT </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="THRESHOLD">70,0% </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="ALERT">CPCPR72 </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="PRIORITY">1 </TD>  
</TR>  
<TR onClick="HighLightTR(this)">  
<TD CLASS=TXTCBLK NOWRAP TITLE="MESSAGE">PERFORMANCE INDEX </TD>  
<TD CLASS=TXTCBLK TITLE="OBJECT">  
<A CLASS=HD2 NOWRAP HREF=MWMAIN.TG0K.D25MAY09.HTML#HEADER3 >SYSTEM=TG0K,SRVCLASS=STCVH,PERIOD=1 </A></TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="FREQ">24 </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="OPERATOR">GE </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="THRESHOLD">1,2 </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="ALERT">PERFHIG </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="PRIORITY">1 </TD>  
</TR>  
<TR onClick="HighLightTR(this)">  
<TD CLASS=TXTCBLK NOWRAP TITLE="MESSAGE">PERFORMANCE INDEX </TD>  
<TD CLASS=TXTCBLK TITLE="OBJECT">  
<A CLASS=HD2 NOWRAP HREF=MWMAIN.TG0K.D25MAY09.HTML#HEADER3 >SYSTEM=TG0K,SRVCLASS=STCNO,PERIOD=1 </A></TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="FREQ">10 </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="OPERATOR">GE </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="THRESHOLD">1,2 </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="ALERT">PERFHIG </TD>  
<TD CLASS=TXTCBLK NOWRAP TITLE="PRIORITY">3 </TD>  
</TR>  
</TBODY>  
</TABLE>  
</DIV>

Das Epvexp welches im JS steckt sieht dann:

function Epvexp(actdiv, graph, model)  
{  
   actpath = location.href;  
   graph   = 'False';  
   filter  =  
   VBEpvexp(actdiv, actpath, graph, model);  
}

und hier wird mit VBEpvexp dann folgendes aufgerufen:

Sub VBEpvexp(tablexx, pathxx, graphxx, modxx)  
     On Error Resume Next  
  
     Const vbNormal = 1         ' window style  
  
     'dichiarazione variabili  
     DIM objXL, objWb, objR, objTab     ' Excel object variables  
     DIM Title, Text, tmp, i, j, file, name, table, path  
  
     ' create an Excel object reference  
     Set objXL = CreateObject ("Excel.Application")  
  
     If Err.Number>0 Then  
        msgbox "Please modify your browser security settings to allow the use of Activex objects!"  
        Exit Sub  
     End if

Wobei dies nur ein kleiner Ausschnitt ist, aber hier bei der Fehlermeldung könnte man allenfalls einhacken..?!?

aber wenn ich Deine Texte richtig verstanden habe wird dies gar nicht funktionieren von wegen mit einem Klick den Rechtsklick auf die Tabelle ausführen und Export To Excel wählen?!?

Beitrag melden
–
Informationen zu den Bewertungsregeln