Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Экспорт данных из листа Excel, Формирование отчёта... 
V
    Опции темы
mihanik
Дата 7.6.2006, 16:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



Привет всем!
Сейчас сижу в русский MSDN ищу решение задачи
Дано:
1. Работает моя программа, написанная на VB. :-)
2. Где-то лежит Excel-евский файл, в который пользователь вбил данные.
3. Мне надо этот файл найти. (Это просто. Уже сделал...)
4. Открыть так, чтобы он на экране не отображался.
5. Выдрать оттуда кое-что.
6. Файл закрыть.

Проблема в том, что эксель запустить и создать новую рабочую книгу могу.
Заставить его посчитать могу.
Вбить программно в енту книгу данные могу.
А вот уже готовый файл, - не могу.

Ля-ля-ля, жу-жу-жу, я сегодня торможу...
 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Akina
Дата 7.6.2006, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Так ты просто потяни из него данные через Jet - зачем его открывать-то? 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 7.6.2006, 16:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



м...
Вариант.
Только там структура документа такая замороченная!
Это, на самом деле, эдакая форма для печати, куда бухи вносят данные.
Там и графика, и...
Короче, нужно взять данные буквально из пары клеток. 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
mihanik
Дата 7.6.2006, 23:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



РЕШИЛ!!!

Во-первых, заходим в Project/References и убеждаемся в том, что стоит галочка напротив пункта
Microsoft Excel xx Object Library
Здесь "xx" - это версия офиса. У меня офис 2003, поэтому вместо хх у меня 11.0.

В этом-то и был главный затык!!!!!!

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

Код

Private Sub Command1_Click()
    Dim AppExcel As Excel.Application
    Dim WBook As Excel.Workbook
 
    ' создаём объект "Приложение Excel"
    Set AppExcel = CreateObject("Excel.Application")
    ' открываем в WBook файл с именем "имя файла.xls"
    Set WBook = AppExcel.Workbooks.Open("D:\Documents and Settings\Миханик\Desktop\Новая папка\Лист Microsoft Excel.xls")
    ' Выводим сообщение с содержимым ячейки B2 с 3-го листа
    MsgBox WBook.Sheets(3).Cells(2, 2).Value
    
End Sub


Спасибы Евангелосу Петрусосу!!!
 


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
AndreyK
Дата 7.7.2009, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 102
Регистрация: 15.3.2007

Репутация: нет
Всего: нет



Эта тема называется "Экспорт данных из Excel" ... поэтому помещу свой вопрос сюда.

Собственно с экспортом проблем нет.

Считываю данные при помощи конструкции:
Код

     ...
     XStr = xls.Rows(iRow).Columns(1) 
     iRow = iRow + 1
   Loop
 


Но только небольшая проблема:

Как узнать сколько строк в этом листе?

Метод xls.Rows.Count - возвращает 65536 (хотя там конечно меньше)

Проверять на пустые записи ? - так они там могут быть - по логике программы их надо игнорировать.

Вот не знаю что делать - что-то нигде не нашёл ответа.


PM MAIL   Вверх
Akina
Дата 7.7.2009, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454



Цитата(AndreyK @  7.7.2009,  16:49 Найти цитируемый пост)
Как узнать сколько строк в этом листе?

Посмотреть в справке, для чего существует SpecialCells


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
mihanik
Дата 8.7.2009, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109



3 года спустя... smile



--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
AndreyK
Дата 5.4.2011, 12:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 102
Регистрация: 15.3.2007

Репутация: нет
Всего: нет



К стати, есть продолжение темы.
Код

Set AppExcel = CreateObject("Excel.Application")

Уже не актуально.
У нас на работе снесли все экземпляры MS офиса (поскольку сильно дорогой) и установили бесплатный OpenOffice.

Он использует непонятно какой формат Excel файлов (наверное office-2000), так что теперь все программы использующие этот подход , а также DAO - не работают - нет соответствующего ISAM для DAO.
Хотя сам MS Office понимает формат файлов из OpenOffice и наоборот.

Нет ли универсального способа прочесть Excel файлы - не зависимо от того, в каком офисе они были созданы?

Например через OleDB ?
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0514 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.