Братцы, выручайте дурака!!!!!
открываю текстовый файл следующим кодом из Excel:

Private Sub aaa()
nnn = Application.GetOpenFilename
If nnn = False Then
End
End If

Open nnn For Input As #1
n = o
Do While Not EOF(1)
Line Input #1, s$
n = n + 1
Cells(n, 1) = s
Loop

Close
End Sub

И всё бы хорошо, но со шрифтом TimesNewRoman там каракули! Если изменить на Terminal, то там - нормальный текст. И при импорте в Excel он в строки забивает каракули, а не русские буквы (точнее Украинские)!
Как изменить шрифт программно?

Зацените этот файл (ББ КредоБанка)

>OemToChar к примеру.

а что это? точнее как кодом?

>>И второй вопрос, вам безпека по шее не намылит за такие откровенности в виде файлов отчетности?

Ну она, вообще-то в открытом доступе!)) Например, балансы всех банков РФ (около 2000) можно найти здесь: http://cbr.ru

f ,fбансы Белорусских банков - тут: http://ncb.ua