ustvarjanje mape vba

Pomoč pri izdelavi makrov
Odgovori
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

ustvarjanje mape vba

Odgovor Napisal/-a luka_k »

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

Odgovor Napisal/-a cedra »

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
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

Odgovor Napisal/-a luka_k »

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

Odgovor Napisal/-a cedra »

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
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

Odgovor Napisal/-a luka_k »

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

Odgovor Napisal/-a cedra »

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

Odgovor Napisal/-a cedra »

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
luka_k
Prispevkov: 61
Pridružen: So Okt 01, 2005 9:00 pm

Odgovor Napisal/-a luka_k »

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 :)
Odgovori