ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Удалить строку в Excel через код
7 сообщений из 7, страница 1 из 1
Удалить строку в Excel через код
    #39307721
IFK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IFK
Гость
Уважаемый форум,

Не могу победить, прошу помощь зала: в открытом Excel файле нахожу пустые строки и хочу их удалить - ошибки нет, строки маркируются для удаления правильно, но удаление не происходит:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
                    xbk = xl.Workbooks.Open(path_select_Form12 & "\" & file_to_save)
                    xsh = xbk.Worksheets("F-12")
                    xsh.Activate()

                    ii = 1
                    Do Until IsNothing(CStr(xsh.Range("B9").Offset(ii, 0).Value)) = True Or CStr(xsh.Range("B9").Offset(ii, 0).Value) = ""
                        If (xsh.Range("B9").Offset(ii, 1).Value = "" Or IsNothing(xsh.Range("B9").Offset(ii, 1).Value) = True) And (xsh.Range("B9").Offset(ii, 2).Value = "" Or IsNothing(xsh.Range("B9").Offset(ii, 2).Value) = True) Then
                            xsh.Range("B9").Offset(ii, 13).Interior.Color = RGB(255, 0, 0)
                            xsh.Range("B9").Offset(ii, 13).Value = "Delete"
                            xsh.Range("B9").Offset(ii, 13).EntireRow.Delete()
                        End If
                        ii = ii + 1
                    Loop



Подскажите, пожалуйста, где косяк или куда копать?
Спасибо!
...
Рейтинг: 0 / 0
12.09.2016, 15:55
| Ответить | Цитировать | Написать  
Удалить строку в Excel через код
    #39307747
Фотография Axeleron
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Axeleron
Участник
Да полно ответов в интернете
...
Рейтинг: 0 / 0
12.09.2016, 16:10
| Ответить | Цитировать | Написать  
Удалить строку в Excel через код
    #39307897
IFK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IFK
Гость
Axeleron,

Спасибо, но мне для VB.Net, а не C#.
...
Рейтинг: 0 / 0
12.09.2016, 18:19
| Ответить | Цитировать | Написать  
Удалить строку в Excel через код
    #39307997
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
IFKAxeleron,

Спасибо, но мне для VB.Net, а не C#.
C# от VB.NET практически не отличается
есть даже конверторы онлайн, гуглите и найдёте
...
Рейтинг: 0 / 0
12.09.2016, 20:37
| Ответить | Цитировать | Написать  
Удалить строку в Excel через код
    #39308268
Фотография ЕвгенийВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕвгенийВ
Участник
IFK,
Включи запись макроса, удали вручную, а потом посмотри код.
...
Рейтинг: 0 / 0
13.09.2016, 11:42
| Ответить | Цитировать | Написать  
Удалить строку в Excel через код
    #39308336
IFK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IFK
Гость
Roman Mejtes,

Бессодержательные советы, типа ищи в инете, мне не нужны. Спасибо, конечно, но до этого я как-то я и сам додумался.
Спасибо, что уделили время.
...
Рейтинг: 0 / 0
13.09.2016, 12:36
| Ответить | Цитировать | Написать  
Удалить строку в Excel через код
    #39308342
IFK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IFK
Гость
ЕвгенийВ,

Спасибо, нашел уже:

Код: vbnet
1.
xsh.Rows(rec_num + 9).Delete()


где rec_num - номер текущей записи в Экселе, а 9 просто офсет.
...
Рейтинг: 0 / 0
13.09.2016, 12:39
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Удалить строку в Excel через код
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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