Všechny jeden????citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Import PDF ze složky po startu excelu
Díky, funguje to krásně.
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
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
MS Excel
Téma: Import PDF ze složky po startu excelu 
Zaslal/a Plavacek 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: 
20767_pdf2xl.zip (25kB, staženo 20x)
20767_pdf2xl.zip (25kB, staženo 20x)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
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 Subcitovat
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 Subcitovat
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ě.
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
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
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 (13kB, staženo 17x)
citovat20851_pdf2excel.zip (13kB, staženo 17x)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
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články