ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удаление строки в Екселе из Аксесса.
17 сообщений из 17, страница 1 из 1
Удаление строки в Екселе из Аксесса.
    #32624614
tim2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tim2
Участник
Подскажите синтаксис процедуры, которая должна из Аксесса пробежать по сформированному листу Екселя, найти пустые строки(не смог найти откуда они берутся!) и удалить подобные. Признак "пустоты" - отсутствие значения в .cells(1,1).
...
Рейтинг: 0 / 0
28.07.2004, 10:46:54
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32624631
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shark
Участник
Универсальное решение проблем Excel- создание макросов. Удали строчку ручками, а потом посмотри, какой получится бэйсик.
...
Рейтинг: 0 / 0
28.07.2004, 10:52:30
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32624641
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
Точно. Только это довольно долго (бегать по ячейкам).
...
Рейтинг: 0 / 0
28.07.2004, 10:56:30
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32624848
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
вместо цикла по ячейкам
можно воспользоваться автофильтром Excel
по пустым значениям
и затем удалить фильтрованное

как получить код - правильно подсказали:
открываем Excel
стартуем запись макроса
делаем что надо
останавливаем и смотрим на код
...
Рейтинг: 0 / 0
28.07.2004, 12:13:47
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32624858
Фотография Visitor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visitor
Участник
найти откуда берутся пустые строчки и разобраться с задачей по-взрослому
...
Рейтинг: 0 / 0
28.07.2004, 12:18:05
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32624882
tim2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tim2
Участник
"По взрослому" вчера полдня разбирался - так и не понял. Там суть такая: запрос на объединение включает в себя 4 запроса. На базе запроса на объединение строится перекрестный запрос, который экспортируется в Ексель.
Пустые строки появляются только на последнем этапе - ни один из "составляющих" запросов пустых строк не возвращает.
...
Рейтинг: 0 / 0
28.07.2004, 12:27:34
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32624965
tim2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tim2
Участник
С автофильтром не подходит - придется именно пробежать по строкам листа и удалить "неправильные" пустые. Там есть и "правильные" пустые строки - границы между разделами отчета....
...
Рейтинг: 0 / 0
28.07.2004, 12:50:55
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32625196
tim2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tim2
Участник
Так, что-ли:
Код: plaintext
1.
2.
3.
4.
 For i = Nach To Kon
If .cells(i,  1 ) = "" Then 
удаление строки
End If
Next i
а вот что надо написать в команде удаления строки?
...
Рейтинг: 0 / 0
28.07.2004, 13:54:25
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32625207
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Set myOlApp = New Excel.Application
Set MyWo = myOlApp.Workbooks.Open(c:\test.xls)
Set mysheet = MyWo.Worksheets("svod")
...............................
mysheet.Rows("1:1").Select
    myolapp.Selection.Delete Shift:=xlUp
...
Рейтинг: 0 / 0
28.07.2004, 13:58:04
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32625301
tim2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tim2
Участник
в строке:
Код: plaintext
mysheet.Rows("1:1").Select
как правильно писать если аргументы - переменная?
Пробую:
Код: plaintext
mysheet.Rows(" & i & ":" & i & ").Select
Ругается. зараза!
...
Рейтинг: 0 / 0
28.07.2004, 14:21:39
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32625322
tim2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tim2
Участник
Сотворил:
Код: plaintext
1.
.rows(i).Select
xlsApp.Selection.Delete Shift:=- 4162
первая строка кода выделяет нужную строку Екселя, а вот вторая не делает ничего! Почему?
...
Рейтинг: 0 / 0
28.07.2004, 14:26:41
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32625332
Фотография Unicco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unicco
Участник
tim2Пробую:
Код: plaintext
mysheet.Rows(" & i & ":" & i & ").Select
Ругается. зараза!

Конечно! Кавычков-то ему мало :)
mysheet.Rows("""" & i & ":" & i & """").Select
...
Рейтинг: 0 / 0
28.07.2004, 14:29:35
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32625346
Фотография Unicco
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Unicco
Участник
tim2Сотворил:
Код: plaintext
1.
.rows(i).Select
xlsApp.Selection.Delete Shift:=- 4162
первая строка кода выделяет нужную строку Екселя, а вот вторая не делает ничего! Почему?

А что есть -4162?
Код: plaintext
xlsApp.Selection.Delete Shift:=xlUp
...
Рейтинг: 0 / 0
28.07.2004, 14:34:08
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32625412
Proga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Proga
Участник
Хватит тупить
Код: plaintext
1.
mysheet.Rows(i & ":" & i).Select
...
Рейтинг: 0 / 0
28.07.2004, 14:50:28
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32648778
Rodion Doroshkevich
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rodion Doroshkevich
Гость
А почему на такой код ругается:
====
Dim exl, wb, ws
Dim Excel_Filename As String

Set exl = CreateObject("Excel.Application")
Set wb = exl.Workbooks.Open(Excel_Filename)
wb.Sheets("Лист1").Rows("2:8").Select
exl.Delete Shift:=xlUp ---->>> Здесь возникает ошибка!!!
exl.ActiveWorkbook.Save
exl.ActiveWindow.Close
Set exl = Nothing
===
Сие все сразу сделано в Excel-е записью макроса, а потом перенесено в Access, и по всей видимости несовсем корректно!
Появляется ошибка - "Object doesn't support this property or method"
Пользуюсь напрямую "Excel.Application" что бы referens-ы не втыкать, предполагается использовать прогу на машинах, к которым я доступа не имею и настроить их будет некому!
Помогите, кто может!!!
...
Рейтинг: 0 / 0
13.08.2004, 14:11:01
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32649255
Фотография Alexander G
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander G
Участник
Если в референсах не подключена екселовская библиотека, откуда акцесс узнает, что такое xlUp? Тогда нужно ставить числовое значение этой константы.
...
Рейтинг: 0 / 0
13.08.2004, 17:13:59
| Ответить | Цитировать | Написать  
Удаление строки в Екселе из Аксесса.
    #32649332
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
Rodion DoroshkevichА почему на такой код ругается:
====
Dim exl, wb, ws
Dim Excel_Filename As String

Set exl = CreateObject("Excel.Application")
Set wb = exl.Workbooks.Open(Excel_Filename)
wb.Sheets("Лист1").Rows("2:8").Select
exl.Delete Shift:=xlUp ---->>> Здесь возникает ошибка!!!
exl.ActiveWorkbook.Save
exl.ActiveWindow.Close
Set exl = Nothing
===
...
Помогите, кто может!!!


1) см Alexandr G
2) Delete нельзя применить к exl, но можно к exl.Selection, например, .
...
Рейтинг: 0 / 0
13.08.2004, 18:00:08
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Удаление строки в Екселе из Аксесса.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32624882&tid=1672481]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 26ms
get topic data:
 5ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 191ms
total:  275ms
созд. / загр.: 275ms
x
x
Закрыть


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