Printing Hebrew and Russian to file

[gilescardew]

Hi,

I need some help as I am stuck. I had this working before but I can't remember what I did to solve it.

What I have is an excel sheet that contains either Hebrew or Russian characters and I have some VBA that loops through each row and then prints the output into a file that has been opened.

For the Hebrew and Russian it just prints ?????? rather than the actual characters.

So my code does something like

strFilePath = "C:\"
strFileName = "agents.1.xml"
strFile = strFilePath & strFileName
intFile = FreeFile()
'create the text file
Open strFile For Output As intFile
Print #intFile, "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "windows-1252" & Chr(34) & "?>"
Print #intFile, "<AGENTLIST>"

With Sheets("New Import Agent")
Do Until .Cells(intRowCount, 4) = ""
'Read data from sheet
Fname = .Cells(intRowCount, 4)
Lname = .Cells(intRowCount, 5)

Print #intFile, "<LASTNAME>" & Lname & "</LASTNAME><FIRSTNAME>" & Fname & "</FIRSTNAME><NAMESUFFIX></NAMESUFFIX>"


The Fname and Lname contain the Hebrew and Russian but when I look at the resultant XML it looks like this

<?xml version="1.0" encoding="windows-1252"?>
<AGENTLIST>
<NEWAGENT>
<LASTNAME>?????</LASTNAME><FIRSTNAME>????????</FIRSTNAME><NAMESUFFIX></NAMESUFFIX>

Any ideas as to print the correct characters.

Thanks,
Giles

 

[moonfish]

It could be that the pc you're viewing the xml file from doesn't have the required language packs installed.

Try browsing to a Russian or Hebrew website to confirm or deny this.

 

[gilescardew]

thanks for the reply.

When I F8 through the code and get to the Fname and Lname variables they show as question marks so I don't think the problem is with the XML itself, it seems to be that the VBA just doesn't understand the characters