В колонке чего? Какой контрол?

Ответить

эээ ... насколько я понимаю это WorkSheet в Экселе

Ответить

Вопрос еще такой

Ни у кого нет кода как из Ворда вызывать Ексель

то есть я знаю что надо делать

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Но потом начинается путанница ...Не совсем ясно как связать xlBook с WorkBook и xlSheet с WorkSheet ....обычно в примерах все заново создают.

Ответить

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

это всё работает только если записи идут без пустых ячеек в середине

Public Sub checkColumn()

Dim i As Integer

Dim n As Integer

n = 1

For i = 1 To 100

If ActiveSheet.Cells(n, 1) = vbNullString Then

ActiveSheet.Cells(n, 2) = "Всего записей: " & (n - 1)

Exit Sub

End If

n = n + 1

Next i

End Sub

Ответить

Private sub ExcelByWord

dim x1 as excel.application

set x1=createobject("excel.application")

x1.workbooks.open("C:\test1.xls")

...

set x1=nothing

End Sub

Ответить

2 Padre

Спасибо большое!

Начинает проясняться понемногу.

Насчет ячеек:

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

Может есть красивый способ ? Property или метод специальный.

Спасибо

Ответить

Да всё точно также. Берёшь диапазон проверяемых ячеек, ставишь счётчик непустых ячеек и вперёд.

Public Sub checkColumn()

Dim i As Integer

Dim n As Integer

Dim count As Integer

n = 1

count = 0

For i = 1 To 100

If ActiveSheet.Cells(n, 1) <> vbNullString Then

count = count + 1

End If

n = n + 1

Next i

ActiveSheet.Cells(1, 2) = "Всего записей: " & count

End Sub

Ответить

Sub LastCell_1() 'Определение последних строк, столбцов

'Sheets("лист1") - имя листа [можно порядковый номерSheets(n)]
'с которым работаем (если с активным, то можно не указывать)

'Cells(2, 4)- любая ячейка в заголовке таблицы,
'где первая цифра - номер строки, а вторая - номер столбца

'CurrentRegion - текущая область, т.е. интервал ячеек
'ограниченный пустыми столбцами и пустыми строками

'проверим, с чем работаем (выделим итервал), потом удалите
Sheets("лист1").Cells(2, 4).CurrentRegion.Select

'адрес интервала ячеек
adr = Sheets("лист1").Cells(2, 4).CurrentRegion.Address

'начальная строка интервала ячеек
RowBegin = Sheets("лист1").Cells(2, 4).CurrentRegion.Row

'количество строк в интервале ячеек
RowsCount = Sheets("лист1").Cells(2, 4).CurrentRegion.Rows.Count

'начальный столбец интервала ячеек
ColumnBegin = Sheets("лист1").Cells(2, 4).CurrentRegion.Column

'количество столбцов в интервала ячеек
ColumnsCount = Sheets("лист1").Cells(2, 4).CurrentRegion.Columns.Count

'массив, в котором хранятся значения ячеек итевала
ArrayValueCells = Sheets("лист1").Cells(2, 4).CurrentRegion

'значение элемента массива
ValueCells = ArrayValueCells(строка, столбец)
'строка- номер стоки в массиве (не обязательно совпадает с номером
'строки рабочего листа), столбец - аналогично

'объектная переменная, в которой содержится абсолютно все
Set Rng = Sheets("лист1").Cells(2, 4).CurrentRegion

'ValueCells и Rng лучше просмотреть в окне локальных переменных
'View\Locals Window пошаговом режиме (клавиша F8)
End Sub

короче

Sub LastRow_1() 'последняя заполненная строка

    With Sheets("лист1").Cells(2, 4).CurrentRegion
        LastRow = .Row + .Rows.Count - 1
    End With

End Sub

Ответить

Может я не совсем правильно поняла, вот только сегодня сталкивалась с подобной проблемой.

xlSheet.UsedRange.Rows.Count - вернет количество используемых строк.

Ответить