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:=True
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
Pavel
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.save
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ý
Poki,
(21.8.2012 17:16)#009292 spis ukaz ten soubor, kde je makro - to ktere uklada csv
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.
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 Sub
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(;)
9819_Import_CSV.rar
WALL na Facebooku
RSS nejnovější články