Dim saveFileDialog As New SaveFileDialog()

        saveFileDialog.Filter = "XML-File | *.xml"

        saveFileDialog.FileName = DateTime.Now.ToString("dd-MMMM-yyyy") + "-MusteriXML"

        If saveFileDialog.ShowDialog() = DialogResult.OK Then

            dosyaadi = saveFileDialog.FileName





            Dim xtw As New Xml.XmlTextWriter(dosyaadi, System.Text.Encoding.GetEncoding("iSO-8859-9"))

            xtw.WriteStartDocument()       '//Start ederek xml’i arka planda açıyoruz.açıyoruz derken yazma işlemıne hazır vazıyette tutuyoruz

            xtw.Formatting = Formatting.Indented

            xtw.IndentChar = ChrW(9) 'TAB TUŞU





            xtw.WriteStartElement("AYLIKBILDIRGELER") '// Root’u belırlıyoruz.Yani Kök Elemanı(kök Elemanı olmaz ise XML çalışma esnasında hata vermektedır.)

            xtw.WriteStartElement("ISYERI ISYERISICIL") 'Root’un içerisine Attribute yanı value ’mizi eklıyoruz.

            xtw.WriteAttributeString("", "sicilno")

            xtw.WriteAttributeString("", "adasd")

            xtw.WriteEndElement() 'KAPATTIK



            xtw.WriteStartElement("BORDRO DONEMAY") 'Root’un içerisine Attribute yanı value ’mizi eklıyoruz.

            xtw.WriteAttributeString("" & "", "5")

            xtw.WriteAttributeString("DONEMYIL", "2013")

            xtw.WriteAttributeString("BELGEMAHIYET", "A")

            xtw.WriteEndElement() 'KAPAT



            xtw.WriteStartElement("BILDIRGELER") '3 ======= 

            xtw.WriteAttributeString("BELGETURU", "13")

            xtw.WriteAttributeString("DONEMYIL", "2013")

            xtw.WriteAttributeString("KANUN", "00000")





            xtw.WriteStartElement("SIGORTALILAR") '// Root’u belırlıyoruz.Yani Kök Elemanı(kök Elemanı olmaz ise XML çalışma esnasında hata vermektedır.)

            xtw.WriteStartElement("SIGORTALILAR") 'ana root

            xtw.WriteAttributeString("SIRA", "1")

            xtw.WriteAttributeString("SIGORTALISICIL", "480119971050")

            xtw.WriteAttributeString("TCKNO", "49996666666")

            xtw.WriteEndElement() 'KAPAT



            xtw.WriteEndElement() 'KAPAT

            xtw.WriteEndElement() 'KAPAT

            xtw.WriteEndElement() 'KAPAT



            xtw.WriteEndDocument()

            xtw.Close()



        End If

Üstteki kodlar var en son denememde. Burdaki sorunları Excel ile oluşturulan ve SGK sistemine sorunnsuz aktarılan xml dosyayası ile aynı oluşmadığı için sorun çıkıyor SGKya aktarımda.Şu anda bu foruma Resim ekleyebilirsem xml dosyası üzerinde yanlış olan yerleri belirteceğim. Ama resim eklenmiyor.