Sub Save_Data_To_Xml()
Dim MyFileName$


With ThisWorkbook
MyFileName = Left(.Name, InStr(1, .Name, ".xls", vbTextCompare) - 1)
MyFileName = MyFileName & ".xml"
MyFileName = .Path & "\" & MyFileName
Open MyFileName For Output Lock Write As #1
Print #1, "<?xml version='1.0' encoding='WINDOWS-1251'?>"
Print #1, "    <j>"
Print #1, "    <VERSIYAFAYLA>2012.05</VERSIYAFAYLA>"
Print #1, "    <NAIMENOVANIEPO>&#193;&#192;&#208;&#209;-&#193;&#222;&#196;&#198;&#197;&#210;</NAIMENOVANIEPO>"
Print #1, "    <VERSIYAPO>12.10</VERSIYAPO>"
Print #1, "</j>"
Close #1

End With

End Sub