• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Export prostý text a struktura souboru

Zaslal/a Alfan 27.8.2015 8:50

Dobrý den,
banka po nás chce pohledávky (POS) v určitém formátu a struktuře.
Já vyexportuji v excelu POS (viz list "matrice").
A na listu "export" jsem se pokusil pomocí vzorců docílit požadované struktury (viz *.pdf v příloze).
Nicméně si nedokážu poradit s kontrolou počtu znaků u IČO a případně doplnit chybějící znaky mezerami tak, jak chce banka a hlavně nedokáži docílit formátu té částky tak, jak to požaduje banka.
Nikdy nevím, kolik budu mít řádků POS, ale to by asi nebyl problém protáhnout vzorce.
Pokud by se mi podařilo dostat data do požadovaného formátu, tak bych je už jen potřeboval vyexportovat bez záhlaví sloupců ve formátu prostého textu tak, jak to chce banka.
Mohl byste mi někdo prosím poradit?
Děkuji

Příloha: 26450_pos-rb-wall.rar (63kB, staženo 28x)

Zaslat odpověď >

---

Strana:  « předchozí  1 2 3   další »

eLCHa(28.8.2015 14:07)#026488

Tak to vraťte zase zpátky ;))

Pokud Vám to načítá i první 2 řádky, pak ten druhý řádek není prázdný (je to jinak než v příloze)
Zkuste nahraditFor Each rRow In Cells(3, 1).CurrentRegion.RowszaFor Each rRow In Range(Cells(3, 1), Cells(Rows.Count, 6).End(xlUp)).RowsTa 6 znamená počet sloupců.citovat

Alfan(28.8.2015 14:11)#026489

Jj, tak teď už to je dobře.
Vrátil jsem tam zpět i tu 1
A ten poslední prázdný řádek tam musí být?

Děkujicitovat

eLCHa(28.8.2015 14:12)#026490

Pokud vadí ten další řádek, tak nahraďtePrint #iFile, Mid$(sPrint, 1, Len(sPrint) - 2)zaPrint #iFile, Mid$(sPrint, 1, Len(sPrint) - 4)citovat

Alfan(28.8.2015 14:20)#026492

Když to nahradím, tak mi to zkrátí poslední záznam o dva znaky.
Takže pak ten poslední řádek nemá 66 znaků, ale jen 64.citovat

eLCHa(28.8.2015 16:44)#026496

Aha - já to už nezkouším, jen tipuju ;)

Tak tam určitě nechte to -2.
Pokud Vám to někdo nevyřeší, tak na to kouknu příští týden.
Print prostě vkládá svůj konec řádku.citovat

Alfan(28.8.2015 16:57)#026497

Jj, děkuji.
Já vydržím citovat

eLCHa(28.8.2015 16:59)#026498

Tak ještě zkuste přidat středníkPrint #iFile, Mid$(sPrint, 1, Len(sPrint) - 2);citovat

Alfan(28.8.2015 17:04)#026499

V pondělí na to kouknu.
Nemám u sebe NB a v BlackBerry Passport mi makra v Excelu makat asi nebudou citovat

Alfan(31.8.2015 7:15)#026526

Děkuji, ten středník na konci pomohl a už tam není řádek navíc. citovat

Alfan(3.9.2015 13:07)#026612

Dobrý den,
já edituji ten kód pro jinou banku, která to chce pro jistotu v *csv...
Nicméně se mi to zřejmě podařilo, jen bych potřeboval poradit s touto částí kódu
Dim s1 As String * 120, s2 As String * 30, s3 As String * 3, s4 As String * 120, s5 As String * 10, s6 As String * 3, s7 As String * 13, s8 As String * 13, s9 As String * 10, s10 As String * 10
ty hodnoty délek jsou maximální. To znamená, že to nesmí přesáhnout v každém poli tuto délku.
Jenže, pokud to mám takto, tak mi to nejde naimportovat do bankovního systému.
Pokud, ale zruším ty délky polí, tak to funguje, protože se to vyexportuje bez "mezer" navíc.
Dá se to do těch délek zapsat ak, aby se tam ty mezery navíc nedělaly a je se kontroloval počet znaků v poli?
Např.
Dim s1 As String * maximum 120

Děkujicitovat

Strana:  « předchozí  1 2 3   další »

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse