Native ВК для 1CV8: независимое чтение файлов *.xls и *.xlsx

Не требует установленного в системе Microsoft Office (Excel) и Open Office.
Технология Native, не требует регистрации в реестре

ВК предназначена для считывания значений ячеек файлов *.xls и *.xlsx.
Не требует установленного в системе Microsoft Office (Excel) и Open Office.

Технология Native, не требует регистрации в реестре.

Подключение ВК:

ПодключитьВнешнююКомпоненту(ПолноеИмяФайлаВК,»ExcelNative»,AddInType.Native);
//— создание экземпляра класса—
XLS =Новый(«AddIn.ExcelNative.V8Excel»); // слева — любая переменная
Вызов методов ВК: ваш экземпяр (например,XLS ) — точка — имя метода (параметры)

Методы ВК:

ОткрытьФайл(ПолноеИмяФайлаXLS{XLSX})
Возвращает количество Листов

КоличествоСтрок(НомерЛиста)
НомерЛиста — номер листа предварительно открытого файла, отсчет с единицы (по умолчанию =1)
Возвращает количество строк выбранного листа

КоличествоКолонок(НомерЛиста)
НомерЛиста — номер листа предварительно открытого файла, отсчет с единицы
(по умолчанию =1)
Возвращает количество колонок выбранного листа

ЗначениеЯчейки(НомерЛиста,НомерСтроки,НомерКолонки,ОпределятьДату)
Отсчет всех значений НомерЛиста,НомерСтроки,НомерКолонки с единицы
ОпределятьДату- булево, имеет смысл только для файлов *.xlsx, по умолчанию ЛОЖЬ
Если ИСТИНА и число в ячейке соответствует ТекущаяДата плюс-минус 2 года, будет возвращено
строковое представление даты
Возвращает значение выбранной ячейки

ЧислоВДату(Число)
Возвращает строковое представление даты по числу

Например, ЧислоВДату(41501)=»15.08.2013″

РелевантностьСтрок(Строка1,Строка2,КтоЭталон)
Строка1, Строка2 — строки для сравнения
КтоЭталон — булево, если ИСТИНА, то эталон Строка1, иначе эталон Строка2
По умолчанию = ИСТИНА
Возвращает численное значение релевантности (схожести) строк.
100 — полностью тождественны
Может пригодиться при загрузке прайсов, например: релевантность строк «Майка мужская» и «Мужская майка» равна 88, что дает возможность сопоставить номенклатуру в справочнике и прайсе с достаточной достоверностью.

Тестировалась на:

Windows Server 2008 R2 Standard х 64
Windows 7 Professional Service Pack 1 х 32
Windows 7 Ultimate х 32
Windows ХР

Архив содержит саму ВК и файл описания

Версия 1.0.0.4

Добавлены проверки на правильность параметров НомерЛиста, НомерСтроки, НомерКолонки

По просьбе StepByStep добавлено получение номера (индекса) листа по его имени, метод ИндексЛистаПоИмени

Нюансы: для файлов XLS русские названия листов определяет только в том случае, если в них нет пробелов.

Версия 1.0.0.7

Подправлено по замечанию из комментария 109

99 Comments

  1. Abadonna
    Reply
  2. StepByStep

    Для наглядности было бы хорошо оперировать не номерами листов, а их именами.

    Reply
  3. Abadonna

    (2) StepByStep, если файл вообще нигде не просматривать (не на чем), номера удобнее.

    И возни мне с именами больше, пока даже не знаю как…

    К тому же в 99% случаев имена такие: Лист1, Лист2, Лист3

    Reply
  4. StepByStep

    (3)

    Практика у всех разная.

    Моя практика такова: получаемые файлы — просматриваются.

    Пользователь получает по почте файл.

    Сохраняет на сетевом ресурсе.

    На своем ПК открывает, просматривает его на предмет соответствия присланным документам.

    И только после этого производится загрузка.

    Reply
  5. StepByStep

    (3)

    Да, в большинстве случаев именно такие имена, а то и вовсе только Лист1.

    Reply
  6. Abadonna

    Eugeneer даже не качая минус поставил. Как же — в его прайсовую вотчину вторгнулись :)))

    Reply
  7. Abadonna

    (7) Eugeneer, а с чего ты взял, что не будет работать в 95 формате эксель?

    Насчет массивов, картинку смотрел? Матрица 5000 строк х 9 столбцов за 3 секунды

    Соответственно, 50000 тыс строк — 30 секунд. У тебя быстрее через буффер заполнится?

    Reply
  8. Abadonna

    (9) Eugeneer,

    у меня компонента ВК.

    И ты её всем подарил? 😉 Сомневаюсь, равно как сомневаюсь, что это тобой писанная ВК.

    Reply
  9. MarSeN

    (7) Eugeneer,

    просто надоело что каждый день кому то неймется.

    Именно так и рождаются лучшие решения. Это называется конкуренцией

    Reply
  10. Abadonna

    (7)

    уже просто надоело что каждый день кому то неймется.

    Если ты посмотришь, в каких ВК и когда у меня появилось чтение xls, то еще надо посмотреть, кому неймется.

    А то тут мне по поводу Форматтера один написал «Очередной велосипед? Все на Снегопат»

    А между тем, первая версия форматтера появилась аж в 2009-ом году, когда никаких Снегопатов и в помине не было.

    И я, без ложной скромности, пожалуй, вообще первый был, кто начал работать с Конфигуратором V8

    Reply
  11. Dzenn

    Маня, ты зачем минуснул? 😉

    Reply
  12. Abadonna

    (17) Eugeneer,

    принципиально против халявы на таких вещах

    Я тоже не любитель, но

    1. На 1С писать мне влом — это работа

    2. ВК продать — дело безнадежное. Плавали-знаем

    Reply
  13. Dzenn

    (17) Eugeneer, ну дык такую узконаправленную компоненту и не продать 🙂 а так — с миру по нитке 🙂

    Reply
  14. Aleksey81

    (13) Eugeneer, Судя по вашим публикациям и постоянным покупкам $m (похоже на рекламу) — вы действительно профессиональный разработчик (а скорее даже — команда разработчиков). Ваше мнение должно быть услышано, даже если это мнение — жесткая критика. Мне кажется, что выбран НЕ корректный тон. Видимо вас задел тот факт что бесплатно выкладываются «относительно сырые» разработки, конкурирующие с вашим продуктом.

    Давайте с уважением относиться к работе друг друга. Да, работы можно минусовать, если вы считаете это заслуженным. Но при этом можно ведь и помочь разработчику делать качественный продукт. Ведь от доверия к Инфостарту в целом зависит и наша с вами выгода!

    Я сам недавно начал выкладывать разработки. И пока только пытаюсь понять, что востребовано, а что нет. Если у вас есть опыт, которым вы готовы поделиться — you are welcome! Но огульно очернять разработки — бросает тень и на вас тоже…

    Reply
  15. Abadonna

    (19) DZENN,

    такую узконаправленную компоненту и не продать 🙂

    Её и широконаправленную не продать.

    Пример прям отсюда:

    http://infostart.ru/public/178717/ — рейтинг 65,

    а http://infostart.ru/public/125913/, от которой первая — просто жалкий кусок, рейтинг 43

    Кроме того, последняя почти год лежала триальная, никто не изъявил желания «растриалить».

    Reply
  16. Abadonna

    (21) Aleksey81, мы нашли с ним консенсус, так что все ОК 😉

    Reply
  17. noprogrammer

    Кое в чем Eugeneer прав, а именно в том, что пользоваться данной компонентой (как впрочем и другими подобными разработками автора) можно только на свой страх и риск ибо сегодня она автору интересна а завтра он ее забросит (ибо интерес иссяк).

    Reply
  18. Dzenn

    (22) плохая предпродажная подготовка потому что 😉

    1. узконаправленные

    2. не указано, какие проблемы решает

    3. требует специалиста для установки и запуска

    4. плохое описание, по диагонали ничего не понятно

    короче, слон не отполирован 😉

    Reply
  19. Abadonna

    (24)

    ибо сегодня она автору интересна а завтра он ее забросит

    СВЯТАЯ ПРАВДА :))).

    Другое дело, ежели она работает и устраивает — чего ее сопровождать?

    Это ж не конфа 1С в свете постоянно меняющегося законодательства.

    P.S. Я публикую только то, что писал для себя и под себя.

    Reply
  20. free-lancer-2018

    (7) Eugeneer, вы просто переживаете, что у вас кусок хлеба забирают. На мисте, помнится, хвалились, что такое есть только у вас )

    Reply
  21. noprogrammer

    (26) в любой компоненте могут быть ошибки,недочеты и т.д. (думаю, что твоя не исключение). Вот попросят тебя, что нить в ней добавить,изменить,исправить — будешь делать? думаю, что все будет зависеть от твоего настроенияжелания и т.д. (захочешь — сделаешь а нет так нет). Поэтому строить свои разработки (как коммерческие так и не коммерческие) на подобный «не поддерживаемых» компонентах лично я бы не стал.

    Reply
  22. MarSeN

    (13) Eugeneer,

    Когда появляются поддельники, то мы не стоим на месте а делаем два шага вперед.

    О чем я и говорю. Конкуренция. Только у тебя работа на опережение.

    Хочешь потягаться — попробуй. На интузиазме долго не протянешь.

    Я не люблю делать работу на спор. Да и повторяться в решениях не люблю. Практически все мои решения и пуликации на инфостарте не имеют аналогов.

    Много чего я делал, но не выкладываю по соображениям этики, так как делал для компаний в которых работал. До сих пор эти решения являются конкурентным преимуществом конфигураций при при продажах.

    Как пример — Динамические бизнес процессы, это что-то подобное тому что опубликовано на инфостарте под названием «простые процессы» но — настраиваются без куч закладок а в панели сбоку карты, имеют неограниченое количество вложенных бизнес-процессов, настраиваемые легенды для каждого элемента, возмодность сохранять и проверять значения в любом уровне вложенности, изменения статусов основных объектов при прохождении точек маршрута, автоматического создания и заполнения объектов (докментов, отчетов/ обработок) на основании предыдущих или сохраненных точек маршрута. Много чего.

    Но я посему-то не валю всех подряд минусами лишь на том основании что у меня есть решения покруче.

    Думаю твои минусы — это просто маркетинговый ход. Скорее всего ты на самом деле боишься конкуренции. Но к счастью — она не избежна )

    Reply
  23. Abadonna

    (30) noprogrammer,MiracleV8 я абсолютно нахаляву дорабатывал года 2, причем именно по хотелкам, мне оно уже было не надо. Даже по хотелкам семерочников, когда уже сама 7.7 мне абсолютно неинтересна стала. Я и эту могу по хотелкам доработать, но уже лично хотельщику и не нахаляву 😉

    Reply
  24. Abadonna

    (31) Сергей, мы с Инженером уже пришли к согласию. Тем более он минус на плюс переправил.

    Давай, плиз, тут эту тему закроем. А за поддержку тебе огромное спасибо

    Reply
  25. ltfriend

    (11) Eugeneer

    По поводу атеизма обсуждать не будем

    может все таки имелось в виду альтруизм?

    В отличие от меня тупого 1Сника, он специалист программирующий на высокоуровневых языках

    Вообще то, язык программирования 1С тоже является высокоуровневым.

    Reply
  26. MarSeN

    (34)

    (33)Eugeneer,

    Ок, тема закрыта.

    Reply
  27. free-lancer-2018

    (28) Eugeneer, никакого страха и риска тут нет. Формат экселя майкрософт давно не скрывает — пакованный xml. Так что никакого открытия ваш разработчик не сделал. Давно уже в других языках программирования без экселя работают.

    Reply
  28. andrewks

    какая библиотека используется в этой компоненте?

    Reply
  29. StepByStep

    ОШИБКА:

    Конструкция:

    Листов=XLS.ОткрытьФайл(«d:ТестовыйXLXS1.xlsx»);

    Метод ОткрытьФайл(ФайлEXCEL) для файлов с расширением XLS возвращает Неопределено.

    Для расширения XLSX — правильное число.

    Reply
  30. Abadonna

    (42) StepByStep, Ни разу в жизни не встречал, чтобы «правильный» XLS не вернул количество листов, а пользуюсь уже давным-давно. Может твой XLS записан как схема xml? Тогда да, не сработает.

    И еще: 7.7 при сохранении отчета в XLS формирует его не как книгу. Это еще Арчибальд заметил


    Блинннн! Когда разделял процедуру открытия на XLS и XLXS просто забыл вернуть в 1С значение Листов для XLS.

    Она определяла, просто не возвращала значение.

    Перезалил. Спасибо за замечание

    Заодно добавил проверку на параметр НомерЛиста в КоличествоСтрок и КоличествоКолонок

    Reply
  31. Abadonna

    (41) andrewks, компоненты Дельфи:

    Zexmlss (xlsx), XLSReadWriteII (xls), FWZipReader (распаковка XLSX в указанный каталог)

    Reply
  32. BorisMor

    чистое любопытство: на чем написан ВК?

    Reply
  33. Abadonna

    (45) BorisMor,

    andrewks, компоненты Дельфи:

    Zexmlss (xlsx), XLSReadWriteII (xls), FWZipReader (распаковка XLSX в указанный каталог)

    Delphi 7

    Reply
  34. SinglCOOLer

    В 8.3 при открытии файла, 1С падает с дампом

    Reply
  35. Abadonna

    (47) SinglCOOLer, я именно на 8.3 и тестил.

    В какой момент падает?

    Reply
  36. StepByStep

    (43)

    Возвращаясь к вопросу «Имена листов» в дополнение к «Номера листов».

    Скажите, пожалуйста, можно ожидать?

    Reply
  37. Abadonna

    (49) StepByStep, в компонентах, которые использую, насколько помню, нет обращения к листу по имени.

    Если там этого нет — ожидать не стоит. Но вопрос пока не закрываю, гляну…

    Reply
  38. SinglCOOLer

    ПодключитьВнешнююКомпоненту(ПолноеИмяФайлаВК,»ExcelNative»,AddInType.Native);

    XLS =Новый(«AddIn.ExcelNative.V8Excel»);

    XLS.ОткрытьФайл(«Путь»);

    1С:Предприятие 8.3 (8.3.3.658)

    Reply
  39. Abadonna

    (51)

    XLS.ОткрытьФайл(«Путь»);

    Хм… что это за имя файла «Путь»??????

    Если Путь заранее определен — то на фига его в кавычки?

    Вот так, например, надо:

    Путь=»d:Тест.xls»;

    XLS.ОткрытьФайл(Путь); // Без кавычек!!!!

    или

    XLS.ОткрытьФайл(«d:Тест.xls»);

    Reply
  40. StepByStep

    (50)

    СПАСИБО.

    PS: Для XLS теперь правильно.

    Reply
  41. SinglCOOLer

    (52) ыыы, естественно я не пишу там «путь», просто как пример, зачем вам именно мой путь, у меня был такой «D:Задачи.xlsx»

    Reply
  42. Abadonna

    (54) SinglCOOLer, файл в студию!

    Reply
  43. VZhulanov

    До сих пор для чтения Excel файлов пользовался Йокселем.

    Чем лучше данная разработка, только Native технологией или еще чем-то?

    Reply
  44. Abadonna

    (56)

    Чем лучше данная разработка,

    VZhulanov, откуда я знаю? Я Йоксель в глаза не видал. К тому же чужими не пользуюсь, если свою написать могу.

    Кроме того: Плагин к Total Commander для просмотра xls-файлов, дата публикации 24.02.2008.

    ВК для 7.7,дата публикации 06.09.2008

    Так что XLS я без всяких Йокселей давным-давно читаю.

    Reply
  45. Abadonna

    (58) Не пробовал ни разу, но теперь Embarcadero есть — надо будет попробовать. Но не обещаю, что это скоро будет

    Reply
  46. paybaseme

    (59) во времена Borland у них была IDE Kylix, которая позволялf открывать CLX-проекты, созданный в виндах в дельфях, при условии что весь проект использует clx компоненты, вместо vcl.

    Среди прочих, можно было доставить специальные clx-компоненты, которые позволяли нативно читать *.xls из под *nix’ов. Так что, если эмбаркодерщики не по прибивали это все, то скорее всего все это там уже есть. Я правда сейчас совсем не в курсе, какой аналог Kylix есть в текущей студии, и как с этим всем работать. Раньше все было просто. Сидишь в винде, лабаешь на clx. Переоткрылся в kylix в *nix’ах, скомпилировал проект и вуаля! Единственный минус всех этих танцев: для создания инсталлятора нужен отдельный человек, т.к. все взаимосвязи библиотек Kylix, знал похоже сам великий г-н Кайликс 🙂 По факту, методом проб и ошибок, включая/исключая разные версии файлов, собирался этот самый инстялятор. Все сорцы я не дельфи-киндоме выкладывал в свое время. Не знаю вообще, живо ли это все.

    Хотя слышал в последней студии, можно приложения под андрюшку собирать 😉

    Reply
  47. Hany

    Ув. разработчик!

    Скачала dll

    Пробую открыть маленький xls (5 строк 5 колонок) — все работает.

    Пробую открыть файл xls, где 77000 строк — валится с дампом.

    Платформа 8.2.17.169.

    Подскажите, что еще можно попробовать, чтобы прочитать файл xls (не xlsx) с кол-вом строк 77000..

    Excel не установлен (политика фирмы такова, что на сервер Офис не ставят). А мне нужно читать xls регламентно, т.е. с пом. регл. заданий, выполнение будет идти в модулях с директивой &наСервере.

    варианты:

    1) Microsoft.ACE.OLEDB через COMОбъект

    2) с пом. «excel.reader» не подошли:(

    Reply
  48. Abadonna

    (61) Hany, компонент для чтения xls «заточен» под максимальное количество строк (Excel 97-2003) 65 536.

    Reply
  49. Hany

    (62)

    Спасибо, так и думала.

    А что посоветуете?:)

    Reply
  50. Abadonna

    (63) Hany, а в xlsx его пересохранить нельзя? он частоменяемый?

    Reply
  51. Hany

    (64)

    файл апдейтится/меняется раз в сутки какой-то программой, написанной 100 лет назад, и которая вне моих должностных обязанностей.

    Поэтому, как обычно, в таких случаях, гнем 1С, а не ее (стороннюю программу).

    В xlsx сохранить, конечно, можно, но это ж ручная работа, а я хочу, чтобы все автоматом по регл. заданию делалось, терпеть не могу «ручную поддержку» бизнес-процессов:)

    Спасибо.

    Reply
  52. andrewks

    (59) разве дельфя поддерживает линухи в качестве целевых систем?

    Reply
  53. andrewks

    (61) Hany, читайте через adodb

    Reply
  54. Hany

    (67) andrewks,

    с помощью …Provider=Microsoft.Jet.OLEDB.4.0;… ?

    Собстенно, сам excel не установлен. И как-то этот способ тоже не помог.

    Reply
  55. andrewks

    (68) Hany, эксель и не нужен. выкладывал пример в ветке http://forum.infostart.ru/forum26/topic75363/ 5-й пост

    Reply
  56. Abadonna

    (68) Hany, всё, что могу пообещать, попробовать покопаться в «родном» коде компонента…

    Но есть у меня подозрение: если прога написана «100 лет назад», может там и «неправильный» xls, а построенный на чем-то вроде:

    xml.ЗаписатьСтроку(«<?xml version=»»1.0″» encoding=»»windows-1251″»?>

    |<Workbook xmlns=»»urn:schemas-microsoft-com:office:spreadsheet»»

    | xmlns:o=»»urn:schemas-microsoft-com:office:office»»

    | xmlns:x=»»urn:schemas-microsoft-com:office:excel»»

    | xmlns:ss=»»urn:schemas-microsoft-com:office:spreadsheet»»

    | xmlns:html=»»http://www.w3.org/TR/REC-html40″»>

    | <DocumentProperties xmlns=»»urn:schemas-microsoft-com:office:office»»>

    | <Author>Roman Cornelius</Author>

    | </DocumentProperties>

    | <OfficeDocumentSettings xmlns=»»urn:schemas-microsoft-com:office:office»»>

    | </OfficeDocumentSettings>

    | <ExcelWorkbook xmlns=»»urn:schemas-microsoft-com:office:excel»»>

    | </ExcelWorkbook>»);

    Показать

    Так мы из 7.7 раньше xls формировали как раз для больших размеров

    Reply
  57. _LkMaksimka_

    Спасибо автору классная компонента.

    Reply
  58. serezhick

    картинки обрабатываются в ячейках?

    Reply
  59. Hany

    (70)

    да, скорее всего вы правы, там xls видимо корявый.

    И никакие способы его «не берут», т.к. видимо формат подгулял. Хотя COMObject родного MS OFFICE читает его на ура и даже спасибо говорит:)

    Но увы, я COMОбъект(«Excel.Application») использовать не могу, т.к. на сервере его нет:(

    Пробовала ставить OpenOffice, тоже не взяло подключение к нему через COMОбъект.

    4andrewks : Microsoft.Jet.OLEDB.4.0 увы, тоже не «осилил» мой корявый многотысячный xls ….

    Поэтому нашла в компании php программера, который написал регламентную переброску этого xls в базу MySQL…А далее дело техники.

    Спасибо огромное за вашу ВК, буду ее использовать для pure xls :)))))

    Reply
  60. Abadonna

    (73)

    картинки обрабатываются в ячейках?

    serezhick, проблем приделать нет, но это уже как спец-заказ будет

    Reply
  61. CagoBHuK

    Однозначный плюс за старание и знание технологии ВК.

    Reply
  62. Abadonna

    (77) Eugeneer, которую я качал — там ничего не было насчет платности. было это давным-давно.

    И не компонентЫ, а одна компонента

    ______________________________________

    Твой «напарник, который прогит на дельфи и питон» как-то плохо тебе объяснил, что такое компонента в Дельфи. Это кусок кода на той же Дельфи. И платной там является возможность разработчика использовать этот кусок в своих разработках. Даже если бы использовался платный вариант компоненты, откуда ты можешь быть уверен, что компилировалось не в среде, где эти компоненты честно куплены и установлены?

    Reply
  63. quick

    (66) andrewks, делфя только вроде научилась поддерживать мак, а с линухом пока что lazarus, kylix не предлагать.

    Reply
  64. andrewks

    (79) quick, у меня такие же сведения. потому и удивился

    Reply
  65. MMF

    я для дофигищастрочных таблиц использовал http://sm-software.com/txlsfile.htm — замечательно работает.

    Reply
  66. Abadonna

    (81) MMF, спасибо за наколку 😉 не встречал раньше

    Reply
  67. Abadonna

    (82) Eugeneer,

    нашу ВК с готовым кодом и одной кнопкой.

    DLL с кнопкой — это круто :)))

    Кстати, как ты там говорил: не фиг читать ячейки в цикле, надо считывать весь лист?

    Спроси напарника как он загоняет лист в память, у будешь шибко удивлен, когда он тебе скажет, что внутри ВК он как раз и считывает «поячеесто» в циклах и загоняет их в память. Только на фига столько в памяти держать?

    Reply
  68. MMF

    (84) передача данных из ВК в 1С в виде двумерного массива все-таки принесет выигрыш в быстродействии — сократив тысячи вызовов FindMethod+CallAsFunction (вспомним про TurboMD.dll), поскольку в типовом шаблоне ВК FindMethod — это тупо сравнение всех вариантов написания всех методов компоненты с переданным через ILanguageExtender названием.

    Конечно, выигрыш будет невелик, сравнительно с передачей range-ами при обмене данными с Excell по ОЛЕ.

    Reply
  69. MMF

    (83) обрати внимание на платность компоненты

    Reply
  70. Abadonna

    (85) MMF,

    передача данных из ВК в 1С в виде двумерного массива все-таки принесет выигрыш в быстродействии — сократив тысячи вызовов FindMethod+CallAsFunction

    А ты глянь, ради интереса вот это Создание внешних компонент 1С для начинающих

    У меня там нигде не используются FindMethod и CallAsFunction. Причем, я всегда так компоненты писал.

    P.S. А вызвать метод по аглицки — руки не отвалятся 😉

    Reply
  71. andrewks

    (87)

    А ты глянь, ради интереса вот это Создание внешних компонент 1С для начинающих

    У меня там нигде не используются FindMethod и CallAsFunction. Причем, я всегда так компоненты писал.

    м-м-м… какая-то профанация. там же COM, а не NativeAPI

    Reply
  72. Abadonna

    (87)Ну я про COM и говорил… Какой к 77 Native может быть? Там-то тоже «по фирме» и FindMethod, и CallAsFunction.

    А насчет скорострельности — тут же, на картинке матрица 5000х9 за три секунды.

    Куда спешить? 😉 В моей практике ёксели больше 10 тыс. строк и не встречались…

    Потестю ради интереса на 65 тыс. строк, посмотрим за сколько. Причем, не вывод в ТЗ на форме, а просто загрузку в ТЗ

    Reply
  73. Abadonna

    (90) Eugeneer, пришли, тестанем. Ради интереса… Только данная не возьмет больше 65 тыс. строк. Но принцип (ячейки или лист в память) можно и на xlsx проверить, если не возражаешь.

    Reply
  74. Abadonna

    (85),(90) Результаты тестирования на моём достаточно слабом компе

    Процессор: Intel® Core™2 Duo CPU E6550 @ 2.33GHz частота 1866

    Операционная система: Windows 7 Ultimate

    Оперативная память, MB: 2146

    Матрица 65 тыс. строк х 50 колонок (что равносильно 650 тыс. строк х 5 колонок) — чуть меньше 5-ти минут.

    Reply
  75. Abadonna

    (93) Eugeneer, я вспомнил молодость, когда в НИИ делал расшифровку неметрических зубчатых колес (по замерам, чертежей фиг). Там многоступенчатые формулы с коэффициентами, быстро освоил Basic и на нем слепил. Плюс расчет профиля фрез неметрических под их изготовление.

    А наш математик Саня Пинкин взялся ее на Fortran переводить.

    — Саня, на фига?

    — Раз в 10 быстрее считать будет.

    — Слушай, она сейчас считает 5 секунд, а на ввод всевозмонжных параметров у меня уходит 30 секунд. Ладно, твоя будет считать 0.5 сек, но я же за 3 сек. вводить не смогу! :)))

    P.S. Так он, кстати, и не сделал, ибо образование ущербное — математическое, а не нормальный инженер-механик, как я 😉

    Reply
  76. Abadonna

    (86) MMF,

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

    Распаковал xf40_unr_d7.exe в папку, потом содержимое папок …xf40_unr_d7UNREG_D7Bpl и

    …xf40_unr_d7UNREG_D7DCU перекинул в …Delphi 7ProjectsBpl и все заработало 😉

    Заметь! НИЧЕГО НЕ ЛОМАЛ!!! ;))) Но, похоже, это только в Delphi прокатит.

    Доступа к исходникам, естественно, — фиг.

    Reply
  77. MMF

    (95) Мда уж…

    Demo version

    All features of the registered version are also available in the demo version!

    The only demo limitation is that Borland Delphi IDE must be running.

    А за «Создание внешних компонент 1С для начинающих» вобще банить нужно, как вредителя

    Reply
  78. Abadonna

    (96) MMF,

    АMiracleV8: Расширенная версия за «Создание внешних компонент 1С для начинающих» вобще банить нужно, как вредителя

    Это из каких же соображений? Из тех, что все мои COM-компоненты работают безотказно?

    Из тех, что MiracleV8: Расширенная версия имеет рейтинг

    240 и более 2 тыс. скачиваний?

    И все написаны по принципу, изложенному в статье. Мне надо было достучаться до «ЗагрузитьВнешнююКомпоненту», я и достучался. А дальше зачем мне их ТСВК?

    Reply
  79. CaSH_2004

    (0) Abadonna если выполнить метод ЗначениеЯчейки() то при чтении листа который не существует 1С (8.2.18.109) вылетает в с дампом. А можно чтобы просто ругалось и не читало?

    Reply
  80. Abadonna

    (98) CaSH_2004, вообще-то в версии 1.0.0.4 стоит проверка

    if SheetCount = 0 then begin

    V8SetWString(RetValue, ‘не считан файл XLS-XLSX’);

    RESULT := true;

    exit;

    end;

    if Sheet < 1 then Sheet := 1;

    if Sheet > SheetCount then Sheet := SheetCount;

    У тебя на какой версии падает?

    Reply
  81. CaSH_2004

    (99)У меня версия 1.0.0.2 из файла ExcellNative.zip, кто-же знал какая там версия. А зачем выкладывать 2 файла причем один не подписывать?

    Reply
  82. Abadonna

    (100) CaSH_2004,

    Описание разработки:

    » Версия 1.0.0.4

    Добавлены проверки на правильность параметров НомерЛиста, НомерСтроки, НомерКолонки

    По просьбе StepByStep добавлено получение номера (индекса) листа по его имени, метод ИндексЛистаПоИмени»

    ______________________

    че-то кнопка цитаты не работает

    Reply
  83. Abadonna

    (100) CaSH_2004, а не подписан (возможно) второй, я просто случайно директиву компилятора {$R *.res} закомментил

    Reply
  84. CaSH_2004

    (101) Да все ясно когда залазиш и все проверяеш 🙂 Просто версию ДЛЛ видно только через свойства, а лезть туда не было причины пока ты не сказал, и пока не было проблем.

    Reply
  85. Sintson

    Спасибо за компоненту, не пробовал, но качнул в свой архив.

    Обязательно потребуется! Плюсану.

    Reply
  86. O-Planet

    Это, интересно, случайно номер публикации — из разряда золотых? Или спецом подбирал? Или по жизни так выпадает? ))

    Reply
  87. Abadonna

    (105) O-Planet, для меня золотой ..66666 😉

    Reply
  88. AVK_Alex

    Расширение функционала планируется? — Например, можно от чтения плавно перейти к записи…

    Reply
  89. Abadonna

    (107) AVK_Alex, не вижу никакого смысла хоть плавно, хоть не плавно…

    В движке есть возможность сохранить хоть в ёксель, хоть в pdf, хоть еще во что…

    Именно поэтому и не стал делать.

    Reply
  90. _LkMaksimka_

    Заметил такую ситуацию в версии 1.0.0.4 если не получить «КоличествоКолонок» то «ЗначениеЯчейки» возвращает пусто 🙂

    Reply
  91. Abadonna

    (109) Кажись, догадываюсь почему. Там проверяются индексы ячейки, чтобы они не выпадали за КоличествоКолонок и КоличествоСтрок, а глобальные переменные инициализируются по одноименным методам.

    Посмотрю, подправлю

    ____________

    Версия 1.0.0.5 — подправил

    Reply
  92. AVK_Alex

    (108)Abadonna,

    Это да. Но потом часто приходится открывать и поправлять ориентацию страниц, высоту строк и пр.

    Reply
  93. free-lancer-2018

    У компоненты проблемы с чтением файлов, содержащих свыше 100 тыс. строк.

    Смотрел на файле, в котором 111 тыс. строк.

    КолЛистов = Excell.ОткрытьФайл(ВремПутьФайлаЭкселя); — выдает «0»

    КолКолонок = Excell.КоличествоКолонок(1); — после этого окно приложения валится с ошибкой

    Reply
  94. Abadonna

    (134) adminfo2002, я вообще-то и не рассчитывал, и не тестировал для строк больше 65 000.

    xls точно не сожрет больше (там ограничение используемой компоненты Дельфи), про xlsx — просто ничего сказать не могу. Мне, в моей практике, вообще никогда не встречались больше эдак строк 20 000…

    Reply
  95. free-lancer-2018

    (135) через ComSafeArray 1c читает такие файлы экселя без проблем.

    Reply
  96. Abadonna

    (136) adminfo2002, поясню свою позицию. Свои ВК я пишу для себя. Меня вполне устраивает чтение файлов в размере около 10 тыс. строчек. Нет у меня клиентов, которые грузят прайсы по 1 млн. строк.

    Они их вообще, как правило, не грузят, т.к. это оптовики или производственники. А кто и что там грузит/не грузит — мне, по большому счету, безразлично. Возникнет у меня необходимость грузить 500 тыс. строк — буду решать проблему, не возникнет — пальцем не шевельну 😉

    Reply
  97. Abadonna
    Reply
  98. TbSasha

    (144) Можно поподробнее о первым параметром поставить номер Листа=1 и поимел висняк. ? Пробовали открывать мою обработку она у вас на xlsx виснет? У меня она на xlsx виснет, а на .xls нет.

    Reply
  99. koreav

    Спасибо, нужная обработка.

    Только один момент все убивает:

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

    Хотя если получать значение через OLE (например, ExcelPage.Cells(3,5).Value), то все ок, и нули на месте.

    Можно это починить?

    +пара багов

    1) если получать значение таким образом: xls.ЗначениеЯчейки(1,2,ТекКолонка.Значение),

    где, ТекКолонка тип КлючИЗначение, и ТекКолонка.Значение = 3 (Число)

    то вываливается ошибка {(1)}: Поле объекта недоступно для записи (Значение)

    2) если попытаться прочитать пустую ячейку (т.е. номер строки(наверное и колонки) которой > чем есть в файле), то возвращается значение последней успешно считанной ячейки, вместо пустого или вызова исключения

    Reply

Leave a Comment

Ваш адрес email не будет опубликован. Обязательные поля помечены *