Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Помогите новичку - ошибка в скрипте / 9 сообщений из 9, страница 1 из 1
19.12.2007, 14:52
    #35020579
Aristo
Aristo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку - ошибка в скрипте
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, 16:43
    #35021078
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку - ошибка в скрипте
Потому что UsedRange относится не к Excel.Application, а к Excel.Worksheet. Впрочем как и Cells. А работают Cells просто потому что берутся по умолчанию с активной книги.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2007, 11:06
    #35022594
Aristo
Aristo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку - ошибка в скрипте
Исправил на
set Used_range = obj_Excel.Workbook.UsedRange
не помогло
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2007, 11:22
    #35022626
Aristo
Aristo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку - ошибка в скрипте
Тьфу, конечно же опечатка
set Used_range =obj_Excel .WorkSheet.UsedRange
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2007, 12:29
    #35022881
Aristo
Aristo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку - ошибка в скрипте
Спасибо, разобрался
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2007, 13:47
    #35023214
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку - ошибка в скрипте
Это тебе только кажется. Правильно так:
Код: 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:51
    #35023228
Aristo
Aristo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку - ошибка в скрипте
Спасибо :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2007, 14:26
    #35023393
Aristo
Aristo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку - ошибка в скрипте
Только маленький еще вопрос
obj_Excel.Workbooks(1).SaveAS "C:\Documents and Settings\Nikonov_AV\Мои документы\temp1.xls"

Дает запрос о подтверждении перезаписи файла. Как убрать его ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.12.2007, 16:30
    #35040560
Ex_Soft
Ex_Soft
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите новичку - ошибка в скрипте
Aristo
Дает запрос о подтверждении перезаписи файла. Как убрать его ?

Код: plaintext
1.
MSExcel.DisplayAlerts=false;
_________________
"Helo, word!" - 17 errors 56 warnings
Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Помогите новичку - ошибка в скрипте / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 364ms
Закрыть
start [/forum/topic.php?fid=22&mobile=1&tid=1457138]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 230ms
total:  364ms
x
x
Закрыть


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