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

ustvarjanje mape vba

Pomoč pri izdelavi makrov

ustvarjanje mape vba

OdgovorNapisal/-a luka_k » To nov 10, 2009 12:50 pm

pozdravljeni

kako bi se glasil makro in sicer,ki bi mi ustvaril mapo z imenom poletje,
ki bi se nahajala v isti mapi kot xls datoteka z makrom.
za odgovor se zahvaljujem.
lp
luka_k
 
Prispevkov: 61
Pridružen: So okt 01, 2005 9:00 pm



Matjazev.NET
 

OdgovorNapisal/-a cedra » To nov 10, 2009 6:39 pm

Makro se bi glasil takole:

Koda: Izberi vse
Sub Ustvari_mapo()

Dim fso
Dim Mapa As String

    Mapa = Application.ActiveWorkbook.Path & "\Poletje"
        Set fso = CreateObject("Scripting.FileSystemObject")
            If Not fso.FolderExists(Mapa) Then
                fso.CreateFolder (Mapa)
        Else
                MsgBox "Mapa -->  " & Mapa & " <--  že obstaja!", _
                vbExclamation, "Opozorilo"
            End If
           
End Sub
lp,

cedra
cedra
 
Prispevkov: 263
Pridružen: Po jul 25, 2005 11:11 pm
Kraj: Kamnik

OdgovorNapisal/-a luka_k » Sr nov 11, 2009 9:34 am

pozdravljen, :)

makro mi lepo deluje,za kar se vam iskreno zahvaljujem.me veseli,da ste me razumeli,kar sem napisal,bi pa še nekaj pri tem potreboval(nisem hotel dva vprašanja postavljat naenkrat),ker bi bilo preveč zakomplicirano
za razumevanje.in sicer:da bi mi vse datoteke xls ki se nahajajo v isti mapi kot mapa poletje preneslo v mapo poletje.
vidite,že povedati je težko.
za vašo nadaljno pomoč se iskreno zahvaljujem.
lp
luka_k
 
Prispevkov: 61
Pridružen: So okt 01, 2005 9:00 pm

OdgovorNapisal/-a cedra » Sr nov 11, 2009 3:32 pm

Sicer ne vem zakaj nebi datotek zvrstili po vrstah in nato izrezali želene datoteke in jih nato prilepili v mapo "Poletje"
No naj bo kakor pač je, tu je rešitev...
Koda: Izberi vse
Sub Premik_izbranih_datotek()
Dim fso
Dim StaraMapa As String, NovaMapa As String

StaraMapa = Application.ActiveWorkbook.Path
NovaMapa = Application.ActiveWorkbook.Path & "\Poletje"
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
    fso.MoveFile (StaraMapa & "\*.xls"), NovaMapa
   
End Sub


Pa še nekaj, vaši problemi bodo veliko preglednejši, če boste malo bolj pazili na SLO slovnico, predvsem na to, da je za vejico presledek. Pa brez zamere...
lp,

cedra
cedra
 
Prispevkov: 263
Pridružen: Po jul 25, 2005 11:11 pm
Kraj: Kamnik

OdgovorNapisal/-a luka_k » Sr nov 11, 2009 10:51 pm

pozdravljeni,

najprej bi se vam zahvalil za vašo pomoč, čeprav mi zadnji makro,
ki ste ga napisali ne stori ničesar, torej ne premakne mi xls datoteke
v mapo poletje.ali jih vam premakne?
torej, xls datoteka z makrom je v isti mapi, kot je
mapa poletje.ali delam kaj narobe?
za odgovor se zahvaljujem.


ps: kar se tiče preglednosti pisanja in vejic sprejmem kritiko in
se mi zdi ta na mestu.v bodoče se bom bolj trudil, moram si prebrati
tudi kakšno pravilo.vesel sem, da ste me na to opozorili.
luka_k
 
Prispevkov: 61
Pridružen: So okt 01, 2005 9:00 pm

OdgovorNapisal/-a cedra » Sr nov 11, 2009 11:19 pm

Hm, ne vem, kje bi lahko bil problem, da vam makro ne deluje?:(
Sam sem ga preizkusil kar nekajkrat, v različnih mapah in direktoriju. Vedno mi je delal brez napak. Morda pa vaše ime ni točno "Poletje", morda je kaj drugega, kak odvečen presledek? Najbolje, da napravite neko novo prazno mapo in vanjo daste zvezek z obema makroma, ki sem vam jih napisal in nekaj testnih xls datotek, ki se bodo prestavile v "Poletje" Nato pa najprej sprožite makro, ki vam ustvari mapo "Poletje" in nato še drugi makro, ki vam bo xls datoteke prestavil v "Poletje" V obeh makrih pa je važno ime "Poletje" Zvezek z makroma pa ostane, kjer je...
Kot sem že dejal, meni stvar funkcionira brez vsakega problema. OFFICE 2000!
lp,

cedra
cedra
 
Prispevkov: 263
Pridružen: Po jul 25, 2005 11:11 pm
Kraj: Kamnik

OdgovorNapisal/-a cedra » Če nov 12, 2009 12:08 am

Prav zanimivo, kaj sem ugotovil :shock:
Drugi makro, ki prestavi xls datoteke, prestavi samo tiste datoteke, ki so po abecedi pred imenom zvezka v katerem sta makra. Torej, če se zvezek, kjer imate makra imenuje npr. "Nek zvezek", vam bo makro prestavil tiste xls datoteke, ki se imenujejo na črko, ki je po abecedi pred "Nek zvezek". Pa tudi s šumniki ima teževe in jih ne prepozna. Torej, zvezkov ne bo prestavil, če se njegovo ime začne na Č, Š in Ž! Sicer vse nisem probal, za Š sem prepričan! Torej zvezek z makroma poimenujte npr "ZZZNek zvezek", potem pa bo šlo.
Lahko je to pač en hrošček.:twisted: Ker ga lahko pretentamo tako, kot sem vam napisal zgoraj, tudi nisem iskal druge rešitve...

Kako je pa ime vašega zvezka z makroma. Lahko, da je ime vzrok nedelovanja!
lp,

cedra
cedra
 
Prispevkov: 263
Pridružen: Po jul 25, 2005 11:11 pm
Kraj: Kamnik

OdgovorNapisal/-a luka_k » Pe nov 13, 2009 12:21 am

pozdravljen cedra,
no zdej mi deluje, nevem zakaj , nevem zakaj mi prej ni,je
pa res da s šumniki je drugače,noro....
če bi vas jaz kej tagega vprašal mi menda nebi verjeli...
res , nikoli nisi dovolj pameten...
hvala za vaš trud :)
luka_k
 
Prispevkov: 61
Pridružen: So okt 01, 2005 9:00 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron