Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Простой скрипт не везде работает! / 6 сообщений из 6, страница 1 из 1
21.03.2006, 17:08:59
    #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:29:12
    #33615097
talgat
talgat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простой скрипт не везде работает!
Переопределение именованной области
ActiveWorkbook.Names("выделенное").RefersTo = "=Лист1!$A$1:$F$10"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2006, 17:50:55
    #33615192
Михаил
Михаил
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простой скрипт не везде работает!
Попробовал - убивает область! (зараза...)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.03.2006, 23:15:08
    #33615742
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Простой скрипт не везде работает!
По поводу порядкового номера.

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

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

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

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

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

Cells.SpecialCells(xlLastCell).Row

Вчера кто то спрашивал и кто то отвечал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Простой скрипт не везде работает! / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 633ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185079]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 330ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 213ms
total:  633ms
x
x
Закрыть


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