Bruke funksjonstillegget Analyseverktøy

Regnearkkomponenten støtter et ekstra sett med funksjoner som gjør omtrent det samme som funksjonene i tillegget Analyseverktøy i Microsoft Excel. Hvis du vil bruke Analyseverktøy-funksjonene, må du legge til to koder på websiden som inneholder regnearkkomponenten, for å koble til tillegget Analyseverktøy.

1. Åpne websidefilen som inneholder en regnearkkomponent, i et tekstredigeringsprogram eller redigeringsprogram for websider.
2. Legg til følgende koder:

   <OBJECT id=atp
      classid="CLSID:3F98D457-551B-48C5-BDE8-7FDECCD5AFA5">
   </OBJECT>
    
   <SCRIPT language="VBScript">
      Spreadsheet1.AddIn(atp)
   </SCRIPT>

   Der Spreadsheet1 er verdien for ID-attributtet for OBJECT-koden for regnearkkomponenten på siden.
3. Lagre disse endringene i websiden.

Når du har gjort disse endringene, kan du bruke Analyseverktøy-funksjonene i formlene i regnearkkomponenten. Følgende formel som bruker ISEVEN-funksjonen til å teste om en numerisk verdi er et partall, vil for eksempel returnere FALSE:

=ISEVEN(7)

Merknader

• Du kan også starte Analyseverktøy-funksjonstillegget og legge til formler helt fra skript, som vist i eksemplet nedenfor.

     Dim Spreadsheet1
     Dim atp
  
     ' Instantiate a Spreadsheet component object.
     Set Spreadsheet1 = CreateObject("OWC11.Spreadsheet")
  
     ' Instantiate the Analysis ToolPak function add-in.
     Set atp = CreateObject("OWCATP.OWCATP")
  
     ' Call the AddIn method to connect the add-in to the
     ' spreadsheet.
     Spreadsheet1.AddIn(atp)
  
     ' Add a formula to cell A1.
     Spreadsheet1.Range("A1").Formula = "=ISEVEN(7)"

• Hvis du bruker metodene XMLData eller XMLUrl i skript til å laste nye verdier inn i regnearket, blir funksjonstillegget Analyseverktøy koblet fra. Dette fikser du ved å kalle metoden AddIn på nytt for å koble til tillegget på nytt, og deretter kaller du metoden CalculateFull for å beregne formlene i regnearket på nytt.

     ' Assign new XmlData to the spreadsheet.
     Spreadsheet1.XmlData ="XMLDataString"
  
     ' Reconnect the function add-in
     Spreadsheet1.AddIn(atp)
  
     ' Recalculate all formulas in the spreadsheet.
     Spreadsheet1.CalculateFull

  Der XMLDataString er en streng med XML-data i XML-regnearkformat, for eksempel utdataene fra lagring som XML-regneark (*.xml) fra Microsoft Office Excel 2003.