Использование в коде название листов и имен файлов на других языках

@leskris · Регистрация: 12.11.2015

Студворк — интернет-сервис помощи студентам

Добрый день! есть большая проблема. Макрос не хочет открывать файлы имя которых написано на китайском.
Аналогично матерится при обращении к листу с китайскими иероглифами. Эта проблема как-то решается??

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub List_files()
 
    Application.ScreenUpdating = 0
    With ThisWorkbook
        '.Sheets(1).Range("A7:B" & Cells(Cells.Rows.Count, 1).Row).ClearContents
      MyPath = Range("c1").Value
         Mask = "*.xls*"
       myname = Dir(MyPath & Mask, vbDirectory)
        i = 6
      
            
    
        Do While myname <> ""
            If myname <> "." And myname <> ".." And myname <> ThisWorkbook.Name Then
                .Sheets("stat").Cells(i, 1) = myname
               ActiveSheet.Hyperlinks.Add Cells(i, 1), MyPath & myname, ""
                Set wb = Workbooks.Open(Filename:=MyPath & myname)
                
              
               .Sheets("stat").Cells(i, 3) = wb.Sheets("app").Range("b5")
               .Sheets("stat").Cells(i, 4) = wb.Sheets("app").Range("b6")
               .Sheets("stat").Cells(i, 5) = wb.Sheets("app").Range("b7")
              
               
                        
             
                
                wb.Close
                i = i + 1
                
          
            End If
            myname = Dir
        Loop
 
    End With
 
   
    Application.ScreenUpdating = 1
    
End Sub

Если я переименовываю название листа и файла на англ, код работает!! проблема в том что таких файлов очень много и переименовывать их в ручную совсем не вариант.
Есть какие-то может надстройки для мультиязычного програмирования??? я в этом деле новичек, просто упрощаю сбор статистики, извините если не совсем правильно сформулировал.

Добавлено через 54 минуты
При попытки вставки китайских иероглифов в ВБА редактор, вставляет вместо них знаки "???"

@Alex77755 · 23.11.2015, 09:49

Интересно. Не сталкивался в китайским. А что пишет макрорекрдер?

@OLEGOFF · 23.11.2015, 10:39

А в винде может китайский установить?

@Seraf · 23.11.2015, 10:57

почитайте статью, вдруг поможет: http://www.umao.ru/system/maos... fonts.html

@leskris · 23.11.2015, 11:02 **[ТС]**

Пишет знаки вопроса, китайские шрифты установлены, я могу печатать даже в самом екселе, но в редакторе не хочет.. Как вообще в редактор ВБА добавлять новые языки? русский же печатает..

@Alex77755 · 23.11.2015, 11:14

перебрать файлы можно без указания имени книг

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
Dim P, F, S, A, PP, FIL, lr
  Dim Folder As String
  Dim workWb As Workbook
  Dim Wb As Workbook
  Dim sh As Worksheet
  Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
  Set workWb = ActiveWorkbook  'Запоминаем активную книгу
 Folder = ActiveWorkbook.Path
 P = ActiveWorkbook.Path
  'Начинаем читать файлы из папки
   For Each FIL In FSO.GetFolder(P).Files
     If InStr(1, FIL.Name, ".xls", vbTextCompare) > 0 Then
        If InStr(1, FIL.Name, workWb.Name) = 0 Then
            Set Wb = Workbooks.Open(FIL)
 
 
        End If
     End If
   Next FIL
   MsgBox "OK", 64, ""
End Sub

А вот с именем листа пока не знаю. А что? листов будет несколько в каждой книге и они могут быть в разной комбинации? то есть расположены по разному. По индексу обратиться не получится?

Добавлено через 7 минут
Function GetFolderPath здесь не нужна. Случайно зацепил

@OLEGOFF · 23.11.2015, 11:29

А здесь справка от Майкрософт https://support.microsoft.com/en-us/kb/166431
Я так понял,что это проблема ихняя

@leskris · 23.11.2015, 11:54 **[ТС]**

Да с именем листа можно по нумерации, но просто пользователи если поменяют порядок листов, то сбор статистики не будет работать, спасибо попробую ваш код!!

@Hugo121 · 23.11.2015, 12:07

Можно перебрать все листы по индексу и поискать известную уникальную метку.

@Казанский · 23.11.2015, 15:41

leskris, Русская кодировка в Excel

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	23.11.2015, 09:49
	Интересно. Не сталкивался в китайским. А что пишет макрорекрдер? 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	23.11.2015, 10:39
	А в винде может китайский установить? 0

@Seraf 0 / 0 / 0 Регистрация: 23.09.2013 Сообщений: 13
	23.11.2015, 10:57
	почитайте статью, вдруг поможет: http://www.umao.ru/system/maos... fonts.html 0

@leskris 0 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 6
	23.11.2015, 11:02 [ТС]
	Пишет знаки вопроса, китайские шрифты установлены, я могу печатать даже в самом екселе, но в редакторе не хочет.. Как вообще в редактор ВБА добавлять новые языки? русский же печатает.. 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	23.11.2015, 11:29
	А здесь справка от Майкрософт https://support.microsoft.com/en-us/kb/166431 Я так понял,что это проблема ихняя 1

@leskris 0 / 0 / 0 Регистрация: 12.11.2015 Сообщений: 6
	23.11.2015, 11:54 [ТС]
	Да с именем листа можно по нумерации, но просто пользователи если поменяют порядок листов, то сбор статистики не будет работать, спасибо попробую ваш код!! 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	23.11.2015, 12:07
	Можно перебрать все листы по индексу и поискать известную уникальную метку. 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	23.11.2015, 15:41
	leskris, Русская кодировка в Excel 0