< návrat zpět

MS Excel


Téma: uložení do csv rss

Zaslal/a icon 21.8.2012 14:22

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


Strana:  1 2   další »
icon icon#009288
Poki
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:=True
citovat
icon#009289
avatar
Bohužel nepomohlo,
nejaké jiné nápady a zkušenosti?

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

Pavelcitovat
icon icon#009290
Poki
takze pouzivas anglicke office?

jaky mas OS a office?

___
Mozna by mohlo pomoci, kdyz vynechas to dalsi ulozeni:
activeworkbook.savecitovat
icon#009291
avatar
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
icon icon#009292
Poki
spis ukaz ten soubor, kde je makro - to ktere uklada csvcitovat
icon#009311
avatar
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
icon#009819
Lano
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ápadycitovat
Příloha: file9819_import_csv.rar
icon#009828
avatar
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 Sub
citovat
icon#009841
avatar
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
#019799
avatar

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Novinky

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

Matematika

MiPa • 25.10. 19:32

Matematika

Pepa-R • 25.10. 13:40

Komentář - odkaz na buňku

frenk67 • 25.10. 2:11

Přiřazení datumu z noční směny z předešlého dne

marjankaj • 24.10. 21:18

Přiřazení datumu z noční směny z předešlého dne

OB • 24.10. 20:37

Matematika

MiPa • 24.10. 18:42

Součet buněk podle kategorií

Testament • 24.10. 18:15