Помогите новичку - ошибка в скрипте / HTML, JavaScript, VBScript, CSS

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Помогите новичку - ошибка в скрипте

9 сообщений из 9, страница 1 из 1

Помогите новичку - ошибка в скрипте

#35020579

Aristo

Участник

Сообщения: 28

Рейтинг: 0 / 0

Set obj_excel = CreateObject("Excel.Application")
obj_Excel.Workbooks.Open "C:\Documents and Settings\Nikonov_AV\Мои документы\temp.xls"
obj_excel.ScreenUpdating = 0
obj_Excel.EnableEvents = 0
obj_Excel.Visible = 0
obj_Excel.Cells(1,1).ColumnWidth = 55.57
obj_Excel.Cells(1,2).ColumnWidth = 8.29
obj_Excel.Cells(1,3).ColumnWidth = 72.43
obj_Excel.Cells(1,4).ColumnWidth = 11.57
obj_Excel.Cells(1,5).ColumnWidth = 10.57

set Used_range = obj_Excel.UsedRange
Used_range.Font.Name = "Arial"
Used_range.Font.Size = 8
Used_range.Borders.Linestyle = 1
Used_range.borders.weight = 1

Ошибка тут .
set Used_range = obj_Excel.UsedRange
"Объект не поддерживает это свойство или метод obj_excel.UsedRange

...

Рейтинг:

0 / 0

19.12.2007, 14:52

| Ответить | Цитировать | Написать

Помогите новичку - ошибка в скрипте

#35021078

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Потому что UsedRange относится не к Excel.Application, а к Excel.Worksheet. Впрочем как и Cells. А работают Cells просто потому что берутся по умолчанию с активной книги.

...

Рейтинг:

0 / 0

19.12.2007, 16:43

| Ответить | Цитировать | Написать

Помогите новичку - ошибка в скрипте

#35022594

Aristo

Участник

Сообщения: 28

Рейтинг: 0 / 0

Исправил на
set Used_range = obj_Excel.Workbook.UsedRange
не помогло

...

Рейтинг:

0 / 0

20.12.2007, 11:06

| Ответить | Цитировать | Написать

Помогите новичку - ошибка в скрипте

#35022626

Aristo

Участник

Сообщения: 28

Рейтинг: 0 / 0

Тьфу, конечно же опечатка
set Used_range =obj_Excel .WorkSheet.UsedRange

...

Рейтинг:

0 / 0

20.12.2007, 11:22

| Ответить | Цитировать | Написать

Помогите новичку - ошибка в скрипте

#35022881

Aristo

Участник

Сообщения: 28

Рейтинг: 0 / 0

Спасибо, разобрался

...

Рейтинг:

0 / 0

20.12.2007, 12:29

| Ответить | Цитировать | Написать

Помогите новичку - ошибка в скрипте

#35023214

Antonariy

Участник

Откуда: ☭

Сообщения: 80 221

Рейтинг: 0 / 0

Это тебе только кажется. Правильно так:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Set obj_excel = CreateObject("Excel.Application")
Set obj_WorkBook=obj_Excel.Workbooks.Open("C:\Documents and Settings\Nikonov_AV\Мои документы\temp.xls")
obj_excel.ScreenUpdating =  0 
obj_Excel.EnableEvents =  0 
obj_Excel.Visible =  0 
obj_WorkBook.Sheets( 1 ).Cells( 1 , 1 ).ColumnWidth =  55 . 57 
obj_WorkBook.Sheets( 1 ).Cells( 1 , 2 ).ColumnWidth =  8 . 29 
obj_WorkBook.Sheets( 1 ).Cells( 1 , 3 ).ColumnWidth =  72 . 43 
obj_WorkBook.Sheets( 1 ).Cells( 1 , 4 ).ColumnWidth =  11 . 57 
obj_WorkBook.Sheets( 1 ).Cells( 1 , 5 ).ColumnWidth =  10 . 57 
set Used_range = obj_WorkBook.Sheets( 1 ).UsedRange

...

Рейтинг:

0 / 0

20.12.2007, 13:47

| Ответить | Цитировать | Написать

Помогите новичку - ошибка в скрипте

#35023228

Aristo

Участник

Сообщения: 28

Рейтинг: 0 / 0

Спасибо :)

...

Рейтинг:

0 / 0

20.12.2007, 13:51

| Ответить | Цитировать | Написать

Помогите новичку - ошибка в скрипте

#35023393

Aristo

Участник

Сообщения: 28

Рейтинг: 0 / 0

Только маленький еще вопрос
obj_Excel.Workbooks(1).SaveAS "C:\Documents and Settings\Nikonov_AV\Мои документы\temp1.xls"

Дает запрос о подтверждении перезаписи файла. Как убрать его ?

...

Рейтинг:

0 / 0

20.12.2007, 14:26

| Ответить | Цитировать | Написать

Помогите новичку - ошибка в скрипте

#35040560

Ex_Soft

Участник

Сообщения: 7 930

Рейтинг: 0 / 0

Aristo
Дает запрос о подтверждении перезаписи файла. Как убрать его ?

Код: plaintext

MSExcel.DisplayAlerts=false;

_________________
"Helo, word!" - 17 errors 56 warnings
Posted via ActualForum NNTP Server 1.4

...

Рейтинг:

0 / 0

28.12.2007, 16:30

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Помогите новичку - ошибка в скрипте

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=22&msg=35023393&tid=1457138]:	0ms
get settings:	12ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	70ms
get topic data:	11ms
get forum data:	3ms
get page messages:	41ms
get tp. blocked users:	1ms
others:	238ms

total:	399ms