| Вопрос: Помогите переместить лист в файле Excel | Добавлено: 29.04.05 17:51 |
Автор вопроса:  nova_agenta
|
| Подскажите как на VBScript переместить заданный лист в Excel'е ну например в начало? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 29.04.05 18:16 |
|
Точно так же, как в VB и в VBA.
xl.workbooks(1).worksheets(5).move xl.workbooks(1).worksheets(1)
|
||
|
Номер ответа: 2 Автор ответа: nova_agenta Вопросов: 1 Ответов: 2 |
Профиль | | #2 | Добавлено: 29.04.05 19:04 |
|
Вот посмотри
Dim WorkPath Set xlObj = CreateObject("Excel.application" 
xlObj.Visible=true WorkPath = "c:\temp\DriveReport.xls" xlObj.Workbooks.Open(WorkPath) xlObj.workbooks(WorkPath).worksheets(1).move xlObj. workbooks(WorkPath).worksheets(2) При выполнении WSH выдает ошибку Error: Subscript out of range Code:800A0009 В файле 3 страницы - так что тут ошибки быть не может. В чем же тогда дело? |
||
|
Номер ответа: 3 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #3 | Добавлено: 30.04.05 06:21 |
|
Индекс вне диапазона не в смысле листов, а в смысле книг. Книга получает имя не по полному пути, а по имени файла. Поэтому книги "c:\temp\DriveReport.xls" нет.
Кроме того, совершенно бессмысленно пытаться поставить первый лист перед вторым, потому что он уже там 
|
||
|
Номер ответа: 4 Автор ответа: nova_agentaВопросов: 1 Ответов: 2 |
Профиль | | #4 | Добавлено: 30.04.05 12:46 |
|
Да дело было именно в имени файла
Спасибо огромное! Тема закрыта |
||
Страница: 1 |