Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Конвертация файла из .pdf в .xls - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Конвертация файла из .pdf в .xls (Макросы/Sub)
Конвертация файла из .pdf в .xls
hatter Дата: Среда, 12.03.2014, 17:22 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация: 0 ±
Замечаний: 0% ±

У меня есть несколько тысяч архивов с информацией по клиентам.В каждом архиве находится по 12 pdf файлов.Необходимо, чтобы все эти файлы объединялись в единый файл ексель. Такое можно реализовать?
 
Ответить
СообщениеУ меня есть несколько тысяч архивов с информацией по клиентам.В каждом архиве находится по 12 pdf файлов.Необходимо, чтобы все эти файлы объединялись в единый файл ексель. Такое можно реализовать?
Автор - hatter
Дата добавления - 12.03.2014 в 17:22
Hugo Дата: Среда, 12.03.2014, 17:54 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Я бы поискал что-то из программ "pdf2txt", которыми можно конвертнуть в текст или сразу всю кучу, или которые можно "напрячь" в макросе. Конкретную не знаю, небыло такой задачи пока.
Ну а далее макросом эти тексты парсим в Эксель - если конечно там будет приемлимый систематизированный текст.
Или подожите - может кто-то работает с ридеровским API и сможет тянуть данные прямо из pdf.

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеЯ бы поискал что-то из программ "pdf2txt", которыми можно конвертнуть в текст или сразу всю кучу, или которые можно "напрячь" в макросе. Конкретную не знаю, небыло такой задачи пока.
Ну а далее макросом эти тексты парсим в Эксель - если конечно там будет приемлимый систематизированный текст.
Или подожите - может кто-то работает с ридеровским API и сможет тянуть данные прямо из pdf.
Автор - Hugo
Дата добавления - 12.03.2014 в 17:54
hatter Дата: Среда, 12.03.2014, 18:05 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация: 0 ±
Замечаний: 0% ±

Приемлемого текста не получается после обработки такого рода программами. Похоже надо тянуть сразу из pdf.....
 
Ответить
СообщениеПриемлемого текста не получается после обработки такого рода программами. Похоже надо тянуть сразу из pdf.....
Автор - hatter
Дата добавления - 12.03.2014 в 18:05
doober Дата: Среда, 12.03.2014, 18:45 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Структура файлов одинакова?

 
Ответить
СообщениеСтруктура файлов одинакова?
Автор - doober
Дата добавления - 12.03.2014 в 18:45
hatter Дата: Среда, 12.03.2014, 18:50 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация: 0 ±
Замечаний: 0% ±

Цитата doober, 12.03.2014 в 18:45, в сообщении № 4
Структура файлов одинакова?

Да,одинакова
 
Ответить
Сообщение
Цитата doober, 12.03.2014 в 18:45, в сообщении № 4
Структура файлов одинакова?

Да,одинакова
Автор - hatter
Дата добавления - 12.03.2014 в 18:50
Hugo Дата: Среда, 12.03.2014, 19:03 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Я думаю пора показать пару pdf и результат в xls.

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеЯ думаю пора показать пару pdf и результат в xls.
Автор - Hugo
Дата добавления - 12.03.2014 в 19:03
RAN Дата: Среда, 12.03.2014, 19:36 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
С неделю назад столкнулся с этой проблемой
При Copy текста из ридера текст получается в юникоде, и конвертируется в ascii онлайн переводчиком.
При попытке считать файл целиком кодировка не определяется и на выходе кроказябры.
Пришлось сочинить декодер (ну и макросик к нему)

[vba]
Код
Function codeUniToAscii(ByVal ss As String) As String
      Dim simv As Long, i As Long
      On Error Resume Next
      For i = 1 To Len(ss)
          simv = AscW(Mid(ss, i, 1))
          Select Case simv
          Case 192 To 255
              simv = simv + 848
          Case 185
              simv = 8470
          Case 168
              simv = 1025
          Case 184
              simv = 1105
          Case Else
              simv = simv
          End Select
          codeUniToAscii = codeUniToAscii & ChrW(simv)
      Next
End Function
[/vba]

Но если есть варианты прочитать сразу PDF, с удовольствием посмотрю

PS поскольку мой pdf - банковская выписка ....

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 12.03.2014, 19:38
 
Ответить
СообщениеС неделю назад столкнулся с этой проблемой
При Copy текста из ридера текст получается в юникоде, и конвертируется в ascii онлайн переводчиком.
При попытке считать файл целиком кодировка не определяется и на выходе кроказябры.
Пришлось сочинить декодер (ну и макросик к нему)

[vba]
Код
Function codeUniToAscii(ByVal ss As String) As String
      Dim simv As Long, i As Long
      On Error Resume Next
      For i = 1 To Len(ss)
          simv = AscW(Mid(ss, i, 1))
          Select Case simv
          Case 192 To 255
              simv = simv + 848
          Case 185
              simv = 8470
          Case 168
              simv = 1025
          Case 184
              simv = 1105
          Case Else
              simv = simv
          End Select
          codeUniToAscii = codeUniToAscii & ChrW(simv)
      Next
End Function
[/vba]

Но если есть варианты прочитать сразу PDF, с удовольствием посмотрю

PS поскольку мой pdf - банковская выписка ....
Автор - RAN
Дата добавления - 12.03.2014 в 19:36
doober Дата: Среда, 12.03.2014, 21:18 | Сообщение № 8
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Цитата
Да,одинакова

Это уже хорошо,глянуть бы них

Цитата RAN, 12.03.2014 в 19:36, в сообщении № 7

Но если есть варианты прочитать сразу PDF,

Андрей,они всегда есть.
Файлик бы посмотреть,никогда таких выписок не видел.

PS:Март,коты :D



Сообщение отредактировал doober - Среда, 12.03.2014, 21:21
 
Ответить
Сообщение
Цитата
Да,одинакова

Это уже хорошо,глянуть бы них

Цитата RAN, 12.03.2014 в 19:36, в сообщении № 7

Но если есть варианты прочитать сразу PDF,

Андрей,они всегда есть.
Файлик бы посмотреть,никогда таких выписок не видел.

PS:Март,коты :D
Автор - doober
Дата добавления - 12.03.2014 в 21:18
hatter Дата: Среда, 12.03.2014, 23:04 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация: 0 ±
Замечаний: 0% ±

Тут можно посмотреть My WebPage
 
Ответить
СообщениеТут можно посмотреть My WebPage
Автор - hatter
Дата добавления - 12.03.2014 в 23:04
doober Дата: Среда, 12.03.2014, 23:16 | Сообщение № 10
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
По фоткам лечат и помогают экстрасены.

 
Ответить
СообщениеПо фоткам лечат и помогают экстрасены.
Автор - doober
Дата добавления - 12.03.2014 в 23:16
hatter Дата: Среда, 12.03.2014, 23:59 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 160
Репутация: 0 ±
Замечаний: 0% ±

А так же делают вывод о том, что файл содержит информацию в табличной форме....
 
Ответить
СообщениеА так же делают вывод о том, что файл содержит информацию в табличной форме....
Автор - hatter
Дата добавления - 12.03.2014 в 23:59
Hugo Дата: Четверг, 13.03.2014, 00:11 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3255
Репутация: 707 ±
Замечаний: 0% ±

2019
Да какая разница, хоть в столбик...
Файл pdf покажите, как он есть, без изменений.

excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеДа какая разница, хоть в столбик...
Файл pdf покажите, как он есть, без изменений.
Автор - Hugo
Дата добавления - 13.03.2014 в 00:11
RAN Дата: Четверг, 13.03.2014, 00:11 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Классная информация! ;)
А что-либо из файла скопировать можно?
А прочитать его можно?
Если можно, то как?
И т.д., и т.п.

Вы забыли приложить к фоткам ответы на эти вопросы.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеКлассная информация! ;)
А что-либо из файла скопировать можно?
А прочитать его можно?
Если можно, то как?
И т.д., и т.п.

