Удалить строку в Excel через код / WinForms, .Net Framework

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Удалить строку в Excel через код

7 сообщений из 7, страница 1 из 1

Удалить строку в Excel через код

#39307721

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

Участник

Откуда: London

Сообщения: 6 513

Рейтинг: 0 / 0

Да полно ответов в интернете

...

Рейтинг:

0 / 0

12.09.2016, 16:10

| Ответить | Цитировать | Написать

Удалить строку в Excel через код

#39307897

IFK

Гость

Axeleron,

Спасибо, но мне для VB.Net, а не C#.

...

Рейтинг:

0 / 0

12.09.2016, 18:19

| Ответить | Цитировать | Написать

Удалить строку в Excel через код

#39307997

Roman Mejtes

Участник

Откуда: г. Пермь

Сообщения: 4 264

Рейтинг: 0 / 0

IFKAxeleron,

Спасибо, но мне для VB.Net, а не C#.
C# от VB.NET практически не отличается
есть даже конверторы онлайн, гуглите и найдёте

...

Рейтинг:

0 / 0

12.09.2016, 20:37

| Ответить | Цитировать | Написать

Удалить строку в Excel через код

#39308268

ЕвгенийВ

Участник

Откуда: Москва

Сообщения: 3 430

Рейтинг: 0 / 0

IFK,
Включи запись макроса, удали вручную, а потом посмотри код.

...

Рейтинг:

0 / 0

13.09.2016, 11:42

| Ответить | Цитировать | Написать

Удалить строку в Excel через код

#39308336

IFK

Гость

Roman Mejtes,

Бессодержательные советы, типа ищи в инете, мне не нужны. Спасибо, конечно, но до этого я как-то я и сам додумался.
Спасибо, что уделили время.

...

Рейтинг:

0 / 0

13.09.2016, 12:36

| Ответить | Цитировать | Написать

Удалить строку в Excel через код

#39308342

IFK

Гость

ЕвгенийВ,

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

Код: vbnet

xsh.Rows(rec_num + 9).Delete()

где rec_num - номер текущей записи в Экселе, а 9 просто офсет.

...

Рейтинг:

0 / 0

13.09.2016, 12:39

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / Удалить строку в Excel через код

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=20&msg=39307997&tid=1400356]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	46ms
get topic data:	11ms
get forum data:	3ms
get page messages:	46ms
get tp. blocked users:	2ms
others:	16ms

total:	157ms