[ ramzesIV @ 19.06.2013. 20:41 ] @
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!!
[ FOX028 @ 19.06.2013. 21:56 ] @
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.
[ ramzesIV @ 19.06.2013. 22:32 ] @
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.
[ Jpeca @ 20.06.2013. 08:12 ] @
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
[ 3okc @ 20.06.2013. 12:56 ] @
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.
[ ramzesIV @ 20.06.2013. 20:08 ] @
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 :-)