uvoz podatkov iz drugih zvezkov

Pomoč pri izdelavi makrov
Odgovori
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a rick »

Pozdravljeni,

imam težavo, pri uvozu podatkov iz drugih excel zvezkov
in sicer:

v mapi imam poljubno število datotek( od 12 do 20),
podatke v teh datotekah bi rad uvozil na en skupen zbirnik(imena teh datotek so poljubna).
Podatki se nahajajo v stolpcih od (a1:d350)
Ali v VBA obstaja rešitev za prenos teh podatkov? Verjamem,da so osebe
v forumu, ki to zmorejo.

za rešitev se vam že v naprej zahvaljujem.

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

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a admin »

Ker smo o podobnih temah že govorili sem vam želel podati povezavo do podobne tematike in našel sem vaše podobno vprašanje, ki ima tudi rešitev oz. ustrezen makro. No tematika sicer govori o seštevanju podatkov, a vse ostalo je popolnoma isto - odpiranje datotek, uvoz podatkov - v enem primeru jih seštevate, v drugem pa zapisujete...
lp,
Matjaž Prtenjak
Administrator
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a rick »

pozdravljen Matjaž,
najprej se zahvaljujem za odgovor
uporabil sem makro:

Koda: Izberi vse

 Sub ZdruziDatoteke()
    Dim Mapa As String
    Mapa = "c:\test"
   
    Dim NovaDatoteka As Workbook
    Set NovaDatoteka = Workbooks.Add
   
    Dim datoteka
    datoteka = Dir(Mapa & "\*.xls")
    Do While datoteka <> ""
        Dim wb
            Set wb = Workbooks.Open(Mapa & "\" & datoteka)
                For i = 1 To Sheets.Count
                If wb.Sheets(i).Name = "Moj list" Then Sheets(i).Copy before:=NovaDatoteka.Sheets(1)
            Next i
        wb.Close
        datoteka = Dir
    Loop
End Sub
zanima me, kako bi konkretno v zvezek prenos.xls prekopiral ostale liste( v mojem primeru mi odpre nov delovni zvezek in mi
zadevo zakomplicira).
za odgovor se zahvaljujem.
lp
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a admin »

Pod predpostavko, da se nahajate v delovnem zvezku v katerega želite uvoziti liste iz preostalih listov (mislim da je to tisto kar želite), potem samo spremenite vrstico:

Koda: Izberi vse

Set NovaDatoteka = Workbooks.Add
v vrstico:

Koda: Izberi vse

Set NovaDatoteka = ActiveWorkbook
lp,
Matjaž Prtenjak
Administrator
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a rick »

pozdravljeni,

Za odgovor se najlepše zahvaljujem,
zelo sem vesel vaše pomoči...
imel bi še eno vprašanje Matjaž, vendar bom odprl
novo temo.
lp
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a rick »

pozdravljeni,

pri tej tematiki bi imel še eno podvprašanje.
v mojem primeru mi združi liste ki se nahajajo v

Koda: Izberi vse

Mapa = "c:\test"
želel bi malo drugače in sicer
,da se jaz nahajam v tej mapi.
po domače: datoteko z makrojem dam v neko katerokoli mapo z ostalimi datotekami,
in kopiram podatke.
upam, da ste me razumeli.
za odgovor se zahvaljujem.
lp
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a cedra »

Če bi se malo potrudili in pobrskali po forumu, bi tudi vi našli odgovor tukaj: http://www.matjazev.net/forum/viewtopic ... +%3D#p5653
lp,

cedra
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a rick »

o
Zadnjič spremenil rick, dne Sr Sep 08, 2010 10:19 pm, skupaj popravljeno 1 krat.
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a rick »

pozdravljeni

Cedra, predlog, ki ste mi ga posredovali ni tisto
kar nakazuje koda, ki mi jo je napisal Matjaž.
Ta makro deluje prav, zanima me sledeče:
podana je pot, kaj če te poti ne napišem in se sam postavim
v to mapo?
zdajšnja pot je "c:\test"
kaj pa če se sam postavim v to mapo, a je potem "\" ali kaj , to me zanima?
za pomoč se zahvaljujem.
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a cedra »

Sploh me niste razumeli. Odgovor se ni nanašal na celo kodo ampak le na eno vrstico, torej...
vrstico...
Mapa = "c:\test"
zamenjajte s to:

Koda: Izberi vse

Mapa = Application.ActiveWorkbook.Path
pa mora stvar delovati!
lp,

cedra
rick
Prispevkov: 216
Pridružen: So Feb 17, 2007 9:18 pm

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a rick »

pozdravljen cedra,
najprej hvala,
no sedaj nastane problem, ker mi hoče odpret in kopirat tudi
ta zvezek v katerem imam makro.
ali se da tudi to rešiti?
za odgovor se zahvaljujem.
lp
cedra
Prispevkov: 264
Pridružen: Po Jul 25, 2005 11:11 pm
Kraj: Kamnik

Re: uvoz podatkov iz drugih zvezkov

Odgovor Napisal/-a cedra »

Pošiljam popravljen makro in mislim, da bo zdaj v redu... :D

Koda: Izberi vse

Sub ZdruziDatoteke()
     
        Dim Mapa As String
        Mapa = Application.ActiveWorkbook.Path
         Dim NovaDatoteka As Workbook
        Set NovaDatoteka = Workbooks.Add
         Dim datoteka
        datoteka = Dir(Mapa & "\*.xls")
   Do While datoteka <> ""
          On Error Resume Next
        If Workbooks(datoteka).Name <> "Abc.xls" Then ' ' 'Namesto "Abc" vpiši ime zvezka v katerem se nahaja ta makro!!!
            Dim wb
                Set wb = Workbooks.Open(Mapa & "\" & datoteka)
                        For i = 1 To Sheets.Count
                            If wb.Sheets(i).Name = "Moj list" Then Sheets(i).Copy before:=NovaDatoteka.Sheets(1)
                        Next i
                    wb.Close
        End If
            datoteka = Dir
    Loop
    
    End Sub
Popravite pa tisti "Abc", kot piše!
lp,

cedra
Odgovori