Utilizzo di Visual Basic o ASP per creare un foglio di calcolo XML per Excel 2002 ed Excel 2003

Creazione del modello XML per la cartella di lavoro

1. Creare una nuova cartella, C:\ExcelXML.
2. In Excel avviare una nuova cartella di lavoro. Aggiungere i dati seguenti alle celle A1:F2 della cartella di lavoro nelle celle indicate. La cella F2 deve essere immessa come formula.

   A1: Order ID    B1: Product ID   C1: Unit Price   D1: Quantity   E1: Discount  F1: Total
   A2: aaa         B2: 111          C2: 222          D2: 333        E2: 0         F2: =C2*D2*(1-E2)

3. Nella cella F3 digitare la formula seguente:
   =SOMMA(F$2:F2)
4. Selezionare le celle A1:F1. Scegliere Celle dal menu Formato. Applicare un tipo di carattere in grassetto, un bordo inferiore e una tinta unita per l'ombreggiatura delle celle. Scegliere OK.
5. Selezionare le colonne A:F. Scegliere Colonna dal menu Formato, quindi fare clic su Larghezza. Digitare 15 come larghezza della nuova colonna, quindi scegliere OK. Con le colonne A:F ancora selezionate, scegliere Celle dal menu Formato. Nella scheda Allineamento selezionare Al centro nell'elenco dell'orientamento orizzontale, quindi scegliere OK.
6. Selezionare la colonna E. Scegliere Celle dal menu Formato. Nella scheda Numero fare clic su Percentuale e specificare 0 posizioni decimali, quindi scegliere OK.
7. Selezionare la colonna F. Scegliere Celle dal menu Formato. Nella scheda Numero scegliere Contabilità, quindi OK.
8. Selezionare le celle A3:F3. Scegliere Altezza righe dal menu Modifica, digitare 25, quindi scegliere OK. Con le celle A3:F3 ancora selezionate, scegliere Celle dal menu Formato. Applicare un bordo superiore alle celle, quindi scegliere OK.
9. Scegliere Opzioni dal menu Strumenti. Nella scheda Visualizza deselezionare la casella di controllo Griglia, quindi scegliere OK.
10. Selezionare la riga 2. Dal menu Finestra scegliere Blocca riquadri.
11. Selezionare la cella A1.
12. Scegliere Salva con nome dal menu File. Selezionare la cartella C:\ExcelXML e salvare la cartella di lavoro come "Orders.xsl" nel formato Foglio di calcolo XML.
    
    Nota: nella casella del nome file della finestra di dialogo Salva con nome racchiudere il nome tra virgolette in modo che non venga aggiunta al nome del file l'estensione xml.
13. Chiudere Excel.
14. Aprire Orders.xsl in un editor di testo, ad esempio il Blocco note.
15. Inserire quanto riportato di seguito tra il tag <?xml version="1.0"?> e il tag <Workbook>:

    <xsl:stylesheet xmlns:xsl="http://www.w3.org/TR/WD-xsl">
    <xsl:template match="/">
    <xsl:pi name="xml">version="1.0"</xsl:pi>
    					

16. Alla fine di Orders.xsl aggiungere le due seguenti righe:

    </xsl:template>
    </xsl:stylesheet>
    					

17. Individuare la seguente coppia di tag in Orders.xsl (rappresenta le celle A2:F2 nel foglio di lavoro):

       <Row ss:Height="14.25">
        <Cell><Data ss:Type="String">aaa</Data></Cell>
        <Cell><Data ss:Type="Number">111</Data></Cell>
        <Cell><Data ss:Type="Number">222</Data></Cell>
        <Cell><Data ss:Type="Number">333</Data></Cell>
        <Cell><Data ss:Type="Number">0</Data></Cell>
        <Cell ss:Formula="=RC[-3]*RC[-2]*1*(1-RC[-1])"><Data ss:Type="Number">73926</Data></Cell>
       </Row>
    					

    e sostituirla con il seguente codice XSL:

    <xsl:for-each select="xml/rs:data/z:row">
       <Row ss:AutoFitHeight="0" ss:Height="13.5">
        <Cell><Data ss:Type="String"><xsl:value-of select="@OrderID"/></Data></Cell>
        <Cell><Data ss:Type="Number"><xsl:value-of select="@ProductID"/></Data></Cell>
        <Cell><Data ss:Type="Number"><xsl:value-of select="@UnitPrice"/></Data></Cell>
        <Cell><Data ss:Type="Number"><xsl:value-of select="@Quantity"/></Data></Cell>
        <Cell><Data ss:Type="Number"><xsl:value-of select="@Discount"/></Data></Cell>
        <Cell ss:Formula="=RC[-3]*RC[-2]*(1-RC[-1])"><Data ss:Type="Number">0</Data></Cell>
       </Row>
    </xsl:for-each>
    					

18. Salvare le modifiche in Orders.xsl e chiudere il file.

Utilizzo di Visual Basic per trasformare in un foglio di calcolo XML un recordset ADO con dati XML conservati

1. In Visual Basic creare un nuovo progetto EXE standard.
2. Scegliere Riferimenti dal menu Progetto. Selezionare le librerie di tipi per Microsoft ActiveX Data Object 2.5 (o versione successiva) e Microsoft XML 3.0.
3. Aggiungere CommandButton a Form1, quindi aggiungere il codice seguente all'evento Click del pulsante:

       Const sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                     "C:\program files\microsoft office\office10\samples\Northwind.mdb"
       Const sOutXML = "C:\ExcelXML\Orders.xml"
       Const sXSL = "C:\ExcelXML\Orders.xsl"
       
       'Retrieve an ADO recordset of the Orders Detail table in Northwind.
       Dim nRecords As Long, nFields As Long
       Dim rs As New ADODB.Recordset
       rs.Open "SELECT * FROM [Order Details]", sConn, adOpenStatic, adLockOptimistic
           
       'Persist the recordset to a new DOMDocument and store the record count.
       Dim oXML As New DOMDocument
       rs.Save oXML, adPersistXML
       nRecords = rs.RecordCount
       nFields = rs.Fields.Count
       rs.Close
         
       'Load the XSL (the workbook template with XSL directives) into a DOMDocument.
       Dim oXSL As New DOMDocument
       oXSL.Load sXSL
       
       'Transform the XML using the style sheet.
       Dim oResults As New DOMDocument
       oXML.transformNodeToObject oXSL, oResults
       
       If oXSL.parseError.errorCode <> 0 Then
           MsgBox "Parse Error: " & oResults.parseError.reason
       Else
          'Modify the ss:ExpandedRowCount attribute for the <table> node to
          'indicate the correct number of rows (count of records + 1 row for
          'the header + 1 row for the total).
           Dim oTable As MSXML2.IXMLDOMElement
           Set oTable = oResults.selectSingleNode("Workbook/Worksheet/Table")
           oTable.setAttribute "ss:ExpandedRowCount", nRecords + 2
   
           '***************************************
           'Save the results to a file.
           Open sOutXML For Output As #1
           Print #1, oResults.xml
           Close #1
   
           'Open the XML in Excel.
           Dim oExcel As Object
           Set oExcel = CreateObject("Excel.Application")
           oExcel.Workbooks.Open sOutXML
           oExcel.Visible = True
           oExcel.UserControl = True
           '***************************************
       End If
   					

   Nota Se necessario, modificare la stringa di connessione (Const sConn) in modo che contenga il corretto percorso di installazione del database di esempio di Access Northwind.
4. Premere F5 per eseguire il programma.
5. Fare clic sul pulsante in Form1. I dati della tabella Dettagli ordini del database Northwind vengono visualizzati nel modello di cartella di lavoro di Excel creato.

        'Display the data in a workbook starting at cell B2.
        Dim oExcel As Object, oBook As Object
        Set oExcel = CreateObject("Excel.Application")
        Set oBook = oExcel.Workbooks.Add
        oBook.Worksheets(1).Range("B2").Resize(nRecords + 2, nFields + 1).Value(11) = _
            oResults.xml 'Note: xlRangeValueXMLSpreadsheet=11
        oExcel.Visible = True
        oExcel.UserControl = True
				

Utilizzo di ASP per trasformare in un foglio di calcolo XML un recordset ADO con dati XML conservati

1. Incollare il codice riportato di seguito nel Blocco note. Salvare il codice con il nome ExcelXML.asp nella cartella radice virtuale del server Web. Nota La cartella radice virtuale predefinita è C:\inetpub\wwwroot.

   <%@ Language="vbscript"%>
   
   <%
   
       Const sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\program files\microsoft office\office10\samples\Northwind.mdb"
       Const sXSL = "C:\ExcelXML\Orders.xsl"
       
       Response.Buffer = True
   
       'Retrieve an ADO recordset of the Orders Detail table in Northwind.
       Dim rs, nRecords
       Set rs = CreateObject("ADODB.Recordset")
       rs.Open "SELECT * FROM [Order Details]", sConn, 3, 3
           
       'Persist the recordset to a new DOMDocument and store the record count.
       Dim oXML
       Set oXML = CreateObject("Microsoft.XMLDOM")
       rs.Save oXML, 1
       nRecords = rs.RecordCount
       rs.Close
         
       'Load the XSL (the workbook template with XSL directives) into a DOMDocument.
       Dim oXSL
       Set oXSL = CreateObject("Microsoft.XMLDOM")
       oXSL.Load sXSL
       
       'Transform the XML using the style sheet.
       Dim oResults
       Set oResults = CreateObject("Microsoft.XMLDOM")
       oXML.transformNodeToObject oXSL, oResults
       
       If oXSL.parseError.errorCode <> 0 Then
          Response.Write "Parse Error: " & oResults.parseError.reason
       Else
   
          'Modify the ss:ExpandedRowCount attribute for the <table> node in the XSL.
           Dim oTable
           Set oTable = oResults.selectSingleNode("Workbook/Worksheet/Table")
           oTable.setAttribute "ss:ExpandedRowCount", nRecords + 2
   
           'Return the resulting XML Spreadsheet for display in Excel.
           Response.ContentType = "application/vnd.ms-excel"
           Response.Charset = "ISO-8859-1"
           Response.Write oResults.XML
           Response.Flush
   
       End If
   
   %>
   					

   Nota Se necessario, modificare la stringa di connessione (Const sConn) in modo che contenga il corretto percorso di installazione del database di esempio di Access Northwind.
   
   
2. Avviare Internet Explorer e collegarsi a http://ServerWeb/ExcelXML.asp, dove ServerWeb è il nome del server Web. I dati della tabella Dettagli ordini del database Northwind vengono visualizzati nel modello di cartella di lavoro di Excel creato.

Note aggiuntive

• Grafici
• Oggetti OLE
• Disegno di forme
• Progetti VBA
• Gruppi e bordi

Download

Torna all'inizio