Hi,
I cannot find a solution to these two issues.
1) My Table "UNIVERSITIESOtherName" is made of University names in non-english characters:
ID UniversityOther
87 "Երևանի ""Հայբուսակ"" Համալասարան"
190 جامعة الخليج العربي
191 الجامعة الخليجیة
192 جامعة البحرين
237 Белорусский государственный экономический университет
When I export them to multiple text files with the script below (Source: Larry Larson) I get ?????????? characters instead of the original ones.
I guess I have to somehow tell the vba script to set the character to Unicode UTF-8 and/or to use a previously saved Export Specification Schema.
Here the Function code I am using slightly adapted from Larry's one
The question is what is the simpliest way to set the above VBA script export function to unicode UTF-8 characters or make it use a pre-saved Export Specification Schema?
2) The second minor problem is that whenever i run the above Export Function module, content is appended to the previous one instead of being replaced
So I get ID.txt files containing several lines of question marks:
???????????
???????????
???????????
How can I modify the above script so that it replaces the existing content instead of appending to it?
Thank you very much for your time and suggestions.
FF
I cannot find a solution to these two issues.
1) My Table "UNIVERSITIESOtherName" is made of University names in non-english characters:
ID UniversityOther
87 "Երևանի ""Հայբուսակ"" Համալասարան"
190 جامعة الخليج العربي
191 الجامعة الخليجیة
192 جامعة البحرين
237 Белорусский государственный экономический университет
When I export them to multiple text files with the script below (Source: Larry Larson) I get ?????????? characters instead of the original ones.
I guess I have to somehow tell the vba script to set the character to Unicode UTF-8 and/or to use a previously saved Export Specification Schema.
Here the Function code I am using slightly adapted from Larry's one
Code:
Function Save_to_file()
Dim rst As DAO.Recordset
Dim x As String
Set rst = CurrentDb.OpenRecordset("SELECT * FROM UNIVERSITIESOtherName")
Do Until rst.EOF
x = FreeFile
Open "C:\temp\" & rst!ID & ".txt" For Append As x
Print #x, rst!UniversityOther
Close #x
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Save_to_file_Exit:
Exit Function
End FunctionThe question is what is the simpliest way to set the above VBA script export function to unicode UTF-8 characters or make it use a pre-saved Export Specification Schema?
2) The second minor problem is that whenever i run the above Export Function module, content is appended to the previous one instead of being replaced
So I get ID.txt files containing several lines of question marks:
???????????
???????????
???????????
How can I modify the above script so that it replaces the existing content instead of appending to it?
Thank you very much for your time and suggestions.
FF
