Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление пустых строчек из Excel'я [D6, WinXP]

Glivera © (2006-05-28 23:15:00)
Из своего приложения открываю Excel'евский файл (прайс), нахожу количество строк, но файл может содержать и пустые строки. Вопрос заключается в том, как мне удалить эти строки?

Glivera (2006-05-31 00:52:00) [1]
> umbra
Спасибо большое... самое то...
Все работает, все отлично.. ;)

umbra (2006-05-29 13:30:00) [2]
если считать пустой строкой строку, ни в одной ячейке нет значения, то можно использовать что-то вроде

procedure TForm1.Button2Click(Sender: TObject); var mysheet, firstcell : Variant; begin mysheet := FXLApp.Workbooks[1].Worksheets[1]; firstcell := mysheet.Cells[1, 1]; firstcell.Activate; if VarIsEmpty(firstcell.Value) then mySheet.Rows[1].Delete(xlUp); while mySheet.Cells.CurrentRegion.Rows.Count < mySheet.Usedrange.Rows.Count do mySheet.Rows[mySheet.Cells.CurrentRegion.Rows.Count + 1].Delete(xlUp); firstcell := Unassigned; mysheet := Unassigned; end;

_RusLAN (2006-05-29 10:16:00) [3]
Glivera © (28.05.06 23:15)
Сначала надо поределится что такое "пустые строки" и от этого плясать.
Excel считает что строка заполнена, даже если в ней меняли только форматирование.
Сначала надо определить что строка пустая, а потом удалить:
Удаляется типа так (макрос)
Rows("4:5").Select
Selection.Delete Shift:=xlUp

evvcom (2006-05-29 08:27:00) [4]

> заключается в том, как мне удалить эти строки?

А зачем? Если юзер не умеет работать с Excel, пусть получает то, что наработал. Ну а ты его научи, как надо.

DevilDevil (2006-05-29 02:23:00) [5]
1) открываешь нужный файл
2) создаёшь новый лист Excel
3) копируешь заголовок из старого в новый
4) перебираешь все строки старой таблицы, если не пустая, то заносишь в новую
5) закрываешь старый лист, сохраняешь новый под старым именем

Только это приходит в голову... Может у листа есть метод типа Delete, попробуй

sniknik (2006-05-29 00:17:00) [6]
не нравится предложенный вариант с выгрузкой? аргументируйте... по существу.

а то такое чуство, что вариант не понят. и нет гарантий, что другое "поймется"... не хочется "метать бисер" вхолостую.

p.s. в зависимости от способа открытия есть возможность, что пустые строки не совсем пустые... просто неопределенный тип отбрасывается (бывает).

Palladin (2006-05-28 23:54:00) [7]

> Glivera © (28.05.06 23:40) [2]

а что по существу? сохранение в текстовом файле это не по существу?

Glivera (2006-05-28 23:40:00) [8]
а по существу?

Palladin (2006-05-28 23:22:00) [9]
Проще провести экспорт в csv и обработать в текстовом виде.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »