Cara menggunakan Visual Basic atau ASP untuk membuat spreadsheet XML untuk Excel 2002 dan Excel 2003

Membuat XML template untuk buku kerja

1. Membuat folder baru, C:\ExcelXML.
2. Di Excel, mulai buku kerja baru. Tambahkan data berikut untuk sel-sel A1:F2 dari workbook dalam sel menunjukkan. Sel F2 harus dimasukkan sebagai 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. Dalam sel F3, ketik rumus berikut:
   =SUM(F$2:F2)
4. Pilih sel-sel A1:F1. Pada Format menu, klik Sel. Berlaku font tebal, border bawah, dan warna solid untuk sel bayangan. Klik Oke.
5. Pilih kolom A:F. pada Format menu, titik Kolom kemudian klik Lebar. Jenis 15 untuk lebar kolom baru dan kemudian Klik Oke. Dengan kolom A:F masih dipilih, di Format menu, klik Sel. Pada Kesejajaran tab, pilih Pusat dari daftar horisontal kesejajaran, dan kemudian klik Oke.
6. Pilih kolom E. Pada Format menu, klik Sel. Pada Nomor tab, klik Persentase dan tentukan 0 desimal, dan kemudian klik Oke.
7. Pilih kolom F. Pada Format menu, klik Sel. Pada Nomor tab, klik Akuntansi kemudian klik Oke.
8. Pilih sel-sel A3:F3. Pada Format menu, klik Baris tinggi, jenis 25, lalu klik Oke. Dengan A3:F3 masih dipilih, di Format menu, klik Sel. Berlaku atas perbatasan untuk sel, dan kemudian klik Oke.
9. Pada Alat menu, klik Opsi. Pada Lihat tab, jelas GridLines kotak centang dan klik Oke.
10. Pilih baris 2. Pada Jendela menu, klik Membekukan panel.
11. Pilih sel A1.
12. Pada Berkas menu, klik Simpan sebagai. Browse ke folder C:\ExcelXML yang Anda buat, dan menyimpan buku kerja sebagai "Orders.xsl" di XML Spreadsheet format.
    
    Catatan: Dalam kotak nama file dalam Simpan sebagai kotak dialog, melampirkan nama file dalam tanda kutip ganda sehingga .xml ekstensi tidak ditambahkan ke nama file Anda.
13. Keluar Excel.
14. Buka Orders.xsl di editor teks apapun, seperti Notepad.
15. Masukkan berikut antara<?xml version="1.0"?>Tag dan <workbook>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. Pada akhir Orders.xsl, menambahkan dua berikut garis:

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

17. Cari set berikut tag di Orders.xsl (ini set Tag mewakili A2:F2 sel pada lembar kerja)

       <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>
    					

    dan menggantinya dengan kode XSL berikut:

    <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. Menyimpan perubahan ke Orders.xsl, dan tutup file.

Menggunakan Visual Basic untuk mengubah recordset ADO bertahan XML ke XML spreadsheet

1. Dalam Visual Basic, membuat baru Standard EXE proyek.
2. Pada Project menu, klik Referensi. Pilih jenis perpustakaan untuk Objek Microsoft ActiveX Data 2,5 (atau lambat) dan Microsoft XML 3.0.
3. Tambah CommandButton pada Form1, dan tambahkan kode berikut untuk kegiatan klik tombol:

       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
   					

   Catatan Jika diperlukan, memodifikasi koneksi string (Const sConn) jadi itu berisi instalasi benar jalan untuk sampel Northwind akses database.
4. Tekan F5 untuk menjalankan program.
5. Klik tombol pada Form1. Data dari Detail pesanan tabel dalam Northwind Database muncul dalam Excel workbook template bahwa Anda dibuat.

        '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
				

Menggunakan ASP untuk mengubah recordset ADO bertahan XML ke XML spreadsheet

1. Paste kode berikut ke Notepad. Simpan kode sebagai ExcelXML.asp di folder akar virtual server Web Anda.Catatan Folder akar virtual default adalah 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
   
   %>
   					

   Catatan Jika diperlukan, memodifikasi koneksi string (Const sConn) jadi itu berisi instalasi benar jalan untuk sampel Northwind akses database.
   
   
2. Jalankan Internet Explorer dan browse ke http://YourWebServer/ ExcelXML.asp, di mana YourWebServer adalah nama server Web Anda. Data dari Detail pesanan tabel dalam Northwind Database muncul dalam Excel workbook template bahwa Anda dibuat.

Catatan tambahan

• Bagan
• OLE objek
• Menggambar bentuk atau AutoShapes
• Proyek-proyek VBA
• Kelompok dan garis besar

Unduh

Perkecil gambar iniPerbesar gambar ini

Kembali ke atas