XLS - Oddelovac pri ulozeni do csv

[Stevik]

Potrebuji ulozit tabulku do csv. Pokud ukladam rucne, je vse ok, oddelovac je strednik a desetinna mista jsou oddelena carkou. Pokud to udelam pres makro, tak je oddelovac carka a desetinna mista jsou oddelena teckou. To mi nevyhovuje, protoze v tabulce musim mit carky. Jak donutit makro, aby pouzilo na oddelovac strednik. Ta tecka mi nevadi.

Dik!!!!

[Reklama]

[mike007]

Vítej na PC-Help!

Pošli mi sem to makro nejlépe s nějakým příkladem a kouknu kde je chyba.

[Stevik]

Moc dekuji za privitani!!!



Je to jeste polotovar

Kód: Vybrat vše

Sub exp04()
'
' exp04 Makro
' Makro zaznamenané 23.3.2008, eNEMY
'

'
    Sheets("Kontrola názvů").Select
    Sheets("Kontrola názvů").Copy
    ActiveWorkbook.SaveAs Filename:="E:\Export\karty.xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Application.UseSystemSeparators = True
    ActiveWorkbook.SaveAs Filename:="E:\Export\karty.csv", _
        FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWindow.Close
    Sheets("Ovládání").Select
End Sub


Mam hotovy sesit, jeho list ukladam jako jiny soubor a ten ukladam, jako csv. Excel mam 2003

[mike007]

Můžeš mi prosím poslat ještě nějaký příklad toho, co se snažíš uložit do csv?

[Stevik]

Poslal jsem pres ICQ

[mike007]

To cos mi poslal už bylo upravené nebo ne? Musíš mi poslat neupravená data.

[Stevik]

Poslal pres SZ, diky!

[mikel]

Problém je v tom, že VBA je vždy anglické, bez ohledu na jazykovou verzi Office. To znamená, že používá standardní anglické oddělovače.
Jediné, co mě napadá je nahradit anglické oddělovače za české po uložení do .csv pomocí Replace.

[Stevik]

Tak toho jsem se bal.

[mike007]

Tak aby jsme si trochu ujasnili, než budu dělat nějaké makro. Poslal jsi mi textový soubor ProImport.txt. Ten si otevřeš v excelu a zarovnáš do sloupců. Poté chceš takto upravená data uložit v xls a do csv chceš uložit neupravená data tj. data oddělená středníkem?

[Stevik]

Uplne presne
To je muj zamer.

[mike007]

To by neměl být problém. Zkusím něco vykoumat.