VBNet - Форум - ПОМОГИТЕ ЛЮДИ ДОБРЫЕ СПРАВИТЬСЯ с EXEL, !!!!!!!!!

Вопрос: ПОМОГИТЕ ЛЮДИ ДОБРЫЕ СПРАВИТЬСЯ с EXEL, !!!!!!!!! Добавлено: 08.08.03 13:45

Автор вопроса: ORION

Мне надо чтобы в таблице после её заполнения в EXEL 2000 автоматически убирались те строки, в которых в последнем столбце стоит ноль. Как это сделать?

Заранее всем спасибо. Пишите на мыло: krison@ekrantelecom.spb.ru

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

.:: St!X ::.

ICQ: 339888425

Вопросов: 13
Ответов: 51

Web-сайт: www.ks-brand.ru
Профиль | | #1

Добавлено: 08.08.03 14:43

Попробуй включить запись макроса, удали строку - получишь код для удаления на VBA, слегка его подкорректируй (в частности добавь логическое условие if <последний столбец> = 0 then del). Вуаля! Дело в шляпе!

Ответить

Номер ответа: 2
Автор ответа:

ORION

Вопросов: 1
Ответов: 1

Профиль | | #2

Добавлено: 11.08.03 13:35

ПОМОГИТЕ ПОЖАЛУЙСТА! НУЖЕН МАКРОС ДЛЯ EXEL .

Нужен текст макроса для EXEL2000 , который бы после заполнения таблицы автоматически убирались те строки, в которых в последнем столбце стоит ноль.

Заранее всем спасибо. Пишите krison@ekrantelecom.spb.ru

Ответить

Номер ответа: 3
Автор ответа:

Malyav

ICQ: 8440085

Вопросов: 15
Ответов: 117

Web-сайт: malyav.narod.ru
Профиль | | #3

Добавлено: 13.08.03 08:46

Не нужно макросов.

Menu Project/Reference
добавляешь екселовский Object Library
далее

Dim Exl As Excel.Application
Set Exl = New Excel.Application
Exl.Visible = True
Exl.Workbooks.Open App.Path & "\" & "Sample.xls"
А там уже существует масса объектоа. в том числе Table
Делаешь с ними все что хочешь

Мне приходилось, например
Exl.ActiveWorkbook.Sheets("Sheet1").Activate
Exl.ActiveSheet.Paste Destination:=Exl.ActiveSheet.Range("B" & iList1)
Exl.ActiveSheet.Range(Chr(j) & iList1).Value = sTemp

и т.д. Удачи

Ответить

Страница: 1 |