0 / 0 / 0
Регистрация: 01.09.2009
Сообщений: 46
1

Как из программы VB вычислить количество строк заполненые текстом в Excel-е ?

22.03.2010, 14:45. Показов 1686. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Господа, здравствуйте !!!
Вопрос. Как из программы VB вычислить количество строк
заполненые текстом в Excel-е ???

Спасибо.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2010, 14:45
Ответы с готовыми решениями:

Как поступить, если при сборе данных их количество превысило количество строк на листе Excel?
Макрос собирает данные со всех листов книги на один, для сводного отчёта. С ростом данных...

Как определить количество строк? (Excel)
После установки AutoFilter надо определить количество видимых не пустых строк на листе. (Способ,...

Как из object вытащить количество строк в документе Excel?
Народ, подскажите пожалуйста как из object вытащить кол-во строк в документе, через отладчик их...

Посчитать в текстовом файле количество строк с заданным текстом
А как задать счетчик, который считает количество строк с заданной переменной? т.е. к примеру есть...

4
0 / 0 / 0
Регистрация: 28.08.2007
Сообщений: 171
28.03.2010, 15:05 2
примерно так
Public MyXL As New Excel.Application
MyXL.Workbooks.Open ('c:PFТК .xls')
do until MyXL.Worksheets('АKC').Cells(i, stolbez).Value<>''
i=i+1
schetchik=schetchik+1
loop
0
0 / 0 / 0
Регистрация: 07.11.2008
Сообщений: 29
29.03.2010, 00:17 3
А можешь сделать через ADO. На больших объемах будет быстрее (сам проверял)

Dim oRSCount As New ADODB.Recordset

Set oConn = New ADODB.Connection
oConn.Open 'Provider=Microsoft.Jet.OLEDB.4.0;' & _
'Data Source=' & txtFileSourceXLS.Text & ';' & _
'Extended Properties=''Excel 8.0;HDR=NO;'''
Set oRSCount = oConn.Execute('SELECT COUNT(*) FROM [имя листа$] ' _
& 'WHERE (F1 AND F2 AND F3 AND F4)IS NOT NULL')
'где F1, F2 и т.д. твои столбцы
lngCount = oRSCount.Fields(0).Value
oRSCount.Close
Set oRSCount = Nothing
0
0 / 0 / 0
Регистрация: 01.09.2009
Сообщений: 46
29.03.2010, 12:09  [ТС] 4
Всем спасибо !!!
Нашел способ

Dim objExcel As Excel.Application
Dim xlr As Excel.Range
Dim NumRows As Integer
dlg1.ShowOpen
stInputVal = InputBox('Indicati denumirea ^Global in care se vor exporta Datele!!!')
txtGlob.Text = stInputVal
If stInputVal <> '' Then
Else
Exit Sub
End If

Set objExcel = New Excel.Application
objExcel.Workbooks.OpenText ('' & dlg1.FileName & '')
Set xlr = Range('A2').CurrentRegion
NumRows = xlr.Rows.Count

Вот где...
0
0 / 0 / 0
Регистрация: 16.12.2009
Сообщений: 12
30.03.2010, 11:03 5
Можно вот так:
Код
Private Function GetLastRange(wsInfo As Worksheet) As Range
    On Error Resume Next
    Dim r As Range
    
    Set r = Cells(Cells.Find('*', Range('A1').SpecialCells(xlCellTypeLastCell), , , xlByRows, xlPrevious).Row, _
                Cells.Find('*', Range('A1').SpecialCells(xlCellTypeLastCell), , , xlByColumns, xlPrevious).Column)
    
    Set GetLastRange = r
End Function

Private Function GetLastCol(wsInfo As Worksheet) As Long
    On Error Resume Next
    
    GetLastCol = GetLastRange(wsInfo).Column
End Function

Private Function GetLastRow(wsInfo As Worksheet) As Long
    On Error Resume Next
    
    GetLastRow = GetLastRange(wsInfo).Row
    
End Function
0
30.03.2010, 11:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2010, 11:03
Помогаю со студенческими работами здесь

Как сделать количество столбцов и строк конечным?, MS Excel 2003
При расширении столбцов значком с 2-мя стрелками, количество столбцов на экране уменьшается и при...

Access - Excel, код не воспринимает количество строк в Excel более 65000
Добрый день! Есть БД (Access), есть файл Excel, где происходит обработка данных. Код ниже...

Найти текст в строках lisbox и подсчитать количество строк с этим текстом
Необходимо осуществить поиск по listobx. В строках listbox очень много всякого текста. мне...

Как Excel документ, в котором 10000 строк, разбить по 10 строк и сохранить каждые 10 строк в отдельный файл
Здравствуйте. Подскажите как Excel документ в котором 10000 строк разбить по 10 строк и сохранить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru