Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Miralex
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBA извлечение данных из информации о документе PDF
 
#
28.12.2024 00:32:25
Цитата
написал:
Можно и так:
Отлично, ещё лучше и проще!
 
Перейти    
VBA извлечение данных из информации о документе PDF
 
#
27.12.2024 01:48:13
А возможно этот итог даты в нормальный вид привести dd.mm.yyyy hh:mm:ss?
 
Перейти    
VBA извлечение данных из информации о документе PDF
 
#
27.12.2024 00:48:48
Цитата
написал:
Не обязательно использовать платные приложения.Сторонняя программа нужна, да, - но есть и бесплатный вариант: exiftool.exe(программа для извлечения метаданных из файлов десятков разных форматов)КодSub test()
   MsgBox GetMetadata(ThisWorkbook.Path & "\Раздел 5. Подраздел 4.3.pdf", "Modify Date*")
   ' выводит результат 2024:06:20 22:18:58+03:00
End Sub

Function GetMetadata(ByVal filename$, ByVal meta$)
   On Error Resume Next: Dim cmd$
   AppPath$ = ThisWorkbook.Path & "\exiftool.exe"
   cmd$ = """" & AppPath$ & """ -""" & meta$ & """ -charset Cyrillic """ & filename$ & """"
   GetMetadata = ShellRun(cmd$)
   GetMetadata = Trim(Replace(Split(GetMetadata, ":", 2)(1), vbNewLine, " "))
End Function

Public Function ShellRun(sCmd As String) As String
   On Error Resume Next: Dim oShell As New WshShell
   ShellRun = oShell.Exec(sCmd).StdOut.ReadAll
End FunctionНужно только скачать exiftool с официального сайта, и положить в папку с макросом файл exiftool.exe и подпапку exiftool_files
В чём то ошибка при запуске не пойму, User-defined type not defined  "Public Function ShellRun(sCmd As String) As String"

Получилось вывести дату. Благодарю!
Изменено: Miralex - 27.12.2024 01:47:57
 
Перейти    
VBA извлечение данных из информации о документе PDF
 
#
26.12.2024 20:30:58
Добрый вечер.
Знатоки подскажите пожалуйста, обрыл уже весь интернет в поиске решения.
Как извлечь дату модификации загруженного файла PDF "20.06.2024, 22:18:58" через vba,
на данный момент получилось только извлечь дату свойств файла 22.12.2024 23:35:17 но это не то что нужно.
Файл прикрепил.
Планируется загружать документ в Word или Excel и извлекать необходимую информацию о документе PDF, загвоздка осталась только в этой дате, т.к. время сохранения отличается от той что написана в свойствах документа просмоторщика PDF и свойств файла.  
Изменено: Miralex - 26.12.2024 20:39:58
 
Перейти    
Сохранение значения ComboBox при открытии книги
 
#
26.07.2018 22:19:53
Казанский,  Спасибо большое. Теперь будем пробовать и оптимизировать.
Изменено: Miralex - 26.07.2018 22:48:17
 
Перейти    
Сохранение значения ComboBox при открытии книги
 
#
26.07.2018 08:57:43
Доброе утро, подскажите пожалуйста как сохранить "Название №1" Combobox при открытии книги без изменения BoundColumn.
Файл примера прикрепляю.
Изменено: Miralex - 26.07.2018 09:19:39
 
Перейти    
Поле со списком ActiveX не правильно заполняется программой
 
#
20.07.2018 17:04:57
Первый вариант предпочтительнее считаю. т.к. во втором придётся всем числам добавлять ' знак. Спасибо VideoAlex
 
Перейти    
Поле со списком ActiveX не правильно заполняется программой
 
#
20.07.2018 16:11:28
Добрый день, подскажите пожалуйста, поле со списком ActiveX не правильно заполняется программой при значении в ячейке 0,1 через запятую, вводится значение 0.1 через точку которое в расчётах неправильно распознаётся.
Извините если подобную тему создавали. Не нашёл.
Файл примера прикрепил.
Изменено: Miralex - 20.07.2018 16:20:41
 
Перейти    
Страницы: 1
Наверх