Считать метаданные файла

p1yt0n

Добрый день.

Нужно считать метаданные файла (*.xlsx) по его расположению с помощью ФМ\метода.

Интересует конкретное поле "Категория" (правый клик-свойства-подробно).

Инфу в "Категорию" я сам запихиваю, так что можно и в любое другое поле ее вписать, просто выбрал уже именно это поле.. но можно и поменять. Главное чтобы юзеры и система поле случайно не перетерли.

Буду благодарен за подсказку! Спасибо!

Удав

Посмотри, как это можно сделать на VBA.
Потом можно будет повторить через OLE на ABAP.

p1yt0n

Насколько я понимаю, для работы через OLE нужно будет открыть файл. Это не очень желательно..

Должен же быть метод какой-то..

p1yt0n

Ну, или если иначе никак, то как это будет выглядеть в VBA?.. Или сразу в ABAPе..

UPD.
Продолжаем расследование.

В VBA это выглядит подобным образом (проставляется поле "Категория"):
wbkCreate.BuiltinDocumentProperties(18) = PARAM1 & ";" & PARAM2
Теперь будем переносить в ABAP.

Я не мастер ни в OLE, ни в VBA, поэтому возникают трудности. Если кто быстрее меня разберется как это получить в ABAPе (желательно не открывая файл, для большей производительности), то буду признателен за этот кусок кода.

vahtang

xlsx файл представляет из себя набор xml файлов, заключённых в zip контейнер. Метаданные файла распложены в \docProps\core.xml. Если хотите обрабатывать без OLE, то загружайте xlsx файл, распаковывайте core.xml и парсите его.

p1yt0n

vahtang , спасибо за инфу, но в данном случае не применимо

===

Вопрос до сих пор актуален....

p1yt0n

C OLE разобрался, демонстрирую.

Видимо, это единственный вариант..

Цитата:

DATA l_filename TYPE char256 VALUE 'C:\excelfile.xlsx'.

DATA: l_ole_application TYPE ole2_object,
l_ole_workbooks TYPE ole2_object,
l_ole_book TYPE ole2_object,
l_ole_item TYPE ole2_object,
l_ole_properties TYPE ole2_object,
l_category TYPE string.

CREATE OBJECT l_ole_application 'Excel.Application' NO FLUSH.

CALL METHOD OF
l_ole_application
'Workbooks' = l_ole_workbooks
NO
FLUSH.

CALL METHOD OF
l_ole_workbooks
'OPEN' = l_ole_book
NO
FLUSH
EXPORTING
#1 = l_filename.

GET PROPERTY OF l_ole_book 'BuiltinDocumentProperties' = l_ole_properties NO FLUSH.

CALL METHOD OF
l_ole_properties
'Item' = l_ole_item
NO
FLUSH
EXPORTING
#1 = 'Category'.

GET PROPERTY OF l_ole_item 'Value' = l_category NO FLUSH.

CALL METHOD OF
l_ole_workbooks
'Close'
NO
FLUSH.

CALL METHOD OF
l_ole_application
'Quit'
NO
FLUSH.

FREE OBJECT l_ole_application.
CLEAR l_ole_application.

CALL FUNCTION 'FLUSH'.

WRITE l_category.

Правила форума

Считать метаданные файла

Кто сейчас на конференции