< návrat zpět

MS Excel


Téma: Import PDF ze složky po startu excelu rss

Zaslal/a 29.7.2014 23:05

Ahoj, potřeboval bych menší pomoc.

Mám k dispozici kód VBA, který po kliknutí na tlačítko a zvolení cesty naimportuje do excelu data z PDF souboru.

Potřeboval bych to trochu upravit tak, aby:
1) se do excelu naimportoval PDF soubor hned po otevření toho excelového souboru
2) aby byla cesta k tomu souboru pevně stanovená (C:/excel/) ... v té složce bude vždycky jen jeden PDF soubor, bude se měnit jen název (takže by bylo dobré, kdyby to šlo udělat tak, aby se naimportovali všechny soubory z té složky(bude tam jen jeden) a né aby se to importovalo podle pevného názvu).

Šlo by to nějak udělat?

Díky za připomínky.

P.S.: přikládám soubor toho importu.

P.S2: je potřeba mít nainstalovaný adobe acrobat, aby to fungovalo.

Příloha: zip20767_pdf2xl.zip (25kB, staženo 20x)
Zaslat odpověď >

#020768
avatar
Všechny jeden????citovat
#020769
avatar
No, on v té složce bude vždycky jenom jeden PDF soubor, ale bude se měnit po pár dnech jeho název. Takže by to nesmělo být nastaveno na pevno jako import C:/excel/abc.pdf ale import C:/excel/citovat
#020770
€Ł мσşqμΐτσ
do thisworkbook vložit:
Private Sub Workbook_Open()
Dim pdf As String, pdf_name As String
pdf_name = Dir("C:\Excel\" & "*.pdf")
pdf = "C:\Excel\" & pdf_name
If Not pdf_name = "" Then Call Imp_Into_XL(pdf, False) Else MsgBox "Složka neobsahuje žadný Pdf soubor"

End Sub
citovat
#020849
avatar

mosquito791 napsal/a:

do thisworkbook vložit:
Private Sub Workbook_Open()
Dim pdf As String, pdf_name As String
pdf_name = Dir("C:\Excel\" & "*.pdf")
pdf = "C:\Excel\" & pdf_name
If Not pdf_name = "" Then Call Imp_Into_XL(pdf, False) Else MsgBox "Složka neobsahuje žadný Pdf soubor"

End Sub


Díky, funguje to krásně. 10

Teď mě napadlo, šlo by ten kód upravit tak, aby se to importovalo hned do toho prvního listu? (Aby se nevytvářel nový list) Prostě všechno do listu1 sloupec A. To bude asi úprava přímo toho zdrojového kódu že?citovat
#020851
€Ł мσşqμΐτσ
Smazal jsem pár řadů ve zdrojovém kódu a smazal i userform.
Bohužel odzkoušet nemohu, jelikož tady v práci nemám nainstalovaný adobe acrobat.
Snad jsem nesmazal něco co jsem neměl 5
Příloha: zip20851_pdf2excel.zip (13kB, staženo 17x)
citovat
#020858
avatar

mosquito791 napsal/a:

Smazal jsem pár řadů ve zdrojovém kódu a smazal i userform.
Bohužel odzkoušet nemohu, jelikož tady v práci nemám nainstalovaný adobe acrobat.
Snad jsem nesmazal něco co jsem neměl Příloha: 20851_pdf2excel.zip


Hazí to run time error 91
object variable or With block variable not set

po zmačknutí debug, to hodí na tuhle linku:
WS_PDF = ActiveSheetcitovat
#020861
€Ł мσşqμΐτσ
WS_PDF = ActiveSheet
ještě to chce nasetovat
Set WS_PDF = ActiveSheet
sorry moje chyba 5citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09