ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Простой скрипт не везде работает!
6 сообщений из 6, страница 1 из 1
Простой скрипт не везде работает!
    #33615019
Михаил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил
Участник
Привет,

Написал на VB Script код для задания именованой области (named range).
На одной машине с Office2003 все работает, а на другой с Office2000 область не создается, а если с таким именем уже была - то удаляется!
(файл bt.xls один и тот же в обоих случаях!)

Код: plaintext
1.
2.
3.
4.
5.
6.
Set xls = CreateObject("Excel.Application")
	xls.visible = false
	xls.Workbooks.Open "d:\bt.xls"
	Set book = xls.Workbooks( 1 )
             book.Names.Add "price_range",  "=tabelle1!R11C3:R15C6"
	book.close true
	xls.quit

Может кто сталкивался?

Не подскажете также как:
отвязаться от имени листа (tabelle1) и привязаться к его порядковому номеру

заставть Ексель не выдавать сообщений и в частности:

не спрашивать в каком формате сохранять (файл надо оставить в формате 5.0)

Заранее спасибо!
...
Рейтинг: 0 / 0
21.03.2006, 17:08:59
| Ответить | Цитировать | Написать  
Простой скрипт не везде работает!
    #33615097
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Переопределение именованной области
ActiveWorkbook.Names("выделенное").RefersTo = "=Лист1!$A$1:$F$10"
...
Рейтинг: 0 / 0
21.03.2006, 17:29:12
| Ответить | Цитировать | Написать  
Простой скрипт не везде работает!
    #33615192
Михаил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил
Участник
Попробовал - убивает область! (зараза...)
...
Рейтинг: 0 / 0
21.03.2006, 17:50:55
| Ответить | Цитировать | Написать  
Простой скрипт не везде работает!
    #33615742
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
По поводу порядкового номера.

Код: plaintext
    xls.Workbooks( 1 ).Worksheets( 1 ...n)

По поводу формата. Указывай принудительно при сохранении.

Код: plaintext
1.
    ActiveWorkbook.SaveAs Filename:="D:\1\Книга1.xls", _
      FileFormat:= 39
...
Рейтинг: 0 / 0
21.03.2006, 23:15:08
| Ответить | Цитировать | Написать  
Простой скрипт не везде работает!
    #33617491
Михаил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Михаил
Участник
Спасибо! Все сделал!

А как можно выразить мысль если я хочу выделить range по самую нижнюю заполненную ячейку?
А то я беру с запасом и в результате зачитываю базу на несколько тысяч ячеек больше (пустых).
...
Рейтинг: 0 / 0
22.03.2006, 14:51:49
| Ответить | Цитировать | Написать  
Простой скрипт не везде работает!
    #33618665
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
МихаилСпасибо! Все сделал!

А как можно выразить мысль если я хочу выделить range по самую нижнюю заполненную ячейку?
А то я беру с запасом и в результате зачитываю базу на несколько тысяч ячеек больше (пустых).
melamoryпоследнюю строку можно найти так

Cells.SpecialCells(xlLastCell).Row

Вчера кто то спрашивал и кто то отвечал
...
Рейтинг: 0 / 0
22.03.2006, 22:37:14
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Простой скрипт не везде работает!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33618665&tid=2185079]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 85ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 241ms
total:  439ms
созд. / загр.: 439ms
x
x
Закрыть


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