iz txt v xlsx

Pomoč pri izdelavi makrov
Odgovori
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Odgovor Napisal/-a cedra »

Tudi meni stvar ni dala miru in sem še sam preizkusil izdelati makro za vaš problem. Makro skopirajte v nek zvezek, ki ga imate v isti mapi kot txt datoteke, ki jih želite preimenovati in ga poženite. Sam imam XP in office 2000. meni dela, preizkusite še vi in poročajte kaj je ratalo.
Tudi sam sem si pomagal z odgovori, ki so bili že dani tukaj in malo snemanja...

Koda: Izberi vse

Sub Preglej_txt_dat_v_mapi()

    Dim Mapa As String
    Mapa = Application.ActiveWorkbook.Path
    
 Application.ScreenUpdating = False
 
    Dim Datoteka
    Dim i As Integer
    i = 0
    Datoteka = Dir(Mapa & "\*.txt")
    Do While Datoteka <> ""

    i = i + 1
        Dim polnoIme As String
        
        polnoIme = Mapa & "\" & Datoteka
        Workbooks.OpenText Filename:= _
        polnoIme, _
        Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
    ActiveWorkbook.SaveAs Filename:= _
       Mapa & "\" & ActiveWorkbook.ActiveSheet.Name & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWindow.Close

        Datoteka = Dir()
    Loop
     Application.ScreenUpdating = True
     
     MsgBox "Najdeno in preimenovano " & i & _
     " txt datotek...", vbInformation, "Preimenovanje"

End Sub
lp,

cedra
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Odgovor Napisal/-a rick »

pozdravljen,
hvala in še enkrat hvala cedra,makro res lepo deluje in potem brez problema odpira xls datoteke,no ko pa sem poskusil v xlsx pa ni šlo.to mi enostavno ni jasno zakaj.....
še nekaj cedra,ko mi preimenuje(oziroma naredi nove datoteke xls),bi želel,da mi te shrani v mapo z imenom xls(se pravi,tam kjer so txt datoteke,naj se ustvari nova mapa xls,kamor bodo potem letele te xls datoteke).imam ogromno teh txt datotek,no na koncu pa so vse pomešane.mislim,da za vas to ne bo prehudo,za sebe pa to ne morem trditi,toliko sem te dni zgubil energije in se mi zdi,da sem še tisto pozabil,kar sem že nekoč znal.še ekrat se vam zahvaljujem in vas naprošam za nadaljno pomoč.
lp rick :)
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Odgovor Napisal/-a cedra »

Ustvarite v mapi, kjer imate txt datoteke, še eno mapo z imenom Xls in nato zamenjajte oz. popravite vrstico

Koda: Izberi vse

       
Mapa & "\Xls\" & ActiveWorkbook.ActiveSheet.Name & ".xls", _

Pri tistem xlsx, pa vam žal ne morem pomagati, ker imam drug Office (2000) Zadeve ne morem probat :(
lp,

cedra
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Odgovor Napisal/-a rick »

pozdravljen cedra

no,zdaj pa je tako kot je treba,kodo sem še malo priredil in deluje res lepo.
hvala cedra.bi pa bilo res lepo,če bi mi morda Matjaž povedal,kaj je potrebno še narediti,da bo odpiralo tudi xlsx datoteke.
sicer pa vse najlepše v tem forumu,ste pravi misleci.kapo dol.
če bo še kakšna ideja glede xlsx,bom zelo vesel.
lp rick
Odgovori