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

MS Excel

Téma: Makro - chyba ve formátu bunky

Zaslal/a Jakub_Kovarik 23.10.2012 16:57

Dobrý den,
zde je adresa pro makro: http://ulozto.cz/xQgMHYg/makro-soubory-rar

jedná se o to, ze mam ve slozce soubory, ktere se po spusteni makra s nazvem tu (makro s techto stranek) jednotlive poskladaji pod sebe a vznikne tabulka, nektere bunky se vsak presunou, tak ze z carky udelaji tecku a to je pro mne nezadouci. Mohl by mi nekdo poradit, jak toto zrusit? Dale by me zajimalo, proc se obcas soubory neskladaji pod sebe, tak jak jdou po porade ve slozce. Dekuji moc za odpoved.

Zaslat odpověď >

---

Strana:  « předchozí  1 2

Jakub_kovarik2(27.10.2012 13:23)#010067

Bohuzel mi to nefunguje. V jakem formatu bych to mel ukladat? Je to tim, ze to ukladam v xls.citovat

Jakub_kovarik2(27.10.2012 13:28)#010068

Jde o to, ze mam soubory v csv, ktere jsou importovany z obchodni platformy. Ty obrousim timto makrem:

Dim wbX As Workbook
Dim strPath As String

Set wbX = ActiveWorkbook
strPath = wbX.Path

/procedura/

strPath = strPath & "\"
strPath = strPath & Range("A1")
strPath = strPath & ".xls"
wbX.SaveAs Filename:=strPath


End Sub

/ procedura / je makro ze zaznamu, ktere vymaze nekolik radku, a rozdeli data podle ; do sloupcu. Kdyz se soubor ulozi, tak tam dojde k tomu, ze v nekterych bunkach se zmeni , za . a cislo je brano jako 1000. ale po spusteni makra je s carkou, takze chyba je v tom ulozeni a formatu.citovat

misocko(27.10.2012 13:49)#010069

podla toho jak to csv makrom ukladas tak myslim ze chyba bude v tom ze ulozis subor csv s koncovkou xls , avsak jeho vlastnosti asi budu nejake hybrid medzi csv a xls, akus zaznamenat makro ukladania csv do xls , pripadne mi posli zo dve csv aj s tvojim makrom nech sa na to pozremcitovat

Jakub_kovarik2(27.10.2012 16:32)#010071

diky za ochotu. Tady je to: http://ulozto.cz/xV5bgYu/mak-rarcitovat

misocko(28.10.2012 13:27)#010075

za wbX.SaveAs Filename:=strPath v tvojom kode dopln , _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

tak aby vysledok bol

wbX.SaveAs Filename:=strPath, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

a vyskusajcitovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse