Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 69891 Skopiuj do schowka import pdf to excel
Autor Wiadomość
sowa_222 
Stały bywalec Excelforum


Wersja: Win Office 2010
Posty: 271
Wysłany: 21-01-2021, 13:24   import pdf to excel

Witam mam taki kod
Kod:
Sub PDF_To_Excel()


Dim setting_sh As Worksheet
Set setting_sh = ThisWorkbook.Sheets("Setting")

Dim pdf_path As String
Dim excel_path As String

pdf_path = setting_sh.Range("E11").Value
excel_path = setting_sh.Range("E12").Value


Dim fso As New FileSystemObject
Dim fo As Folder
Dim f As File

Set fo = fso.GetFolder(pdf_path)

Dim wa As Object
Dim docx As Object
Dim wr As Object

Set wa = CreateObject("word.application")
 


'Dim wa As New Word.Application
wa.Visible = True
'Dim doc As Word.Document

Dim nwb As Workbook
Dim nsh As Worksheet
'Dim wr As Word.Range


For Each f In fo.Files
    Set docx = wa.documents.Open(f.Path, False, Format:="PDF Files")
    Set wr = docx.Paragraphs(1).Range
    wr.WholeStory
   
   
    Set nwb = Workbooks.Add
    Set nsh = nwb.Sheets(1)
    wr.Copy
   
    nsh.Paste
    nwb.SaveAs (excel_path & "\" & Replace(f.Name, ".pdf", ".xlsx"))
   
    docx.Close False
    nwb.Close False
Next

wa.Quit

MsgBox "Done"


End Sub




przechodzę krok po kroku i błąd wyskakuje w linii
Kod:
Set docx = wa.documents.Open(f.Path, False, Format:="PDF Files")


ma ktoś jakiś pomysł

błąd .jpg
Plik ściągnięto 15 raz(y) 79.62 KB

ID posta: 398719 Skopiuj do schowka
 
 
Rafał B.
Exceloholic



Wersja: Win Office 2016
Pomógł: 35 razy
Posty: 237
Wysłany: 21-01-2021, 16:09   

Jak zresetujesz komputer też się pojawia błąd? Może ustawiłeś wcześniej widoczność obiektu wa na ukryty, coś potestowałeś i zapomniałeś,, że wisi tam cały czas w pamięci.

Druga sprawa, to powiem Ci z doświadczenia- jeśli to możliwe, pliki małe, dysk SSD i nie zależy Ci na milisekundowej optymalizacji, a bardziej na rzetelności w działaniu: działaj na kopii a zaoszczędzisz sobie wielu kłopotów.

Na przykład wyobraź sobie scenariusz przypadkowego zawieszenia/restartu podczas otwierania Twojego pliku Word- automatycznie trafia do rejestru Windows i przy próbie jego otwarcia wyświetla się komunikat, że ostatnio był problem z otwarciem pliku- już makrem będzie Ci go bardzo ciężko otworzyć (nie wiem czy w Office 2010 też był ten mechanizm ostrzeżenia przed potencjalnie uszkodzonym plikiem, ale podejrzewam że tak).
_________________
Jest niemal niemożliwe nauczenie dobrego programowania uczniów, którzy byli narażeni na kontakt z BASIC: jako potencjalni programiści są okaleczeni, bez nadziei na poprawę. (Edsger Dijkstra, pionier informatyki).
Po części dotyczy również VBA.
ID posta: 398740 Skopiuj do schowka
 
 
sowa_222 
Stały bywalec Excelforum


Wersja: Win Office 2010
Posty: 271
Wysłany: 22-01-2021, 08:25   

może ktoś ma inny sposób zaciągnięcia danych w Excelu z dowolnego pliku pdf
ID posta: 398789 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2495 razy
Posty: 8288
Wysłany: 22-01-2021, 16:12   

sowa_222, możesz wstawić tego PDF-a ?
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 398848 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe