ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / При открытии книги Excel очищать все ячейки
17 сообщений из 17, страница 1 из 1
При открытии книги Excel очищать все ячейки
    #36239230
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Здравствуйте! При нажатии кнопки в Access открывается определенная книга Excel. На кнопке такой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Кнопка0_Click()
Dim XL As Object
Dim XLS As Object
Set XL = CreateObject("Excel.Application")
XL.Visible = True
Set XLS = XL.Workbooks.Open("I:\History.xls")
End Sub
Подскажите, пожалуйста, как программно очистить все данные с определенного листа?
...
Рейтинг: 0 / 0
08.10.2009, 11:33
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36239314
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Inkeria
> Подскажите, пожалуйста, как программно очистить все данные с определенного листа?

Лихко
1 - Включаем запись макроса, кликаем по серому квадратику в левом верхнем углу, между заголовком столбца А и заголовком
строки 1(выделяется все ячейки листа) и нажимает клавишу Delete.
2 - Останавливаем запись макроса и смотрим что получилось, после этого оптимизируем код и добавляем получившееся
заклинание очистки в Ваш код:
Код: plaintext
1.
2.
3.
...
Set XLS = XL.Workbooks.Open("I:\History.xls")
XLS.Sheets("Имя листа для очистки :))) ").Сells.ClearContents
End Sub
3 - Возвращаемся к распитию утренней чашечки кофе/чая(по вкусу)

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.10.2009, 11:57
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36239411
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Заклинание добавлено, чай выпит, а данные не очистились. Плюс к этому появилась ошибка в аксе "Object doesn't support this property or method" :)
...
Рейтинг: 0 / 0
08.10.2009, 12:25
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36239568
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Inkeria
> Заклинание добавлено, чай выпит, а данные не очистились.

Странно, факир, вроде ещё трезв.

> Плюс к этому появилась ошибка в аксе "Object doesn't support this property or method" :)

На какой строчке ругается? У тебя точно микрософт ексель?
Хм, глупый вопрос, точно ексель.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.10.2009, 13:12
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36239597
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Игорь, может я че-то не то делаю? Я так понимаю, что фактически тот макрос, который я делала в экселе, никакой роли не играет. Т.о. мне просто нужно всавить строчку
Код: plaintext
1.
XLS.Sheets("Имя листа для очистки :))) ").Сells.ClearContents
в код?
Экселт точно микрософт))))
...
Рейтинг: 0 / 0
08.10.2009, 13:21
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36239790
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Inkeria
> Игорь, может я че-то не то делаю? Я так понимаю, что фактически тот макрос, который я делала в экселе, никакой
> роли не играет.

Тот макрос делает тоже что и эта строка и он нужен просто для показа того как самой находить ответы на простейшие
вопросы

> Т.о. мне просто нужно всавить строчку
>
> XLS.Sheets("Имя листа для очистки ").Сells.ClearContentsв код?

А у меня возник такой вопрос, а ты имя своего листа подставляешь вместо "Имя листа для очистки "
или так и скопировала?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.10.2009, 14:21
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36239839
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Игорь Горбоносили так и скопировала?Ага, эксель не обрабатывает смайлики))

Jah loves you.
...
Рейтинг: 0 / 0
08.10.2009, 14:38
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36239841
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Игорь Горбонос
А у меня возник такой вопрос, а ты имя своего листа подставляешь вместо "Имя листа для очистки " или так и скопировала?


Просто нереально догадаться, что там должно быть имя моего листа)))))) Шучу. Там именно имя моего листа.

Может какой то другой способ придумать? Мне нужно, чтобы этот лист открывался пустой, т.е юзер не учавствовал в процессе удаления. Может сдеалть не очистку листа, а удаление. А потом вставку листа с именем удаленного. Пробовала погуглить, че-то туда приклепать, но не выходит. Если не тяжело, подскажи, плиз, как быть?
...
Рейтинг: 0 / 0
08.10.2009, 14:39
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36239891
astatsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
astatsa
Гость
интересно, а может открыть новую книгу?
...
Рейтинг: 0 / 0
08.10.2009, 15:02
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36239905
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Inkeria
> Просто нереально догадаться, что там должно быть имя моего листа)))))) Шучу. Там именно имя моего листа.

Понятно

