Гость
Войти | Профиль | Очистить
Действия ...
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Удалить строку в Excel через код / 7 сообщений из 7, страница 1 из 1
12.09.2016, 15:55
    #39307721
IFK
IFK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить строку в Excel через код
Уважаемый форум,

Не могу победить, прошу помощь зала: в открытом 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, 16:10
    #39307747
Axeleron
Axeleron
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить строку в Excel через код
Да полно ответов в интернете
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2016, 18:19
    #39307897
IFK
IFK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Удалить строку в Excel через код
Axeleron,

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

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

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

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

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


где rec_num - номер текущей записи в Экселе, а 9 просто офсет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Удалить строку в Excel через код / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 143ms
Закрыть
start [/forum/topic.php?fid=20&mobile=1&tid=1400356]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 47ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 13ms
total:  143ms
x
x
Закрыть


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