Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Export u csv file

[es] :: Access :: Export u csv file

[ Pregleda: 3552 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Bojan Vajagic
Beograd

Član broj: 126679
Poruke: 37
*.artcommunication.co.yu.



+4 Profil

icon Export u csv file05.04.2008. u 09:10 - pre 194 meseci
Drugari,


Eksportovao sam query u *.csv preko makroa (izabrao Transfer text, onda Transfer type: export delimited, odabrao putanju) i sve je u redu, samo bih promenio da umesto zareza (,) koji je delimiter bude tacka zarez (;). Kako da ovo izvedem?

Pozdrav!!!
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.66.*



+41 Profil

icon Re: Export u csv file05.04.2008. u 09:53 - pre 194 meseci
Koliko znam, prilikom exporta iz Excel-a u csv nemas mogucnost izbora vec se uzima karakter koji je definisan kao "list separator" u regionalnim podesavanjima Windows-a. Dakle, ako stavis u RS da je ";" list separator dobices to sto ti treba.
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.66.*



+41 Profil

icon Re: Export u csv file05.04.2008. u 10:20 - pre 194 meseci
A evo ti makro koji to radi, a da ne moras da menjas regionalna podesavanja:
Code:

Private Sub SacuvajUCSV()
    Dim Dlg As Object
    
    Set Dlg = CreateObject("MSComDlg.CommonDialog")
    Dlg.DialogTitle = "Izvoz u CSV"
    Dlg.CancelError = True
    Dlg.DefaultExt = "csv"
    
    On Error Resume Next
    Dlg.ShowSave
   
    If Err.Number <> 0 Then
        On Error GoTo 0
        Exit Sub
    End If

    Me.SaveAs Dlg.Filename, xlCSV
    On Error GoTo 0
    
    Set Dlg = Nothing
    
End Sub

Stvar je u adekvatnom izboru formata za CSV, a to mozes samo iz koda, koliko ja znam
 
Odgovor na temu

Bojan Vajagic
Beograd

Član broj: 126679
Poruke: 37
*.artcommunication.co.yu.



+4 Profil

icon Re: Export u csv file05.04.2008. u 10:21 - pre 194 meseci
100% si u pravu, promenio sam i to radi bas kako treba.

Hvala!!!
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.66.*



+41 Profil

icon Re: Export u csv file05.04.2008. u 11:30 - pre 194 meseci
A evo ti i resenje preko vbs fajla: Potrebno je samo da u notepad pastujes sledeci kod i sacuvas ga kao Export.csv
Code:

ExcelUCSV

'Procedura koja eksportuje prvi sheet iz book-a u csv
Sub ExcelUCSV()
    Dim ExcelApp
    Dim ExcelBook
    Dim Putanja

    Putanja = Replace(WScript.ScriptFullName, "vbs", "xls")

    'Kreiranje neophodnih excel objekata
    Set ExcelApp = CreateObject("Excel.Application")
    Set ExcelBook = ExcelApp.Workbooks.Open(Putanja)
    ExcelBook.Sheets(1).SaveAs Replace(Putanja, "xls","csv"), 6
    
    ExcelBook.Close True
   
    If ExcelApp.Workbooks.Count = 0 Then
       ExcelApp.Quit
    End If
   
    Set ExcelApp = Nothing

    MsgBox "Eksport je zavrsen!"

End Sub

Kad god ti bude trebao export od nekog excel fajla u csv, samo prekopiraj ovaj fajl u folder gde je excel i daj mu isti naziv, pa ga zatim izvrsi i vbs ce ti formirati csv fajl od tog tvog excela pod istim nazivomu tom istom folderu, a neces morati da otvaras excel ;)

Evo ti i fajlovi kao primer kako to radi:
Prikačeni fajlovi
 
Odgovor na temu

Bojan Vajagic
Beograd

Član broj: 126679
Poruke: 37
*.artcommunication.co.yu.



+4 Profil

icon Re: Export u csv file05.04.2008. u 11:52 - pre 194 meseci
Sad mi se desava kolonu cene koja mi je u access tabeli sa dve decimale, exportuje bez decimala (cene su zaokruzene na ceo dinar) (npr. 300,00 u exportu je 300). Tako da mi taj csv, kada ga importujem u drugi program pokazuje nerealnu cenu (300 u importu je 3,00).

Samo mi treba da u *.csv-u bude 300,00

Sta tu da radim!!!
 
Odgovor na temu

goranvuc
Goran Vucicevic
Novi Sad

Član broj: 4934
Poruke: 1846
79.101.66.*



+41 Profil

icon Re: Export u csv file05.04.2008. u 12:24 - pre 194 meseci
Ha, ja sam tek sad primetio da radis export iz Access-a a ne iz Excel-a, nisam ni primetio da je ovo access forum ;)

1. Prilikom exporta, kada ti se otvori "export text wizard" idi na advanced i tamo biraj koji hoces "field delimiter", biraj jezik, biraj decimalni simbol i sve ostalo.

ili

2. Prilikom odabira funkcije "Export" i kada odredis da hoces u txt;csv ukljuci opciju koja se pojavljuje za ovaj tip exporta "Save Formated"
 
Odgovor na temu

Bojan Vajagic
Beograd

Član broj: 126679
Poruke: 37
*.artcommunication.co.yu.



+4 Profil

icon Re: Export u csv file05.04.2008. u 13:44 - pre 194 meseci
Hvala!!!

Problem zareza sam resio sa regionalnim podesavanjima, a za decimale cu se pobrinuti kod kuce posto me teraju sa posla jer zakljucavaju kancelarijuuuuuuuuuuuuuuuu!!!

Javljam sta sam uradio.

Pozdrav.
 
Odgovor na temu

[es] :: Access :: Export u csv file

[ Pregleda: 3552 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.