> Может какой то другой способ придумать? Мне нужно, чтобы этот лист открывался пустой, т.е юзер не учавствовал в
> процессе удаления. Может сдеалть не очистку листа, а удаление. А потом вставку листа с именем удаленного. Пробовала
> погуглить, че-то туда приклепать, но не выходит. Если не тяжело, подскажи, плиз, как быть?

Да можно и удалять/добавлять
Код: plaintext
1.
2.
3.
XLS.Sheets("Имя листа").Delete
With XLS.Sheets.Add
    .Name = "Имя листа"
End With
Только не понятно, почему не даботает очистка
Ну попробуй сделать как в записанном макросе
Код: plaintext
1.
2.
3.
Dim sh As Worksheet, r As Range
Set sh = Sheets("Имя листа")
Set r = sh.Cells
r.ClearContents
и скажи на каком месте ошибка

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.10.2009, 15:04
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36239978
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Код: plaintext
1.
2.
3.
4.
Dim sh As Worksheet, r As Range
Set sh = Sheets("Имя листа")
Set r = sh.Cells
r.ClearContents

При компиляции этого кода в VB, выдает ошибку "User - defined type not defined" и выделяет "sh As Worksheet".

А с добавлением и удалением получилось! :)
Только как сделать, чтобы когда книга открывалась, лист удалялся по умолчанию, без вопроса екселя - "удалить или нет"?
...
Рейтинг: 0 / 0
08.10.2009, 15:26
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36240018
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Inkeria
> При компиляции этого кода в VB, выдает ошибку "User - defined type not defined" и выделяет "sh As Worksheet".

Я забыл, что у тебя акцесс, замени Worksheet и Range на Object

>
> А с добавлением и удалением получилось! :)
> Только как сделать, чтобы когда книга открывалась, лист удалялся по умолчанию, без вопроса екселя - "удалить или
> нет"?

Есть такое свойство DisplayAlerts, как думаешь, что оно делает

P.S. Не забудь обратно выствлять такие свойства

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.10.2009, 15:34
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36240081
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Игорь, терь в варианте про очистку ругается на "Sheet", а в варианте про добавление/удаление я уже пробовала поставить DisplayAlerts = False (после или перед "XLS.Sheets("Spisok").Delete"), но все равно ексель справшивал удалять или нет.
...
Рейтинг: 0 / 0
08.10.2009, 15:51
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36240105
astatsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
astatsa
Гость
XLS.DisplayAlerts = false
XLS.Sheets("Имя листа").Delete
XLS.DisplayAlerts = true
With XLS.Sheets.Add
.Name = "Имя листа"
End With
...
Рейтинг: 0 / 0
08.10.2009, 15:59
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36240127
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Inkeria
> Игорь, терь в варианте про очистку ругается на "Sheet", а в варианте про добавление/удаление я уже пробовала
> поставить DisplayAlerts = False (после или перед "XLS.Sheets("Spisok").Delete"), но все равно ексель справшивал
> удалять или нет.

Сори, не смотря на то что в самом екселе давно не пишу, а больше управляю извне, регулярно забываю переключится на
"взгляд снаружи"
код должен быть таким:
Код: plaintext
1.
2.
3.
Dim sh As Object, r As Object
Set sh = XLS.Sheets("Имя листа")
Set r = sh.Cells
r.ClearContents
А DisplayAlerts = False нужно ставить ДО удаления и синтаксис должен быть от имени переменной содержащей ссылку на
объект Екселя
т.е. так:
Код: plaintext
1.
2.
3.
4.
5.
XL.DisplayAlerts = False
XLS.Sheets("Имя листа").Delete
With XLS.Sheets.Add
    .Name = "Имя листа"
End With
XL.DisplayAlerts = True


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
08.10.2009, 16:03
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36240177
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
Игорь, большое спасибо за помощь! Все работает наилучшим образом!) Извини, что затерроризировала глупыми вопросами!
...
Рейтинг: 0 / 0
08.10.2009, 16:11
| Ответить | Цитировать | Написать  
При открытии книги Excel очищать все ячейки
    #36240180
Inkeria
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Inkeria
Гость
astatsa, твой вариант не пробовала, но спасибо за внимание!!!
...
Рейтинг: 0 / 0
08.10.2009, 16:12
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / При открытии книги Excel очищать все ячейки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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