Вы забыли приложить к фоткам ответы на эти вопросы.
Автор - RAN
Дата добавления - 13.03.2014 в 00:11
doober Дата: Четверг, 13.03.2014, 00:18 | Сообщение № 14
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Они глубоко ошибаются.
У каждого объекта файла ПДФ много свойств.
На примере символа текста.
Координаты
Левый нижний X,Y
Левый верхний X,Y
Аналогично правые углы,параметры щрифта.
Таблицу можно создать,но обратно получить невозможно.

 
Ответить
СообщениеОни глубоко ошибаются.
У каждого объекта файла ПДФ много свойств.
На примере символа текста.
Координаты
Левый нижний X,Y
Левый верхний X,Y
Аналогично правые углы,параметры щрифта.
Таблицу можно создать,но обратно получить невозможно.
Автор - doober
Дата добавления - 13.03.2014 в 00:18
XMbIPb Дата: Среда, 16.12.2015, 14:34 | Сообщение № 15
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Цитата RAN, 12.03.2014 в 19:36, в сообщении № 7
С неделю назад столкнулся с этой проблемой
При Copy текста из ридера текст получается в юникоде, и конвертируется в ascii онлайн переводчиком.

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

Перелопатил весь интернет, но кроме данной ссылки, ничего не нашел.

Все, что Бог ни делает, все к лучшему.
 
Ответить
Сообщение
Цитата RAN, 12.03.2014 в 19:36, в сообщении № 7
С неделю назад столкнулся с этой проблемой
При Copy текста из ридера текст получается в юникоде, и конвертируется в ascii онлайн переводчиком.

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

Перелопатил весь интернет, но кроме данной ссылки, ничего не нашел.
Автор - XMbIPb
Дата добавления - 16.12.2015 в 14:34
Credo Дата: Четверг, 09.06.2016, 18:23 | Сообщение № 16
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Воспользуйтесь онлайн-сервисом это быстрее и удобнее, чем скачивать отдельный софт. К примеру я пользуюсь ссылка удалена


Сообщение отредактировал Pelena - Среда, 15.07.2020, 19:52
 
Ответить
СообщениеВоспользуйтесь онлайн-сервисом это быстрее и удобнее, чем скачивать отдельный софт. К примеру я пользуюсь ссылка удалена
Автор - Credo
Дата добавления - 09.06.2016 в 18:23
XMbIPb Дата: Воскресенье, 12.06.2016, 13:10 | Сообщение № 17
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Онлайн-сервисом нельзя. Макрос должен автоматически обрабатывать Outlook, скачивать PDF файлы, конвертировать их в тхт, потом в xls, и после дальнейшая автоматическая обработка. Если это делать вручную (через онлайн-сервис), то смысл всей автоматизации теряется.
P.S. решение данной проблемы уже нашел, и вся система уже работает.

Все, что Бог ни делает, все к лучшему.
 
Ответить
СообщениеОнлайн-сервисом нельзя. Макрос должен автоматически обрабатывать Outlook, скачивать PDF файлы, конвертировать их в тхт, потом в xls, и после дальнейшая автоматическая обработка. Если это делать вручную (через онлайн-сервис), то смысл всей автоматизации теряется.
P.S. решение данной проблемы уже нашел, и вся система уже работает.
Автор - XMbIPb
Дата добавления - 12.06.2016 в 13:10
RAN Дата: Воскресенье, 12.06.2016, 14:45 | Сообщение № 18
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата XMbIPb, 12.06.2016 в 13:10, в сообщении № 17
решение данной проблемы уже нашел, и вся система уже работает.

А с ближними поделиться?

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата XMbIPb, 12.06.2016 в 13:10, в сообщении № 17
решение данной проблемы уже нашел, и вся система уже работает.

А с ближними поделиться?
Автор - RAN
Дата добавления - 12.06.2016 в 14:45
XMbIPb Дата: Воскресенье, 12.06.2016, 16:11 | Сообщение № 19
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Хорошо, 21 июня выложу полный цикл с комментариями

Все, что Бог ни делает, все к лучшему.
 
Ответить
СообщениеХорошо, 21 июня выложу полный цикл с комментариями
Автор - XMbIPb
Дата добавления - 12.06.2016 в 16:11
RAN Дата: Воскресенье, 12.06.2016, 16:29 | Сообщение № 20
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Лунный цикл? :D
Или 22 война? :o

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 12.06.2016, 16:30
 
Ответить
СообщениеЛунный цикл? :D
Или 22 война? :o
Автор - RAN
Дата добавления - 12.06.2016 в 16:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Конвертация файла из .pdf в .xls (Макросы/Sub)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!