Страницы: 1
RSS
Кодировка
 
Подскажите как можно изменить кодировку в excel 2010.  
Выгружаю данные из программы РЖД в формате excel 2003. При открытии выводит непонятно что.
 
Забыл вложить файл с примером
 
а откуда грузите?
 
попробуйте решение по ссылке http://www.planetaexcel.ru/forum.php?thread_id=9876 <BR>А грузят наверное из SAP-? Хотя какая разница.
 
Аналогичная проблема была здесь: http://www.planetaexcel.ru/forum.php?thread_id=8275  
 
Немного подправил тот код и добавил процедуру EvilToRus для перекодировки всех листов книги.  
 
Const RusChars = "ЙЦУКЕНГШЩЗХФЫВАПРОЛДЖЭЯЧСМИТБЮЁ№"  
 
Function Rus(ByVal s As String)  
 If InStr(1, RusChars, Mid$(Trim$(s), 1, 1), 1) > 0 Then Rus = s: Exit Function  
 s = StrConv(s, vbUnicode)  
 For i = 1 To Len(s) Step 2  
   Rus = Rus & Mid$(s, i, 1)  
 Next  
End Function  
 
' Тема: http://www.planetaexcel.ru/forum.php?thread_id=21716  
Sub EvilToRus()  
 Dim Sh As Worksheet, a, v, r&, c&, rs&, cs&  
 For Each Sh In ActiveWorkbook.Worksheets  
   With Sh.UsedRange  
     a = .Value  
     If IsArray(a) Then  
       rs = UBound(a, 1)  
       cs = UBound(a, 2)  
       For r = 1 To rs  
         For c = 1 To cs  
           v = a(r, c)  
           If VarType(v) = vbString Then a(r, c) = Rus(v)  
         Next  
       Next  
       .Value = a  
     End If  
   End With  
 Next  
End Sub
Страницы: 1
Читают тему (гостей: 1)
Наверх