XMLからExcelへのマッピング

XMLを使ってExcelにデータをエクスポートしようとしています。次に、Excelファイルを生成するコードの例を示します。

    Private Sub ExportToExcel()
    Dim fs As New IO.StreamWriter("exported.xls", False)
    fs.WriteLine("<?xml version=""1.0""?>")
    fs.WriteLine("<?mso-application progid=""Excel.Sheet""?>")
    fs.WriteLine("")

    ' Create the styles for the worksheet
    fs.WriteLine(" ")

    ' Style for the column headers
    fs.WriteLine(" ")

    ' Style for the column information
    fs.WriteLine(" ")
    fs.WriteLine(" ")

    ' Write the worksheet contents
    fs.WriteLine("")
    fs.WriteLine(" <table>")

    For i As Integer = 0 To 1
        fs.WriteLine(" ")
        For j As Integer = 0 To 2
            fs.WriteLine(" ")
            fs.WriteLine(" H")
            fs.WriteLine(" ")
        Next
        fs.WriteLine(" ")
    Next

        ' Close up the document
        fs.WriteLine(" </table>")
        fs.WriteLine("")
        fs.WriteLine("")

        fs.Close()

End Sub

そして、これは私の生成したxlsファイルにあります:

    <?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>

 
 
 
 

 <table>
 
 
 H
 
 
 H
 
 
 H
 
 
 
 
 H
 
 
 H
 
 
 H
 
 
 </table>


Seems to be correct, but when I open the xls I have a crazy output:enter image description here

But it is not everything: if I write manualy the xml structure to my xsl file (or I copy-paste it from another file for example) the output is ok - I see my rows & columns with right values (H,H,H everywhere), formatting, the name of the worksheet is "Data Export" as I set it... don't understand :( Please, explain me someone. Thanks a lot!!!

2
あなたはあなたの質問に使用しているプログラミング言語の名前を付けるのですか? VB.NETのように見えます。
追加された 著者 JimmyPena,
また、通常のXMLファイルを作成してExcelで開くのはなぜですか?または少なくともDOMを使用します。
追加された 著者 JimmyPena,

1 答え

ちょうどラインを置き換える

fs.WriteLine("")

fs.WriteLine("")

それは問題を解決する

1. Output of the sheet
2. Name of the worksheet 

Output File

2
追加された
はい、私はそれを試して、それは動作します。ありがとう!!!
追加された 著者 kzub,
kzub - 上記のコードを試しましたか?これは役に立ちましたか?
追加された 著者 Arun Singh,