Příspěvky uživatele
< návrat zpět
Nejde mi o něco lepšího. Ten program mi pro osobní potřebu vyhovuje. Hledám akorát řešení, které by bylo nejlepší z pohledu cena/pohodlnost, tak aby to šlo použít i na více PC - včetně firemních. Určitě se nechci učit programovat, jen hledám nějaké nejmíň bolestné východisko.
Zdravím pánové, možná by mi někdo z Vás dokázal poradit.
Mám vytvořený "program v excelu", který:
- importuje informace z PDF
- ukládá informace do databáze (na druhém listu)
- vytváří podle několika proměnných šablony dopisů (Po kliknutí na tlačítko)
tedy docela komplexní program, který v sobě má docela dost VBA kódu.
Tento program mi naprosto vyhovuje, je ale problém s tím, že vyžaduje ke správnému běhu programy Microsoft Office a Adobe Acrobat. Pro jeden počítač to není problém, chtěl bych jej ale hodit na více PC (některé i firemní), a proto bych se chtěl zbavit té nutnosti mít nainstalované officy, nebo acrobat.
Přemýšlel jsem, jak by to šlo udělat a napadlo mě:
1) Zřídit nějaký server, kde by byl vlastní operační systém a potřebné programy.
- Tady se mi nelíbí náročnost provedení a také to, že by se musel koupit/pronajmout server, nebo nechat běžet nějaký PC stále zaplý.
2) Vytvořit webovou aplikaci, která by něco podobného uměla
- Tohle se mi líbí víc, ale nevím, jestli by bylo možné vytvářet šablony dopisů přes WEB (V pdf, nebo wordu)
3) Vytvořit nějaký vlastní prográmek, který by obešel nutnost mít excel a acrobat.
Co by podle vás byla nejlepší možnost? Popř. prosím navrhněte vlastní vizi.
Děkuji.
Ahoj, mohl by mi někdo poradit jak na následující problém?
Potřeboval bych makrem vyjmout všechny PDF dokumenty ve složce C:/faktury/ a vložit je do složky C:/stare_faktury/dnesni_datum/
Šlo by tohoto vůbec docílit přes makro?
Díky.
@Palooo
zkuste webtrh.cz
Hodně lidí tam např. potřebuje importy v excelu, atd...
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 = ActiveSheet
No, nakonec jsem sehnal Inda :). Nemohl jsem čekat. Cena 500 Kč za 3-4 hodiny práce.
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?
Zdravím, dělá někdo z Vás i programování v excelu na zákazku? Potřeboval bych vytvořit program, který by vytvářel šablony dopisů podle určitých kritérií (upravoval by v dopisu datum a oslovení podle určitých buněk v excelu). Těch šablon by ale bylo více (v různých adresářích) podle toho, jestli je to žena/muž, stálý zákazník, atd ...
Je to trochu více práce a proto se mi to tady nechce házet, aby to někdo udělal jen tak z dobré vůle. Je tady někdo, kdo by si chtěl tedy přivydělat? Kolik si účtujete na hodinu? Dík.
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/
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.
Super díky!
Aha, a dalo by se to nějak udělat aby se to automaticky přepočítalo podle té tabulky, která má definici v buňce A53? (Je to ta horizontální). Že by byl rozsah řádků podle toho, kolik je položek v tabulce, která je definována v A53
Narazil jsem na menší problém. Hodil jsem tam svůj kód aby to bylo nastavené pro activesheet. Řadí se to nějak divně. Prvních 13 hodnot se seřadí a vypíše správně, následující 3 ale špatně (seřadí se na konec, i když nejsou nejmenší).
Připojuju soubor a kód:
Private Sub CommandButton1_Click()
Dim i As Integer
Dim sRange As String
Dim ws As Worksheet
Application.ScreenUpdating = False
'Set the Worksheet object to the Active Sheet
Set ws = ActiveSheet
'Get the range from the Range Cell
sRange = Range("A53").Value
ws.Range(sRange).Copy
ws.Range("A56").PasteSpecial xlPasteAll, xlPasteSpecialOperationNone, False, True
Application.CutCopyMode = False
ws.Range("A56:B68").Sort ws.Range("B56"), xlDescending
'Clear the worksheet object
Set ws = Nothing
End Sub
díky :)
Ještě mně něco napadlo. Dalo by se to udělat tak, že že by se ty hodnoty rozsahu braly někde přímo z buňek? Tak aby se např. na každým listu do určitých buňek vepsala např:
A53 - zde by byl uveden rozsah tabulky nadpisů a dat (např A4:M5)
A54 - zde by byla uvedena buňka od které se má odstartovat to vypisování (Teď je to A56 a B56)
dík.
Uživatelské menu
\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