nemirtinga rašė:
Gal žinote kaip iš Swedbanko "paimti" mokėjimo nurodymų sąrašą į exel'į, kad galėčiau pasidaryti mokėjimo nurodymų registravimo žurnalą. Viską subaksėti rankiniu būdu - baisiai didelis darbas.
Sudomino mintis,kaip geriau paimti iš Swed banko išrašą ir pritaikyti ekseliui(buhalterei prireikė Šiaulių banke komisiniams sumuoti pagal datą) ir gavosi visai neblogas rezultatas su UsrForm'a ir paleidimo mygtuku excelio panėlėje visose knygose.
Tinka visiems bankams : Swedui,Kredito Unijai,Šiaulių bankui,SEB,DNB. Žodžiu,visiems bankams iš kurių galima pasiimti išrašą *acc formatu.
Iš banko puslapio imame išrašą *acc(LITAS Esis) formatu,kaip į buhalterinę programą.Paskui *acc failą konvertuojame su nedideliu excelio VBA kodu ir sukuriame naują excelinę knygą.Excelio knyga su VBA kodu turi būti tame pačiame aplankale kaip ir *acc failas.
VBA kodą konvertavimui pridedu,gal kam pravers.Kodas konvertuoja visus aplankale rastus *acc failus ir naujoms excelio knygoms suteikia *acc failiukų pavadinimus.Kiekvienai knygai atitinkamą pavadinima,jei *acc yra keletas.
O jau kuomet turime normalią excelinę knygą,tai galima duomenis jau surikiuoti pagal savo poreikius.
Mokėjimo sumos po konvertacijos(nes *acc faile sumos visuomet - be kablelio) gaunasi be kablelio(12356=>123,56),jei tai netinka-vėl galima VBA kodą pritaikyti.Su tuo pačiu VBA sustumdyti ar išplėsti stulpelius jokių problemu.
VBA_kodas_konvertavimui.txt
_kas_gavosi.bmp