Makale numaras�: 285891 - Son G�zden Ge�irme: 19 Mart 2007 Pazartesi - G�zden ge�irme: 7.4

Excel 2002 ve Excel 2003, XML elektronik tablo olu�turmak i�in Visual Basic'in veya bir ASP kullanma

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Hepsini a� | Hepsini kapa

�zet

Microsoft Excel 2002 ve Microsoft Office Excel 2003, bunlar hem y�klenemedi ve kaydedebilirsiniz (veya XML elektronik tablolar�) �al��ma kitaplar�n� XML bi�imini destekler. Bu XML Elektronik Tablo bi�imini kullanarak, multi-sheet, olu�turabilece�iniz Automation'� kullanmadan, Excel �al��ma kitaplar�na bi�imlendirilmi�. Bir Excel olu�turmak istedi�inizde bu yakla��m istenebilir �al��ma kitab�nda, ancak Excel otomatikle�tirmek i�in uygun de�il (gibi bir Web sunucusunda veya bir hizmetten) veya Excel'in kodunuzu �al��t�rd�� sistemde y�kl� de�il.

Bu makalede, nas�l bir XML �ablonu, Geni�letilebilir Stil Sayfas� Dili (XSL) d�n��t�rme ile kullan�ld��nda olu�turabilece�inizi g�stermektedir, do�rudan Excel'de a��labilir bi�imlendirilmi� bir �al��ma kitab� olu�turur. XML d�n��m Active Server Pages (ASP) ve Visual Basic i�in g�sterilmi�tir. Ile ilgili olarak Visual Basic kod �rne�i, elektronik tablo verilerini, yaln�zca XML/XSL ile olu�turulur; en az bir Otomasyon sonu�lar� Excel'de a�mak i�in kullan�l�r.

Not Bu makalede a��klanan �rnek kullan�labilir kar��dan y�kleme; kar��dan y�kleme y�nergeleri i�in bu makalenin sonunda y�kleme b�l�m�ne bak�n.

�ste

Daha fazla bilgi

�al��ma kitab�nda XML �ablonu olu�turma

C:\ExcelXML yeni bir klas�r olu�turun.
Excel'de, yeni bir �al��ma kitab� ba�lat�n. A�a��daki verileri, belirtilen h�creleri �al��ma kitab�ndaki h�creleri A1:F2 ekleyin. H�cre F2 bir form�l� olarak girilmelidir.
```
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)
```
F3 h�cresine a�a��daki form�l� yaz�n:
=sum(f$2:f2)
H�creleri A1:F1 se�in. Bi�im men�s�nden H�creler ' i t�klat�n. Kal�n yaz� tipi, alt kenarl�k ve h�cre g�lgelendirme i�in d�z bir renk uygulan�r. Tamam ' � t�klat�n.
A:F. Bi�im men�s�nden S�tunlar'� se�in, s�tun ' u i�aret edin ve sonra da Geni�lik ' i t�klat�n. 15 Yeni s�tun geni�li�ini yaz�n ve Tamam ' � t�klat�n. S�tunlar� A:F, Bi�im men�s�nden Se�ili H�creler ' i t�klat�n. Hizalama sekmesinde, yatay hizalamay� listeden Center ' � t�klat�n ve sonra Tamam ' � t�klat�n.
E s�tunu se�in. Bi�im men�s�nden H�creler ' i t�klat�n. Say� sekmesinde y�zde ' yi t�klat�n, 0 ondal�k belirtin ve sonra Tamam ' � t�klat�n.
F s�tunu se�in. Bi�im men�s�nden H�creler ' i t�klat�n. Say� sekmesindeki Hesap ' � t�klat�n ve sonra Tamam ' � t�klat�n.
H�creleri A3:F3 se�in. Bi�im men�s�nden, Sat�r y�ksekli�i ' � t�klat�n, 25 yaz�n ve Tamam ' � t�klat�n. A3:F3 hala se�ili, Bi�im men�s�nden H�creler ' i t�klat�n. �st Kenarl�k h�crelere ve Tamam ' � t�klat�n.
Ara�lar men�s�nden Se�enekler ' i t�klat�n. G�r�n�m sekmesinde <a0>k�lavuz �izgileri</a0> onay kutusunu temizleyin ve Tamam ' � t�klat�n.
Sat�r 2'� se�in. Pencere men�s�nden B�lmeleri Dondur'u t�klat�n.
A1 h�cresini se�in.
Dosya men�s�nden farkl� Kaydet ' i t�klat�n. Olu�turdu�unuz C:\ExcelXML klas�re g�z at�n ve �al��ma kitab� "Orders.xsl" XML elektronik tablo bi�iminde kaydedin.

