Uvoz vsebine excelove datoteke iz Outlook-a s pomočjo makra

Pomoč pri izdelavi makrov
Odgovori
Rolle
Prispevkov: 36
Pridružen: Sr Sep 23, 2009 1:28 pm

Uvoz vsebine excelove datoteke iz Outlook-a s pomočjo makra

Odgovor Napisal/-a Rolle »

Pozdravljeni,

V excelovo datoteko bi rad s pomočjo makra uvozil vsebino neke druge excelove datoteke, ki jo dobim kot priponko v Outlook-u. Kako bi to naredil?

Hvala za pomoč.
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Na žalost je to čisto presplošno vprašanje, da bi lahko imelo kakšen "uporaben" odgovor...

Pač preko VBA morate iz Outlooka dobiti e-pošto in iz nje izluščiti priponko. To priponko odprete v Excelu in iz nje poberete elemente, ki vas zanimajo ter jih zapišete v odprti dokument. Dokument iz priponke še zaprete in stvar je končana.
lp,
Matjaž Prtenjak
Administrator
bluespeed
Prispevkov: 47
Pridružen: Po Nov 20, 2006 8:25 pm

Odgovor Napisal/-a bluespeed »

Pa da to nadgradim...
Excel datoteka v obliki ime_datum_verzija.xls dobim na mail.
Želel bi, da ko mail pride, preveri ime in verzijo in me vpraša, če mi iz te datoteke nekaj vzame in mi prilepi v neko datoteko.

Hvala
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Takšen makro pa "na žalost" spada že pod tele makre...
lp,
Matjaž Prtenjak
Administrator
bluespeed
Prispevkov: 47
Pridružen: Po Nov 20, 2006 8:25 pm

Odgovor Napisal/-a bluespeed »

Saj to sem realno pričakoval 8)
Probat pa ni greh :oops: , sicer pa se sam kar ukvarajam s tem in ni hudič, da tega počasi sam skup ne spravim. Vseeno hvala za ponudbo, saj vem, kam se lahko obrnem, ko bom kaj takega potreboval.
Hvala.
bluespeed
Prispevkov: 47
Pridružen: Po Nov 20, 2006 8:25 pm

Odgovor Napisal/-a bluespeed »

Evo, je že sicer nekaj časa nazaj, pa vendar se moram pohvalit 8) , da sem malo po netu pobrskal, malo svojega znanja uporabil in sedaj imam makro, ki mi lepo čita po inboxu, išče željene priponke, jih obdeluje in shranjuje na željena mesta.
Rolle poizkusi, na netu je veliko nasvetov, ki bi rešili tvoj problem.
Rolle
Prispevkov: 36
Pridružen: Sr Sep 23, 2009 1:28 pm

Odgovor Napisal/-a Rolle »

Bluespeed,

sem iskal ampak nisem našel nič koristnega...mi lahko poveš kje si našel kaj uporabnega?
bluespeed
Prispevkov: 47
Pridružen: Po Nov 20, 2006 8:25 pm

Odgovor Napisal/-a bluespeed »

Rolle
Prispevkov: 36
Pridružen: Sr Sep 23, 2009 1:28 pm

Odgovor Napisal/-a Rolle »

Bluespeed, hvala za informacije. Bom videl kaj bo ratalo :D
Uros22
Prispevkov: 14
Pridružen: Če Jan 14, 2010 10:59 am

Odgovor Napisal/-a Uros22 »

Mogoče lahko pomagam z delčkom kode, ki v Outlook sporočilih shrani vse priloge. Če v rešitev dodaš še filter (IF) lahko uloviš ustrezno Excel datoteko, jo z VBA odpreš v Excel in odbdelaš.

Koda: Izberi vse

Sub ShraniOutlookPriloge()
    'zagon v Outlooku
    Dim ns As Namespace
    Dim inbox As MAPIFolder
    
    Dim enaPosta As Object
    Dim priponka As Attachment
    Dim imePriponke
        
    Set ns = GetNamespace("Mapi")
    Set inbox = ns.GetDefaultFolder(olFolderInbox)
    
    'preberi vso pošto
    For Each enaPosta In inbox.Items
        'MsgBox enaPosta.Attachments.Count
        'MsgBox enaPosta.Subject
        For Each priponka In enaPosta.Attachments
            imePriponke = "c:\test\" & priponka.Filename
            priponka.SaveAsFile imePriponke
        Next
    Next
End Sub
Lep pozdrav,
Uroš
Odgovori