Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Микрософт оффис по немецки, нужна помощь / 19 сообщений из 19, страница 1 из 1
20.11.2012, 20:19
    #38045984
I
I
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Господа германоговорящие в Германии.
Есть проблема с экспортом данных в Excel на немецкоговорящих машинах.
Место где оно падает нашли, пытаемся щас перевести
Код: plsql
1.
objWorkBook.Names.Add Name:=strListName, RefersToR1C1:="=Sheet2!" & "R2C" & lngCol & ":R" & CStr(lngRow + 1) & "C" & lngCol

пытаемся перевести
Код: plsql
1.
objWorkBook.Names.Add Name:=strListName, RefersToR1C1:="=Tabelle2!" & "R2C" & lngCol & ":R" & CStr(lngRow + 1) & "C" & lngCol


А вот как Name в немецком Excelе не знаем, может ещё чего потеряно.
Кто-нибудь может сделать эту комманду так чтобы её немецкий оффис понимал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 21:15
    #38046009
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Iкак Name в немецком Excelе не знаем
VBA во всех локалях - на английском
Не переводят его уже много лет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 22:02
    #38046050
I
I
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
В английском не падает. а в немецком падает.
Ровно на этой строчке падает.
Чему там ещё быть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 22:26
    #38046072
rockclimber
rockclimber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Код: vbnet
1.
Sheets(2).Name

Или как-то так. Вернет строку с именем листа.

P. S. Я уже года 3 на VBA не кодил... Не уверен... Ща жену с компа сгоню, у нее вроде офис стоит...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 22:36
    #38046083
rockclimber
rockclimber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Код: vbnet
1.
2.
    ActiveWorkbook.Names.Add Name:="tttttt", RefersToR1C1:="=Лист1!R1C3"
    ActiveWorkbook.Names.Add Name:="eeeeee", RefersToR1C1:="=" & ActiveSheet.Name & "!R1C2"

У меня обе строчки нормально отработали, на первом листе появилось два именованных диапазона.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.11.2012, 23:00
    #38046101
I
I
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
rockclimber
Код: vbnet
1.
2.
    ActiveWorkbook.Names.Add Name:="tttttt", RefersToR1C1:="=Лист1!R1C3"
    ActiveWorkbook.Names.Add Name:="eeeeee", RefersToR1C1:="=" & ActiveSheet.Name & "!R1C2"

У меня обе строчки нормально отработали, на первом листе появилось два именованных диапазона.


А английский пакет установлен?
Гугел говорит что если стоят оба пакета то проблем-таки быть не должно, а у наших только один стоит.
И это не VBA, это строчка отправляемая из VB.
Если знаешь как имя по немецки - переведи, как там по ехеловски будет, я тут попробую.

Спасибо большое.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.11.2012, 00:40
    #38046221
rockclimber
rockclimber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Irockclimber
Код: vbnet
1.
2.
    ActiveWorkbook.Names.Add Name:="tttttt", RefersToR1C1:="=Лист1!R1C3"
    ActiveWorkbook.Names.Add Name:="eeeeee", RefersToR1C1:="=" & ActiveSheet.Name & "!R1C2"

У меня обе строчки нормально отработали, на первом листе появилось два именованных диапазона.


А английский пакет установлен?
Гугел говорит что если стоят оба пакета то проблем-таки быть не должно, а у наших только один стоит.
И это не VBA, это строчка отправляемая из VB.
Если знаешь как имя по немецки - переведи, как там по ехеловски будет, я тут попробую.

Спасибо большое.В смысле - имя? Вместо ActiveSheet.Name надо написать ActiveSheet.[Name по-немецки] ? Ужас какой, я с таким не сталкивался.
Первое, что приходит в голову при взгляде на строку
Код: vbnet
1.
objWorkBook.Names.Add Name:=strListName, RefersToR1C1:="=Tabelle2!" & "R2C" & lngCol & ":R" & CStr(lngRow + 1) & "C" & lngCol

это то, что в параметр RefersToR1C1 попадает некорректный адрес ячейки. Я бы все-таки начал с того, что написал так:
Код: vbnet
1.
objWorkBook.Names.Add Name:=strListName, RefersToR1C1:="=" & Sheets(2).Name & "!" & "R2C" & lngCol & ":R" & CStr(lngRow + 1) & "C" & lngCol

Пробовали так? Помогает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.01.2013, 20:03
    #38109932
I
I
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Извините за перерыв, не получалось вернуться к проблеме
Пробовали

Код: vbnet
1.
objWorkBook.Names.Add Name:=strListName, RefersToR1C1:="=" & objWorkSheet2.Name & "!" & "R2C" & lngCol & ":R" & CStr(lngRow + 1) & "C" & lngCol

Не помогает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2013, 08:52
    #38110247
Дмит
Дмит
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
второе что приходит на ум - проверить strListName - что там вводится? не совпало имя уже с существующим?