Not: .xml uzant�s�, dosya ad�na eklenir b�ylece dosya ad� kutusuna Kaydet ileti�im kutusunda dosya ad� �ift t�rnak i�ine al�n.
Excel'den ��k�n.
Orders.xsl, Not Defteri gibi herhangi bir metin d�zenleyicisinde a��n.

A�a��daki aras�nda ekleme <? xml s�r�m = "1.0"? > etiketi ve <workbook>etiketi:

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

A�a��daki iki sat�r� Orders.xsl �ok sonunda, append:
</xsl:template> </xsl:stylesheet>

A�a��daki etiketleri k�mesini (Bu k�mesi etiketleri �al��ma sayfas�ndaki h�creleri A2:F2 g�sterir) Orders.xsl bulun

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

ve a�a��daki XSL kodla de�i�tirin:

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

Orders.xsl i�in de�i�ikliklerinizi kaydedip dosyay� kapat�n.

Bir XML devam eden bir ADO kay�t k�mesini bir XML elektronik tabloya d�n��t�rmek i�in Visual Basic'i kullan�n.

Visual Basic'te, yeni bir standart exe DOSYAS� olu�turma proje.
Proje men�s�nde Ba�vurular ' � t�klat�n. T�r kitapl�klar� (Microsoft ActiveX veri nesnesi 2.5 veya sonraki) ve Microsoft XML 3. 0 ' � se�in.

Form1'e bir KomutD��mesi ekleyin ve bu d��menin t�klatma i�in a�a��daki kodu ekleyin olay:

    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

Not gerekti�i, ba�lant�y� de�i�tirmek (sabit sConn) dize, Access Northwind �rnek do�ru y�kleme yolunu i�eren veritaban�.

Program� �al��t�rmak i�in F5 tu�una bas�n.
Form1 d��mesini t�klat�n. Verileri sipari�ler ayr�nt� Northwind veritaban�ndaki bir tabloyu olu�turdu�unuz Excel �al��ma kitab� �ablonu g�r�n�r.

�rnek XML olarak yeni bir �al��ma kitab�n� a�mak i�in �al��ma kitaplar�n� toplulu�unun <a2>A�</a2> y�ntemini kullanarak Excel otomatikle�tirir ve XML elektronik tablosu olu�turur. Di�er bir yakla��m XML belirli bir h�creden varolan bir �al��ma sayfas�na do�rudan ekleyebilirsiniz. G�stermek i�in <a0></a0>, a�a��daki y�ld�z i�aretleri aras�nda yer alan kodunu de�i�tir:

        '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

bu de�i�ikli�i yapt�ktan sonra program� yeniden �al��t�r�n. Bu kez, ilk �al��ma sayfas�n�n B2 h�cresinden ba�layarak yeni bir �al��ma kitab�na XML elektronik tablo verilerini yerle�tirilmi� oldu�unu unutmay�n. H�cre veri ve bi�imleri aral��a uygulan�r; ancak, bu yakla��m kullanarak sat�r, s�tun, �al��ma ve �al��ma kitab� i�in �zel ayarlar� ta��nan de�il.

Bir XML devam eden bir ADO kay�t k�mesini bir XML elektronik tabloya d�n��t�rmek i�in ASP kullanma

A�a��daki kodu Not Defteri'ne yap��t�r�n. Kod, Web sunucusu. Not varsay�lan sanal k�k klas�r� sanal k�k klas�r�nde ExcelXML.asp C:\inetpub\wwwroot olarak kaydedin.

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

%>

Not gerekti�i, ba�lant�y� de�i�tirin (sabit sConn) dize, Access Northwind �rnek do�ru y�kleme yolunu i�eren veritaban�.

�nternet Explorer'� ba�lat�n ve http:// YourWebServer i�in g�zat�n / ExcelXML.asp, burada YourWebServer Web sunucunuzun ad�d�r. Verileri sipari�ler ayr�nt� Northwind veritaban�ndaki bir tabloyu olu�turdu�unuz Excel �al��ma kitab� �ablonu g�r�n�r.

Ek notlar

A�a��daki Excel �zellikleri, XML ile olam�yor elektronik tablo bi�imi:

