ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / создание рабочей книги с одним листом
9 сообщений из 9, страница 1 из 1
создание рабочей книги с одним листом
    #35529633
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
Народ, доброго всем времени суток .... столкнулся с такой проблемкой
писал прогу для обработи календарных планов в 03 Excel_е все отлично работало
я создавал книгу и там абсолютно спокойно создавался один лист и делались все расчеты ...
потом скинул шефу, у него стоит xp Excel .... и вылез косяк что когда он создает новую книгу - он автоматически создает 3 листа .... :( и потом все расчеты соответственно ... нафиг...
как это поправить?
новую книгу создаю так:

Код: plaintext
1.
2.
3.
Set wbNew = Application.Workbooks.Add
wbNew.Sheets( 1 ).name = "Итоговые данные"
nameOut = Application.GetSaveAsFilename("Выполнение по месяцам.xls")

заранее спасибо
...
Рейтинг: 0 / 0
09.09.2008, 13:25
| Ответить | Цитировать | Написать  
создание рабочей книги с одним листом
    #35529654
LeonM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LeonM
Участник
Application.SheetsInNewWorkbook =....
...
Рейтинг: 0 / 0
09.09.2008, 13:33
| Ответить | Цитировать | Написать  
создание рабочей книги с одним листом
    #35529658
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
я пробовал это, но опять же возникает проблемма в том что он создает этот один рабочий лист и больше листы не создает ....
т.е. тормозит на команде :
ActiveSheet.Paste
...
Рейтинг: 0 / 0
09.09.2008, 13:35
| Ответить | Цитировать | Написать  
создание рабочей книги с одним листом
    #35529680
Grayscale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grayscale
Участник
Работайте с листами как с коллекцией удаляйте добавляйте проблем не будет...св-во count - количество листов в книге
...
Рейтинг: 0 / 0
09.09.2008, 13:41
| Ответить | Цитировать | Написать  
создание рабочей книги с одним листом
    #35529716
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
просто у меня типа добавляется новый лист и на нем производятся расчеты

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Set wbNew = Application.Workbooks.Add
Application.SheetsInNewWorkbook =  1 
wbNew.Sheets( 1 ).name = "Итоговые данные"
nameOut = Application.GetSaveAsFilename("Выполнение по месяцам.xls")

For i = LBound(arMonth,  1 ) To UBound(arMonth,  1 )
        wbNew.Activate
        Sheets.Add
        Set wsNew = ActiveSheet
        wsNew.name = arMonth(i)
        ActiveSheet.Paste                          ' сначала вылетает здесь
For j =  0  To count -  1 
      Range("A" + CStr(j *  11  +  1 )).Select
      ActiveSheet.Paste                           ' потом тут :( 
 ............
next
next
вылетает и говорит что метод Paste завершен не правильно ...
...
Рейтинг: 0 / 0
09.09.2008, 13:53
| Ответить | Цитировать | Написать  
создание рабочей книги с одним листом
    #35529886
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
я пытался выкрутиться по другому .... типа даже если она содает три листа , я пытаюсь удалить два, сразу после содания ... она не дается .... :(
пишу
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Application.SheetsInNewWorkbook =  1 
Set wbNew = Application.Workbooks.Add
wbNew.Sheets( 1 ).name = "Итоговые данные"
wbNew.WorkSheets("Лист 2").Delete
wbNew.WorkSheets("Лист 3").Delete
nameOut = Application.GetSaveAsFilename("Выполнение по месяцам.xls")

For i = LBound(arMonth,  1 ) To UBound(arMonth,  1 )
        wbNew.Activate
        Sheets.Add
        Set wsNew = ActiveSheet
        wsNew.name = arMonth(i)
        ActiveSheet.Paste                          ' сначала вылетает здесь
For j =  0  To count -  1 
      Range("A" + CStr(j *  11  +  1 )).Select
      ActiveSheet.Paste                           ' потом тут :( 
 ............
next
next
вылетает с out of range
...
Рейтинг: 0 / 0
09.09.2008, 14:47
| Ответить | Цитировать | Написать  
создание рабочей книги с одним листом
    #35530015
Grayscale
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Grayscale
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Application.SheetsInNewWorkbook =  1 
Set wbNew = Application.Workbooks.Add
wbNew.Sheets( 1 ).name = "Итоговые данные"
wbNew.WorkSheets("Лист 2").Delete
wbNew.WorkSheets("Лист 3").Delete
nameOut = Application.GetSaveAsFilename("Выполнение по месяцам.xls")

For i = LBound(arMonth,  1 ) To UBound(arMonth,  1 )
        wbNew.Activate
        Sheets.Add
        Set wsNew = ActiveSheet
        wsNew.name = arMonth(i)
        wsNew.Paste                          ' сначала вылетает здесь
For j =  0  To count -  1 
      Range("A" + CStr(j *  11  +  1 )).Select
      wsNew.Paste                           ' потом тут :( 
 ............
next
next
...
Рейтинг: 0 / 0
09.09.2008, 15:28
| Ответить | Цитировать | Написать  
создание рабочей книги с одним листом
    #35530040
Фотография ДмиДми
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ДмиДми
Участник
Ну зачем же так уж грубо и неженственно менять ёксельные настройки, да ещё и в компе у начальства?!
Это может оказаться очень вредным для здоровья подчинённого.

Гораздо безопаснее почитать-таки (как бы это ни было противно) хэлп на метод Add и, поднапрягшись, сочинить что-нибудь вроде

Set wbNew = Workbooks.Add(xlWBATWorksheet)
...
Рейтинг: 0 / 0
09.09.2008, 15:35
| Ответить | Цитировать | Написать  
создание рабочей книги с одним листом
    #35531030
Nomad87
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Nomad87
Гость
ребят, огромное спасибо :) просто замечательно работает!))))))
...
Рейтинг: 0 / 0
10.09.2008, 07:04
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / создание рабочей книги с одним листом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35531030&tid=2161871]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 80ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 234ms
total:  411ms
созд. / загр.: 411ms
x
x
Закрыть


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