третье - если вставлять параметры по порядку, их не надо именовать
objWorkBook.Names.Add(Name, RefersTo, Visible, MacroType, ShortcutKey, Category, NameLocal, RefersToLocal, CategoryLocal, RefersToR1C1, RefersToR1C1Local)
попробуйте:
objWorkBook.Names.Add strListName, RefersToR1C1:="=Tabelle2!" & "R2C" & lngCol & ":R" & CStr(lngRow + 1) & "C" & lngCol
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2013, 21:56
    #38111491
I
I
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Экспериментальным путём выяснили что в немецком варианте надо использовать не R2C2, a Z2S2. Кто-нибудь сталкивался с этим? Идеи?
Надо чтобы работало и на английских машинах и на немецких (На подходе японские )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2013, 22:20
    #38111503
rockclimber
rockclimber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
IЭкспериментальным путём выяснили что в немецком варианте надо использовать не R2C2, a Z2S2. Кто-нибудь сталкивался с этим? Идеи?
Надо чтобы работало и на английских машинах и на немецких (На подходе японские )Свят-свят-свят!!!
Не, не сталкивался... А уж у японцев наверняка катакана какая-нибудь вылезет, и к гадалке не ходи...

Но! Только сегодня! Только для вас! Сеанс чорной-чорной магии с разоблачением!
Код: vbnet
1.
2.
3.
dim a as string
a = Cells(1, 2).Address ' только я не помню, какая цифра - строка, а какая - столбец
Msgbox a


По идее, на вашей немецкой машине вы должны увидеть окошко, в котором будет написано это их немецкое "Z1S2". И можете написать функцию, которая будет возвращать буквы, используемые на данной машине и собирать из них адреса.
Попробуйте подумать в этом направлении, вдруг получится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2013, 22:23
    #38111505
rockclimber
rockclimber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Комп включать неохота, кажется, там должны быть свойства "Address" и "AddressR1C1" - каждый в своем стиле соответственно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.01.2013, 22:37
    #38111517
I
I
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Спасибо за идеи. Попробую - сообщу результаты.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2013, 08:39
    #38111634
rockclimber
rockclimber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
IИзвините за перерыв, не получалось вернуться к проблеме
Пробовали

Код: vbnet
1.
objWorkBook.Names.Add Name:=strListName, RefersToR1C1:="=" & objWorkSheet2.Name & "!" & "R2C" & lngCol & ":R" & CStr(lngRow + 1) & "C" & lngCol

Не помогаетДобрался до работы, посмотрел...
Вроде, так должно работать:
Код: vbnet
1.
objWorkBook.Names.Add Name:=strListName, RefersTo:="=" & objWorkSheet2.Name & "!" & Range(Cells(2, lngCol), Cells(lngRow + 1, lngCol)).Address

а для перестраховки можно написать
Код: vbnet
1.
2.
objWorkBook.Names.Add Name:=strListName, RefersTo:="=" & objWorkSheet2.Name & "!" _
& objWorkSheet2.Range(objWorkSheet2.Cells(2, lngCol), objWorkSheet2.Cells(lngRow + 1, lngCol)).Address



Еще нашел функцию Application.ConvertFormula. Я уже лет пять на VBA серьезно не писал, забыл все. Всроде там еще были способы интересные.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2013, 18:02
    #38112715
I
I
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Вот за это спасибо огромное,
а то у меня, когда были переведены RefersToR1C1 в RefersTo стало появляться сообщение Defined names or formulas in this workbook may display different values when they are recalculated in an earlier version of Excel.... хотя ничего подобного не произошло.
С меня причитается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2013, 21:46
    #38113006
rockclimber
rockclimber
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
Расскажите потом, что у японцев было. Мне уже интересно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2013, 21:58
    #38113018
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
rockclimberчто у японцев было?
1. Русско-японская война
2. Коалиция с немцами
3. Хиросима

ЗЫ Привет из тропической арктики
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2013, 22:51
    #38113062
I
I
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
rockclimberРасскажите потом, что у японцев было. Мне уже интересно.
Пока ничего.
Выведем в продакшен немцев. Будем тестировать японцев.
Обязательно сообщу о японских результатах.
Когда дадут японскую машину посмотрю что там и тоже расскажу. Пока ничего нету.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.01.2013, 17:52
    #38120146
I
I
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Микрософт оффис по немецки, нужна помощь
rockclimberРасскажите потом, что у японцев было. Мне уже интересно.
Итак, раппортую.
В Японском Excel используется R1C1.
Предложеные вами изменения - замечательно работают.
Огромное спасибо.
У нас ещё будут индусы, китайцы и прочие малайцы, а так-же французы, чехи и даже русские.
Так-что если чего где весёленькое всплывёт - я вам сообщу.
Ещё раз большое спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Микрософт оффис по немецки, нужна помощь / 19 сообщений из 19, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 167ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2175072]:
 0ms
get settings:
 15ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 63ms
get tp. blocked users:
 2ms
others: 15ms
total:  167ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]