[es] - vba save as csv + jos jedno pitanje o formatiranju

ramzesIV

Član broj: 263681
Poruke: 149
*.15.15.vie.surfer.at.

+6 Profil

vba save as csv + jos jedno pitanje o formatiranju

^{19.06.2013. u 20:41 - pre 132 meseci}

da li mi neko moze pomoci u vezi dva problema:

prvo makro koji ce snimiti excel kao csv, ali sa nemackim formatom, ne engleskim.

makro je u sustini glup. samo kopira podatke iz jednog sheet-a, paste.special:

da sad ne kopiram sve, ovo je kraj makroa:
...

Workbooks.Add Template:="Tabela"

Range("A1").Select

ActiveSheet.Paste

Application.CutCopyMode = False

ActiveSheet.Activate

ActiveWorkbook.SaveAs Filename:= _

"MyDocumentsl\Import.csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True

Windows("Import.csv").Activate

ActiveWorkbook.Close True

Windows("Todays.xlsm").Activate

ActiveWorkbook.Close True

Application.DisplayAlerts = True

End Sub

kad ga otvorim u nemackom excelu, treba da dobijem umesto "," ovo ";". i umesto "." ovo ",".

da li postoji neki nacin da excel pomocu makroa ipak snimi csv nemacki format?

2. drugo pitanje je.

ako u sheetu npr. red 5 podvucem debelom linijom jer je tu datum kraj godine. da li ta linija uvek ostaje u redu 5 ili moze da se pomera kad se updatuje sheet
taj datum kraj godine padne na 6 ili 7 red. ja hocu da ta linija se pomera zajedno sa tim datumom.

hvala unapred na svakoj pomoci!!

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: vba save as csv + jos jedno pitanje o formatiranju

^{19.06.2013. u 21:56 - pre 132 meseci}

Za ovo drugo pitanje bi ti predlozio Condition Formating.

A za ovo prvo pitanje, tebi je potrebno da u tekstu zamenis , u ; i . u , ako sam dobro shvatio.
Sta mislis da pokusas sa Replace. Nisam probao samo dajem predlog.

[email protected]=

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.15.15.vie.surfer.at.

+6 Profil

Re: vba save as csv + jos jedno pitanje o formatiranju

^{19.06.2013. u 22:32 - pre 132 meseci}

ne razumem samo kako da umesto zareza stavi ;?

tabela se sastoji od:
kolone a, d, g, ... datumi, npr. 23.05.2013
kolone b, e, ... brojevi, npr. 123,45
kolone c, f, ... prazne

sad makro treba da sacuva datume u csv kao sto je napisano, ove zareze da ostanu zarezi gde su brojevi, a ove kolone prazne treba da bude ; a ne kao sto meni sad makro snimi kao ,

hvala za ovo drugo. pokusacu.

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: vba save as csv + jos jedno pitanje o formatiranju

^{20.06.2013. u 08:12 - pre 132 meseci}

U komandi SaveAs ... FileFormat = xlCSV... opcija Local:=True trebalo bi da poštuje ono što je postavljeno u Regionalnom setovanju - proveri opciju Additional Settings (dijalog Customize Format) List separator

Ako ti ne odgovara da menjaš regionalna setovanja pogledaj jedno fleksiblno rešenje za Export (i import) http://www.cpearson.com/excel/ImpText.aspx

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: vba save as csv + jos jedno pitanje o formatiranju

^{20.06.2013. u 12:56 - pre 132 meseci}

U slučaju da ovo prethodno ne upali, imaš ovo parče koda, od Patrika O'Berna (Patrick O'Beirne)

Code:

Option Explicit

Sub SaveActiveWorkbookAsCSVUTF8()
'add any warnings you like about saving and overwriting, and error handling
Dim strFullName As String, wbActive As Workbook, strCSVName As String

    Set wbActive = ActiveWorkbook
    strFullName = wbActive.FullName
    strCSVName = strFullName & ".csv" ' eg .xlsx.csv
    wbActive.Save ' to be sure
    wbActive.SaveAs Filename:=strCSVName, FileFormat:=xlUnicodeText ' tab delimited
    wbActive.Close savechanges:=False
    Workbooks.Open strFullName ' re-open presumably wanted

    ' now convert tabs to commas
    Dim handle As Long, sText As String
    handle = FreeFile()
    Open strCSVName For Binary As #handle
    sText = Space(LOF(handle)) ' enough spaces for entire file contents
    Get #handle, , sText
    sText = Replace(sText, vbTab, Application.International(xlListSeparator))
    Put #handle, 1, sText
    Close #handle
End Sub

Što se ovog drugog tiče - debele linije nisu dostupne za uslovno formatiranje. -Prema tome, samo VBA.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

ramzesIV

Član broj: 263681
Poruke: 149
*.15.15.vie.surfer.at.

+6 Profil

Re: vba save as csv + jos jedno pitanje o formatiranju

^{20.06.2013. u 20:08 - pre 132 meseci}

pokusala sam i jedan i drugi nacin, medjutim nista od toga nije ono sto mi treba i da mogu da upotrebim dalje.

pa smo resili tako sto sad direktno u sistem preko makroa snimam podatke.

verovatno cu sledece nedelje pisati, pa ... verovatno cu se ponovo javiti sa pitanjima. ovo ce sad biti malo komplikovanije.

nesto kao da makro u odredjen url snima podatke za odredjen indeks, recimo poslednjih 5 dana, datum i cenu, taj indeks je ima svoj kod, i taj kod povezujem sa datumom i cenom i to mora za svih pet dana. i onda da predje na drugi kod, pa treci i tako do kraja.

nemam pojam kako to da izvedem, ali javicu se ja jos :-)

Odgovor na temu