uvoz podatkov iz drugih zvezkov
uvoz podatkov iz drugih zvezkov
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
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
Re: uvoz podatkov iz drugih zvezkov
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
Matjaž Prtenjak
Administrator
Re: uvoz podatkov iz drugih zvezkov
pozdravljen Matjaž,
najprej se zahvaljujem za odgovor
uporabil sem makro:
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
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
zadevo zakomplicira).
za odgovor se zahvaljujem.
lp
Re: uvoz podatkov iz drugih zvezkov
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:
v vrstico:
Koda: Izberi vse
Set NovaDatoteka = Workbooks.Add
Koda: Izberi vse
Set NovaDatoteka = ActiveWorkbook
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: uvoz podatkov iz drugih zvezkov
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
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
Re: uvoz podatkov iz drugih zvezkov
pozdravljeni,
pri tej tematiki bi imel še eno podvprašanje.
v mojem primeru mi združi liste ki se nahajajo v
ž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
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"
,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
Re: uvoz podatkov iz drugih zvezkov
Č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
cedra
Re: uvoz podatkov iz drugih zvezkov
o
Zadnjič spremenil rick, dne Sr Sep 08, 2010 10:19 pm, skupaj popravljeno 1 krat.
Re: uvoz podatkov iz drugih zvezkov
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, 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.
Re: uvoz podatkov iz drugih zvezkov
Sploh me niste razumeli. Odgovor se ni nanašal na celo kodo ampak le na eno vrstico, torej...
vrstico...
pa mora stvar delovati!
vrstico...
zamenjajte s to:Mapa = "c:\test"
Koda: Izberi vse
Mapa = Application.ActiveWorkbook.Path
lp,
cedra
cedra
Re: uvoz podatkov iz drugih zvezkov
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
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
Re: uvoz podatkov iz drugih zvezkov
Pošiljam popravljen makro in mislim, da bo zdaj v redu...
Popravite pa tisti "Abc", kot piše!
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
lp,
cedra
cedra