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

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

Pomoč pri izdelavi makrov

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

OdgovorNapisal/-a Rolle » Pe sep 25, 2009 11:36 am

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č.
Rolle
 
Prispevkov: 36
Pridružen: Sr sep 23, 2009 1:28 pm



Matjazev.NET
 

OdgovorNapisal/-a admin » Pe sep 25, 2009 12:07 pm

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
admin
Site Admin
 
Prispevkov: 3537
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a bluespeed » Pe okt 16, 2009 11:34 am

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
bluespeed
 
Prispevkov: 47
Pridružen: Po nov 20, 2006 8:25 pm

OdgovorNapisal/-a admin » Pe okt 16, 2009 11:53 am

Takšen makro pa "na žalost" spada že pod tele makre...
lp,
Matjaž Prtenjak
Administrator
admin
Site Admin
 
Prispevkov: 3537
Pridružen: Sr jul 20, 2005 10:06 pm

OdgovorNapisal/-a bluespeed » Pe okt 16, 2009 2:00 pm

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

OdgovorNapisal/-a bluespeed » Pe nov 06, 2009 10:36 pm

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.
bluespeed
 
Prispevkov: 47
Pridružen: Po nov 20, 2006 8:25 pm

OdgovorNapisal/-a Rolle » To dec 08, 2009 2:48 pm

Bluespeed,

sem iskal ampak nisem našel nič koristnega...mi lahko poveš kje si našel kaj uporabnega?
Rolle
 
Prispevkov: 36
Pridružen: Sr sep 23, 2009 1:28 pm

OdgovorNapisal/-a bluespeed » Sr dec 16, 2009 11:01 pm

bluespeed
 
Prispevkov: 47
Pridružen: Po nov 20, 2006 8:25 pm

OdgovorNapisal/-a Rolle » So jan 09, 2010 1:44 pm

Bluespeed, hvala za informacije. Bom videl kaj bo ratalo :D
Rolle
 
Prispevkov: 36
Pridružen: Sr sep 23, 2009 1:28 pm

OdgovorNapisal/-a Uros22 » Če jan 14, 2010 3:42 pm

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š
Uros22
 
Prispevkov: 14
Pridružen: Če jan 14, 2010 10:59 am


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov