..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

iz txt v xlsx

Pomoč pri izdelavi makrov

OdgovorNapisal/-a cedra » So nov 07, 2009 8:28 pm

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
cedra
 
Prispevkov: 264
Pridružen: Po jul 25, 2005 11:11 pm
Kraj: Kamnik



Matjazev.NET
 

OdgovorNapisal/-a rick » Ne nov 08, 2009 12:05 am

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 :)
rick
 
Prispevkov: 216
Pridružen: So feb 17, 2007 9:18 pm

OdgovorNapisal/-a cedra » Ne nov 08, 2009 12:20 am

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
cedra
 
Prispevkov: 264
Pridružen: Po jul 25, 2005 11:11 pm
Kraj: Kamnik

OdgovorNapisal/-a rick » Ne nov 08, 2009 8:44 am

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
rick
 
Prispevkov: 216
Pridružen: So feb 17, 2007 9:18 pm

Prejšnja

Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov

cron