Grafikler
OLE nesneleri
�izim �ekilleri veya Otomatik �ekiller
VBA projeleri
Grup ve anahat

Y�kle

XMLSpread.exe XML stil, Visual Basic projesinin ve bu makalede a��klanan ASP komut dosyas� i�erir. A�a��daki dosya Microsoft Y�kleme Merkezi'nden y�klenebilir:

Bu resmi kapatBu resmi a�

Download the Xmlsprd.exe package now. (http://download.microsoft.com/download/excel2002/other/1.0/win98me/en-us/xmlsprd.exe) Yay�m Tarihi: Mart 27, 2001

Microsoft Destek dosyalar�n� kar��dan y�kleme hakk�nda daha fazla bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

119591� (http://support.microsoft.com/kb/119591/ ) Microsoft Destek Dosyalar� �evrimi�i Hizmetler'den Nas�l Al�n�r

Microsoft bu dosyada vir�s taramas� yapm��t�r. Microsoft, dosyan�n kullan�ma sunuldu�u tarihteki en g�ncel vir�s tarama yaz�l�m�n� kullanm��t�r. Dosya, �zerinde herhangi bir yetkisiz de�i�iklik yap�lmas�n� engellemeye yard�m eden geli�tirilmi� g�venli�e sahip sunucularda depolan�r.

�ste

Referanslar

ADO kay�t k�mesi XML bi�iminde kaydetme hakk�nda daha fazla bilgi i�in bi�imlendirmek i�in a�a��daki Microsoft Developer Network (MSDN) Web sitesine bak�n:

http://msdn2.microsoft.com/en-us/library/ms681538.aspx (http://msdn2.microsoft.com/en-us/library/ms681538.aspx)

Microsoft Office MIME i�eri�i ak�� hakk�nda daha fazla bilgi i�in uygulamalar Microsoft Knowledge Base'deki makaleleri g�r�nt�lemek �zere a�a��daki makale numaralar�n� t�klat�n:

266263� (http://support.microsoft.com/kb/266263/ ) Hata: Word 2000 ve Excel 2000 ASP kayna��n� ak�� verileri i�in MIME t�r� kullan�l�rken g�r�nt�lemek

199841� (http://support.microsoft.com/kb/199841/ ) ASP sonu�lar� Excel kullan�larak IE'de MIME t�rleriyle nas�l g�r�nt�lenir

271572� (http://support.microsoft.com/kb/271572/ ) MIME ��eri�i Ak�� Olarak G�nderilirken Excel �al��ma Kitab� Nas�l Bi�imlendirilir

307021� (http://support.microsoft.com/kb/307021/ ) Nas�l yap�l�r: Visual Basic. NET'i kullanarak, XML verilerini Microsoft Excel 2002'ye aktarma

�ste

Bu makaledeki bilginin uyguland�� durum:

Microsoft Office Excel 2003
Microsoft Excel 2002 Standard Edition
Microsoft Active Server Pages 4.0
Microsoft Visual Basic 6.0 Professional Edition

�ste

kbmt kbdownload kbhowto KB285891 KbMttr

�ste

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:285891� (http://support.microsoft.com/kb/285891/en-us/ )

�ste

This site in other countries/regions:

Excel 2002 ve Excel 2003, XML elektronik tablo olu�turmak i�in Visual Basic'in veya bir ASP kullanma

�zet

Daha fazla bilgi

�al��ma kitab�nda XML �ablonu olu�turma

Bir XML devam eden bir ADO kay�t k�mesini bir XML elektronik tabloya d�n��t�rmek i�in Visual Basic'i kullan�n.

Bir XML devam eden bir ADO kay�t k�mesini bir XML elektronik tabloya d�n��t�rmek i�in ASP kullanma

Ek notlar

Y�kle

Referanslar

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

This site in other countries/regions:

Excel 2002 ve Excel 2003, XML elektronik tablo olu�turmak i�in Visual Basic'in veya bir ASP kullanma

�zet

Daha fazla bilgi

�al��ma kitab�nda XML �ablonu olu�turma

Bir XML devam eden bir ADO kay�t k�mesini bir XML elektronik tabloya d�n��t�rmek i�in Visual Basic'i kullan�n.

Bir XML devam eden bir ADO kay�t k�mesini bir XML elektronik tabloya d�n��t�rmek i�in ASP kullanma

Ek notlar

Y�kle

Referanslar

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

Bu makaledeki bilginin uyguland�� durum: