Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение из Excel / 5 сообщений из 5, страница 1 из 1
05.07.2006, 14:01
    #33832783
Олег Михайлов
Олег Михайлов
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение из Excel
Подскажите пожалуйста, как сделать следующее: существует файл 1.xls,
Set oWorkBook = GetObject("c:\1.xls")
Описан путь к файлу, для считывания.
Необходимо посчитать кол-во строк
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2006, 14:22
    #33832852
ВasiС
ВasiС
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение из Excel
Можно:
1. Банально пересчитать количество непустых строк в какой-либо колонке
2. Есть какая-то функция Excel, которая выдаёт номер последней заполненной строки (не помню как выглядит=(
3. Можно приконнектиться к файлу через ADO и сделать SQL запрос о количестве записей в таблице.

Что конкретно тебя устроит, зависит от твоего желания разобраться и структуры таблицы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2006, 17:15
    #33833629
Олег Михайлов
Олег Михайлов
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение из Excel
Каким образом это можно сделать на VB. Я с этим столкнулся впервые
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2006, 17:58
    #33833776
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение из Excel
Код: plaintext
1.
2.
3.
Set oWorkBook = GetObject("aaa.xls")
for i= 1  to oWorkBook.Worksheets.Count
    Echo oWorkBook.Worksheets(i).UsedRange.Rows.Count
next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.07.2006, 18:59
    #33833948
Letter_D
Letter_D
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение из Excel
Количество строк, или последняя заполненная строка?
Это важно.
Если первое, то - вариант от White Owl:
Код: plaintext
Worksheets(i).UsedRange.Rows.Count
Если второе, то так:
Код: plaintext
Worksheets(i).UsedRange.SpecialCells(xlCellTypeLastCell).Row

Ибо UsedRange может начинаться и не с первой строки, ага
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чтение из Excel / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 16052ms
Закрыть
start [/forum/moderation_log.php?user_name=%D0%A2%D0%B8%D0%BC%D0%BE%D1%84%D0%B5%D0%B9]:
 0ms
get settings:
 5ms
get forum list:
 11ms
get settings:
 6ms
get forum list:
 9ms
get settings:
 4ms
get forum list:
 8ms
get settings:
 9ms
get forum list:
 10ms
get settings:
 7ms
get forum list:
 11ms
get settings:
 8ms
get forum list:
 14ms
get settings:
 9ms
get forum list:
 10ms
get settings:
 7ms
get forum list:
 10ms
get settings:
 7ms
get forum list:
 9ms
get settings:
 5ms
get forum list:
 9ms
get settings:
 6ms
get forum list:
 9ms
get settings:
 7ms
get forum list:
 10ms
get settings:
 6ms
get forum list:
 20ms
get settings:
 7ms
get forum list:
 11ms
get settings:
 7ms
get forum list:
 10ms
get settings:
 7ms
get forum list:
 15ms
get settings:
 9ms
get forum list:
 16ms
get settings:
 10ms
get forum list:
 20ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 153ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 15472ms
total:  16052ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]