Yuri

Brilliant

I just needed this

CLEAR
CLEAR all
codepage=1251
RussianFont="ER Bukinist 1251"
_screen.FontName=RussianFont
IMPORT FROM j:\aexcel\ctcrussianaddresses.xls xls
BROWSE FONT (RussianFont)

Thank you very much

Colin

>Colin,
>
>It depends on what are "russian fonts" you use in Excel and in VFP, and how do you importing data from excel. This work for me:
>
>

>RussianFont="ER Bukinist 1251"
>_screen.FontName=RussianFont
>
>Dimension Array2Excel(3,2)
>
>Array2Excel[1,1]="Ðóññêèé òåõò"
>Array2Excel[2,1]=DATETIME()
>Array2Excel[3,1]="English Text"
>
>oExcel=Createobject("EXCEL.APPlication")
>oExcel.Workbooks.Add()
>oExcel.Range("A1:A3").Value = ArrayPasser("Array2Excel")
>
>oExcel.Visible=.T.
>oExcel.DisplayAlerts = .f.
>
>oExcel.ActiveWorkbook.saveas("c:\book1.xls")
>oExcel.quit
>oExcel=null
>
>IMPORT FROM c:\book1.xls xl8
>BROWSE FONT (RussianFont)
>
>
>Return
>*-------------------------------------------
>Procedure ArrayPasser
>Lparameters lcArrayName
>Return @&lcArrayName    && for VFP7 and above
>
>

>
>
>>Hi
>>
>>I need to set up a database which has mixed Russian addresses (with Russian characters) and US addresses (with US characters) - I am importing the data from a spreadsheet which has both types of addresses on it
>>
>>I mave marked the table as Russian Windows codepage and appended from the Excel file but the Russian addresses import as a line of ?????
>>
>>What am I doing wrong?
>>
>>Colin