MS Excel

Dobrý den všem,
makrem převádím určité obsahy listu do .csv souborů.
pokud xlxm ukládám manuálně do formátu csv mám možnost volby rozdělování mezi "," a ";".
Pokud stejnou operaci udělám makrem tak se nový soubor *.csv zásadně ukládá s oddělovačem ",".
Toto je nevýhodné protože násldné operace nerospoznaji po kde se kolonka odděluje od finančních částek 150,50 a generuje se kolonka s obsahem 150 a další kolonka s obaseh 50.
pokyn v makru:
"ActiveWorkbook.SaveAs Filename:="P:\PS\PRODUKCE\st_produkce\" & Format(Now, "yy-mm-dd") & "_aktualizace_st_produkce.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWindow.Close
ActiveWorkbook.Save"

Jak musí znit pokyn aby exel ukládal s ";" ?

Může mě prosím nškdo pomoct?

Děkuji předem všem kteří jsou ochtni mne poradit.

Pavel

Zaslat odpověď >

Strana: 1 2 další »

Poki(21.8.2012 14:31)#009288

pridal jsem jednu vlastnost:
ActiveWorkbook.SaveAs Filename:="P:\PS\PRODUKCE\st_produkce\" & Format(Now, "yy-mm-dd") & "_aktualizace_st_produkce.csv", _
FileFormat:=xlCSV, CreateBackup:=False, Local:=Truecitovat

Plansecur(21.8.2012 15:00)#009289

Bohužel nepomohlo,
nejaké jiné nápady a zkušenosti?

I přesto SUPER a dík za vůly mne pomoct

Pavelcitovat

Poki(21.8.2012 15:03)#009290

takze pouzivas anglicke office?

jaky mas OS a office?

___
Mozna by mohlo pomoci, kdyz vynechas to dalsi ulozeni:
activeworkbook.savecitovat

Plansecur(21.8.2012 16:43)#009291

os máme wind. nt 2008 server
exel v pracovní části komunikuje CZ v části maker v agl. i pod F1 pomoc
Office 2007
bohužel i odnechání pokynu "activeworkbook.save" se opět csv uložilo s ","
Zasílám vystupúovýcitovat

Poki(21.8.2012 17:16)#009292

spis ukaz ten soubor, kde je makro - to ktere uklada csvcitovat

marjankaj(24.8.2012 11:49)#009311

V nápovede som našiel toto:

Zmena oddeľovača vo všetkých textových súboroch .csv
1.V systéme Microsoft Windows kliknite na tlačidlo Štart a potom kliknite na položku Ovládací panel.
2.Otvorte dialógové okno na zmenu miestnych a jazykových nastavení.
3.Do poľa Oddeľovač zoznamu zadajte nový oddeľovač.
4.Kliknite dvakrát na tlačidlo OK.
Poznámka Po zmene znaku oddeľovača zoznamu pre daný počítač budú všetky programy používať nový znak ako oddeľovač zoznamu. Nastavenie znaku môžete rovnakým postupom vrátiť na predvolený znak.citovat

Lano(11.10.2012 11:20)#009819

Zdravím,
ZNOVU otevírám tuto diskuzi, protože (alespoň pro mě) není ukončená :-) a stejný problém teď mám i já.
- podle Pokiho jsem přidal Local:=True
- podle marjanky mám nastavený oddělovač středníkem
Ale stejně mi to ukládá s čárkami.
Nebyl by ještě nějaký nápad ?
Používám Windows 7,64bit a Excel 2010 (obě české)
Díky za nápady

Příloha: rar

9819_import_csv.rar (32kB, staženo 36x)

citovat

Milan-D(11.10.2012 13:35)#009828

Kdyby to nekomu fakt neslo nastavit, tak se to jeste da udelat "hrubou silou", tedy bunku po bunce. Vystup muze byt *.txt nebo *.csv

Sub ExportCSVStredniky()
Dim rOblast As Range, rRadek As Range, rBunka As Range
Dim s As String

Set rOblast = ActiveSheet.UsedRange
Open ThisWorkbook.Path & "\bubu_1.csv" For Output As #1

For Each rRadek In rOblast.Rows
For Each rBunka In rRadek.Cells
If IsNumeric(rBunka.Value) And Not IsDate(rBunka.Value) Then
s = s & rBunka.Value & ";"
Else
If IsDate(rBunka.Value) Then rBunka.NumberFormat = "dd/mm/yyyy"
s = s & rBunka.Text & ";"
End If
Next
Print #1, s
s = ""
Next

Close #1

End Subcitovat

kp57(11.10.2012 19:22)#009841

Možná se pletu, ale koukl bych do regedit, jaká je tam nastavena volba pro Local.
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\Engines\Text
Format = Delimited(;)citovat

Skeptik.cz(2.6.2014 9:05)#019800

Perfektní! Přesně tohle funguje. Vyzkoušel jsem snad už všechno možné.
Chyba v ukládání maker není přímo závislá na nastavení počítače. Testoval jsem to na pěti různých konfiguracích. Je to chyba Office 2010 o které Micro$oft taktně mlčí.citovat

Strana: 1 2 další »

Téma: uložení do csv

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje