• На форуме с 9 июня 2008г.
  • Сообщений: 47
  • Спасибо: 0

Тема: добавление новой строки в еxеле

какое выбрать решение задачи когда нужно получить номер новой строки при добавление её в екселе в проге написаной на VB6??
Мошт быть таймер, но не хочеться или что имеется лучше??

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: добавление новой строки в еxеле

Возьми за основу а то я писал по памяти
без Студии
Это для VB.Net но идея думаю ясна 

public function GetLastCell (byval strRange as string)as integer
dim defl as Type = System.Reflection.Type.Missing ' или просто Type.Missing если есть ссылка на библ
            dim rng as Excel.Range  = Ctype (objWorkSheet.get_Range(CellRange, defl), Excel.Range) 
            dim lastcell as Excel.Range  = Ctype (range.SpecialCells(Excel.XlCellType.xlCellTypeLastCell,defl), Excel.Range) 
            return lastCell.Row
end function

Вызов типа:

dim i as integer = GetLastCell("A1:C1000")

~'J'~

  • fixo
  • fixo
  • Активный участник
  • Откуда: СПб
  • На форуме с 7 февраля 2009г.
  • Сообщений: 869
  • Спасибо: 41

Re: добавление новой строки в еxеле

Соврамши малость...
Измени

System.Reflection.Type.Missing

на

System.Reflection.Type.Missing.Value

~'J'~