Удаление строк в Excel

[Karlosss]

Всем привет!
Надо лотус скриптом удалить строки на странице excel.То есть при запуске открываем файл excel , затем находим строку по параметру и удаляем ее. Пытаюсь по хелпу делать. Нашел удаление у объекта Range, но заточить под себя не получается
Как этот vba адаптировать под лотус подскажите плз. Только, если можно, с о бъявлением переменных. Заранее благодарен.

Worksheets("Sheet1").Range("A110").Delete Shift:=xlShiftToLeft

 

[nvyush]

Посмотрите значение константы xlShiftToLeft (можно в vba нажать F2 и найти её объявление), замените числовым значением.

Worksheets("Sheet1").Range("A1:D10").Delete(-4159)

 

[alik86]

Удаление строки №1 в VBA:

Rows("1:1").Select
Selection.Delete Shift:=xlUp

Удаление содержимого строки №1 в VBA:

Rows("1:1").Select
Selection.ClearContents

По поводу объявления переменных полазьте по форуму, найдёте.
К примеру тут: https://codeby.net/threads/sortirovka-xls-stolbika-pri-ehksporte.37842/

 

[susinmn]

Dim ws As New NotesUIWorkspace
fs = ws.OpenFileDialog( False , "" , "Файлы Excel|*.xls" ,"" , "" )
If Isarray(fs) Then
filename=fs(0)

Set excelAppObject = CreateObject("Excel.Application")
excelAppObject.visible=True
Call excelAppObject.Workbooks.Open(filename)



excelAppObject.Rows("1:3").Select 'выделяем с 1 по 3 строки
excelAppObject.Selection.Delete Shift=xlUp
End If

 

[Karlosss]

Dim ws As New NotesUIWorkspace
fs = ws.OpenFileDialog( False , "" , "Файлы Excel|*.xls" ,"" , "" )
If Isarray(fs) Then
filename=fs(0)

Set excelAppObject = CreateObject("Excel.Application")
excelAppObject.visible=True
Call excelAppObject.Workbooks.Open(filename)



excelAppObject.Rows("1:3").Select 'выделяем с 1 по 3 стрики
excelAppObject.Selection.Delete Shift=xlUp
End If

Да , все получилось , спасибо за помощь!!

Может еще подскажете хороший help по программированию в excel с примерами, а то встроенный не очень понятен.

 

[alik86]

ИМХО лучший хелп по "программированию в excel":
Сервис -> Макрос -> Начать запись -> <ручками делаем то, что хотим запрограммировать> -> Остановить запись
Сервис -> Макрос -> Макросы -> Изменить -> <изучаем полученный код>

 

[hosm]

sax_ol VBA ему непонятен, написано же выше. Надо тоже, только по-другому)))
Karlosss Запись и корректировка макроса - можно, но хелп VBA вам при этом понадобится, советую все же разобраться с ним.
За литературой по VBA обращаемся в раздел Visual Basic.

 

[lmike]

ИМХО лучший хелп по "программированию в excel":

- гугл, не раз убеждался, находил и редкие конструкции (в т.ч. недокументированные)
родной хэлп настолько убогий, что луча даже и не пробывать юзать

 

[Mr.Maddog]

Есть у меня таблица данных в екселе, один столбец содержит цифровые значения (положительные и отрицательные). Мне нужно удалить строки с отрицательныеми значениями и с нулевыми. нашёл такой макрос : Dim Sht As Worksheet
Dim i, RowEnd As Integer

Set Sht = Application.ActiveWorkbook.ActiveSheet
RowEnd = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeLastCell).Row
i = 4
While i <= RowEnd
If Sht.Cells(i, 3) < 0 Then
Sht.Rows(i ).Delete
Else
i = i + 1
End If
Wend И всё-темный лес-в ехеле включил все макросы,а вот как его запустить или че еще зделать-ума не приложу