Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

VB - Excel sabiranje istih cells iz Sheets u poseban .xls

[es] :: Visual Basic 6 :: VB - Excel sabiranje istih cells iz Sheets u poseban .xls

Strane: 1 2 3

[ Pregleda: 13254 | Odgovora: 44 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

noreniou
žarkovo-ak-žarkovo

Član broj: 6411
Poruke: 392
*.rcub.bg.ac.yu.



+120 Profil

icon VB - Excel sabiranje istih cells iz Sheets u poseban .xls 20.04.2005. u 15:06 - pre 231 meseci
Ljudi,

svaki ko zna koji put moj početak VB donosi obnavljanje, ali je želja za znanjem drugačija te molim za razumevanje.
Pomozite mi objašnjenjem code za sabiranje istih Cells iz istih Sheets i različitih fajlova i jedan Excel fajl.
Želim da saberem iste ćelije napr. F5 iz Sheets koji su u različitim fajlovima, ali ne unošenjem podataka u funkcionalnu statusnu liniju u Excel-u, već VB code-om.
Ne bih da prebacujem u bazu pa TransferSpreadsheet, mislim da bi VB to brže u Excel ukalkulisao-dakle Update pošto se podaci u Cells periodično menjaju.

Pretpostavljam da će iskusniji programeri objasniti ovo u nekoliko redova i hvala unapred.

Pozdrav prisutnima i posetiocima
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848



+4784 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 20.04.2005. u 15:30 - pre 231 meseci
Potrazi malo po forumu bilo je raznih pitanja o Excel-u.
Imas jedan primer ovde gde mozes videti kako se pristupa Excel dokumentu pa bi trebao lako uvideti kako mozes da postignes to sto ti treba.
 
Odgovor na temu

noreniou
žarkovo-ak-žarkovo

Član broj: 6411
Poruke: 392
*.yubc.net.



+120 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 20.04.2005. u 19:40 - pre 231 meseci
za Shadowed,


hvala ti ali nisam uspeo da nađem ili bar sada ne mogu da vidim gde je to.

Vidim da je u pitanju odgovor na Štampanje izveštaja, ako nisam zalutao...

Izvini pogledaću detaljnije.

Pozdrav i razumi me, to će mi biti dovoljno.
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 20.04.2005. u 20:24 - pre 231 meseci
Ako sam dobro shvatio, hoćeš da otvoriš dva excel fajla, uzmeš vrednost iz jednog (recimo cell C5), zatim iz drugog (isti cell, dakle C5) i njihov zbir smestiš u treći excel fajl, takođe u cell C5 ? Ako je to, reci, pa da nastavimo dalje, da ne pišem bez veze.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

noreniou
žarkovo-ak-žarkovo

Član broj: 6411
Poruke: 392
*.rcub.bg.ac.yu.



+120 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 21.04.2005. u 08:27 - pre 231 meseci
Marko,

nema druge.

Upravo to sam želeo, ali me je Shadowed uputio na tabelarne kalkulacije koje nisam stigao da pregledam sve.
Dakle preuzmem vrednost napr C5 iz jednog fajla, zatim C5 iz drugog najčešće saberem te dve vrednosti i unesem u C5 u trećem fajlu.
Ali vrednosti mogu kasnije da se izmene, tako da se Update automatski, ali ne bih unosio izraz u statusnu liniju za funkcije u excel, nego pomoću VBA.
Radi se o neklim obrascima u .xls formi iz Ministarstva finansija za budžetske korisnike.
Ne naplaćujem ništa, a može obaviti posao ljudima.

Možemo razmeniti poruke.

Hvala ti unapred

Neka
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 21.04.2005. u 14:42 - pre 231 meseci
Svakako bi trebalo da pogledaš ono što ti je Shadowed ostavio.Koristiće ti.
Elem, što se tiče ovoga što ti hoćeš, verovatno je najlakše da to odradiš nekako ovako:
Code:
Dim a As Long
Dim b As Long
Dim rezultat As Long
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
  
Set xlapp = New Excel.Application
Set xlbook = xlapp.Workbooks.Open("C:\Book1.xls")
Set xlsheet = xlbook.Worksheets(1)
a = xlsheet.Cells(5, 3)
Set xlbook = xlapp.Workbooks.Open("C:\Book2.xls")
Set xlsheet = xlbook.Worksheets(1)
b = xlsheet.Cells(5, 3)
rezultat = a + b
Set xlbook = xlapp.Workbooks.Open("C:\Book3.xls")
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Cells(5, 3) = rezultat

Dakle, radi se o cell-u C5.Isti princip je i za ostala polja.

[Ovu poruku je menjao Marko_L dana 21.04.2005. u 16:40 GMT+1]

[Ovu poruku je menjao Marko_L dana 21.04.2005. u 16:44 GMT+1]
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848



+4784 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 21.04.2005. u 15:32 - pre 231 meseci
Nazalost, na racuaru sa kojeg pristupam ES-u imam ogranicene mogucnosti srada sa VB-om pa nisam mogao nista konkretnije da ti napisem (ne mogu da dodajem reference na bilo sta a nisam hteo napamet pa da pogresim negde).
Nadao sam se da ces moci iz onog primera da izvuces bitan deo i iskoristis ali u svakom slucaju to je sa Marko fino sazeo.
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 21.04.2005. u 15:45 - pre 231 meseci
Zato sam ja pisao napamet i pogrešno deklarisao promenljive :)
Evo sada je ispravljeno.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 21.04.2005. u 16:02 - pre 231 meseci
E da, da ne zaboravim, takođe bi po završetku rada sa workbookom trebalo zatvarati ih, a ovaj zadnji u koji se unosi rezultat snimiti.Znači, bolje bi bilo da se kod postavi ovako.
Code:
Dim a As Long
Dim b As Long
Dim rezultat As Long
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
  
Set xlapp = New Excel.Application
Set xlbook = xlapp.Workbooks.Open("C:\Book1.xls")
Set xlsheet = xlbook.Worksheets(1)
a = xlsheet.Cells(5, 3)
xlbook.Close
Set xlbook = xlapp.Workbooks.Open("C:\Book2.xls")
Set xlsheet = xlbook.Worksheets(1)
b = xlsheet.Cells(5, 3)
xlbook.Close
rezultat = a + b
Set xlbook = xlapp.Workbooks.Open("C:\Book3.xls")
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Cells(5, 3) = rezultat
xlbook.Save
xlbook.Close
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

noreniou
žarkovo-ak-žarkovo

Član broj: 6411
Poruke: 392
*.yubc.net.



+120 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 21.04.2005. u 19:24 - pre 231 meseci
Marko _L & Shadowed,

Momci,

za sada Vam se zahvaljujem, mnogo i ako Vam se na mašincu nešto može pomoći javite.

Verujem da ću uraditi dosta toga i za praznike, guši me ministarstvo finansija nešto.


Prijatno kišno veče i gledajte punim plućima.

Pozdrav







Od skrivenog blaga i skrivenog znanja NIKAKVE koristi!
 
Odgovor na temu

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
*.rcub.bg.ac.yu.



Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 04.05.2005. u 11:13 - pre 230 meseci
Za Marka i poznavaoce


Imam još jednu dopunu.
Ako imam slučaj da .xls fajlove sa podacima korisnika u određenim ćelijama koje želim sabrati dobijam na FDD, a želim da brojne vrednosti iz određenih ćelija saberem sa prethodnim u posebnom .xls fajlu sa rezultatima zbira i tako dobijeni rezultat ostane zapisan trenutnim zbirom (koji se kasnije menja kada se učitaju novi podaci sa A:\), da li se zapisom


rezultat = a + b
Set xlbook = xlapp.Workbooks.Open("C:\Book3.xls")
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Cells(5, 3) = rezultat

xlbook.Save

xlbook.Close

čuva svako trenutno stanje zbira ili je potrebno da formiram temp .xls?

Molim te takođe za dopunu brojačem koliko je podataka iz fajlova (određene ćelije)trenutno sabrano u zbiru.

Hvala ti unapred

Pozdrav



Pre bih sa znalcem orao i kopao nego što bih sa Karleušom išao u bioskop!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 06.05.2005. u 20:52 - pre 230 meseci
Nisam siguran da sam razumeo šta želiš da postigneš.Hoćeš li da sabereš vrednosti iz neke ćelije i tim zbirom zameniš postojeći zbir u nekom trećem fajlu (u ovom slučaju Book3) ili da na taj postojeći zbir dodaš novi.U prvom slučaju će kod koji si sam postavio završiti posao.A u drugom slučaju samo promeni sledeću liniju
Code:
xlsheet.Cells(5, 3) = rezultat

u
Code:
xlsheet.Cells(5, 3) = xlsheet.Cells(5, 3) + rezultat

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
*.yubc.net.



Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 06.05.2005. u 21:46 - pre 230 meseci
Marko,

OK je sve, razumeo sam, ali ponoviću ti, pa nakon rezimea ti prokomentariši.
Iz fajla s1.xls , ćelije E3 napr. u prazan fajl ssve.xls u ćeliju E3 čija je početna vrednost 0 dodam E3 iz s1.xls.
Zatim iz fajla s2.xls, ćelije E3 preuzmem broj i saberem sa E3 iz fajla ssve.xls.
(koja sada već sadrži broj iz E3 fajla s1.xls)
Zatim iz fajla s3.xls, ćelije E3 preuzmem broj i saberem sa E3 u fajlu ssve.xls
(koja već sadrži zbir brojeva iz E3 fajla s1.xls i E3 iz fajla s2.xls)

i tako možda iz 20 tak fajlova napr. s20.xls preuzmem brojnu vrednost i saberem sa E3 u fajlu ssve.xls
(koja već sadrži zbir brojeva iz E3 fajla s1.xls do E3 iz fajla s19.xls).

Dobijen je neki zbir, ali bi mi trebao Counter da odredi koliko puta je sabran broj u ćeliji E3 fajla ssve.xls. i pokaže MsgBox "U ćeliji E3 sabrano je ukupno n brojeva".
U navedenom slučaju pokazaće MsgBox "Sabrano je 20 brojeva u ćeliji E3" fajla ssve.xls.
U svakom slučaju broj fajlova iz kojih se učitava broj iz ćelije E3 u ćeliju E3 fajls ssve.xls je različit, kod nekih korisnika biće 20, kod drugih 16, kod trećih 40 recimo i potrebno je pokazati iz koliko fajlova je dobije zbir ćelije E3.

Nadam se da sam uspeo da razjasnim sada.

Izvini što te možda "masiram", malo egzotike nije na odmet.
Sorry & thank You

Prijatno ti opet kišno veče, izađi u život, splav...pa pucnjava malo, pa racija..).

Hvala ti unapred


Pucaj na veliko, Mesec! Ako promašiš završićeš među zvezdama.
 
Odgovor na temu

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
*.yubc.net.



Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 06.05.2005. u 22:01 - pre 230 meseci
Marko,

samo jedna ispravka- dopuna.

tekst koji sam naveo u zagradama kazuje da ćelija E3 sadrži zbir prethodnih ćelija E3 ali do trenutka dok ne preuzme i sabere vrednost E3 iz tekućeg fajla:
Konkretno pre uzimanja vrednosti E3 iz fajla napr. s4.xls fajl ssve.xls sadrži zbir brojeva iz ćelija E3 do fajla s3.xls i sabrao je 3 broja, odnosno pre preuzimanja vrednosti broja iz ćelije E3 fajla s20.xls ćelija E3 fajla ssve.xls sadrži zbir E3 do fajla s19.xls.
Nakon preuzimanja broja i sabiranja E3 iz fajla s20.xls , sabrani su svi brojevi iz E3, a MsgBox javlja " Sabrano je 20 vrednosti!ENDE."

Pozdrav

Evo još jedne poručice za tebe ako ti izgledaju zanimljive.


Živi svoja uverenja i možeš promeniti SVET!
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 08.05.2005. u 16:52 - pre 230 meseci
Aha, znači ne znaš koliko tačno ima fajlova.Vidi u tom slučaju bi fajlovi trebalo da se imenuju po nekom šablonu.Ako će biti imenovani kao s1, s2, s3...onda nemaš problema.Najbolje bi bilo da napraviš neku petlju koja će da prođe kroz fajlove i izvuče im vrednost potrebnog polja, pa tako sabrane samo upiše u poseban fajl.Nešto ovako
Code:
Dim a As Long
Dim Brojac As Long
Dim rezultat As Long
Dim NemaFajlova As Boolean
Dim xlapp As Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Brojac = 0
rezultat = 0
Set xlapp = New Excel.Application
Do Until NemaFajlova = True
DoEvents
Brojac = Brojac + 1
Set xlbook = xlapp.Workbooks.Open("C:\s" & Brojac & ".xls")
Set xlsheet = xlbook.Worksheets(1)
a = xlsheet.Cells(3, 5)
rezultat = rezultat + a
xlbook.Close
If Dir("C:\s" & Brojac + 1 & ".xls") = "" Then NemaFajlova = True
Loop
Set xlbook = xlapp.Workbooks.Open("C:\ssve.xls")
Set xlsheet = xlbook.Worksheets(1)
xlsheet.Cells(5, 3) = rezultat
xlbook.Save
xlbook.Close
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing
Msgbox "Broj sabranih fajlova je " & Brojac

Pisao sam iz glave bez upotrebe VB-a, pa su moguće greške.Probaj, pa javi da li šljaka.
-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
*.yubc.net.



Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 08.05.2005. u 19:21 - pre 230 meseci
Marko,

proverio sam.
Mislim da si u delu teksta:

a = xlsheet.Cells(3, 5)
......................
xlsheet.Cells(5, 3) = rezultat

zamenio brojeve redova R3 i kolona C5 i da na oba mesta treba da stoji
a = xlsheet.Cells(5, 3) odnosno
xlsheet.Cells(5, 3).
Ali to je gut.

Brojevi fajlova su S1.xls, s2.xls ...tako da je to OK!

Međutim u fajlu ssve.xls se nakon startovanja Macros sa Code koji si napisao ne pojavljuje u Cells R5 C3 ništa
već se samo pojavi MsgBox "Broj sabranih fajlova je " i navede tačan broj.
Ono što se takođe desilo je da je prvi fajl s1.xls nakon Run zaključan tj. samo Read Only, iako su svi fajlovi zatvoreni kao i Aplikacija.

Pokušavam da ustanovim i imam još jednu konstataciju tj. mislim da svi Sheets iz fajlova moraju da se identično nazovu.
Uradio sam i Data Validation u svim .xls kao Whole Number, izmenio Dim As Long u Dim As Integer ali No Results.

Ah da, prilikom Debug Step Into u xlBook.Worksheet(1) pojavljuje se :
<Object Variable or With Block Variable not set>

Hvala ti unapred i pokušaj otkriti razlog Read Only prvog fajla.

 
Odgovor na temu

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
*.yubc.net.



Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 14.05.2005. u 19:00 - pre 230 meseci
Marko_L,

čoveče ima li te još.
Da li sam nešto pogrešno uradio?

Unesi svetlost u prostore katedrale.

pozdrav
 
Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org


+828 Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 14.05.2005. u 19:45 - pre 230 meseci
Čekaj malo, pa ti u stvari radiš makro u VBA ? A ja ti dao kod za VB.Onda ti je još lakše.Uradi ovako
Code:
Sub mojmakro()
Dim a As Long
Dim Brojac As Long
Dim rezultat As Long
Dim NemaFajlova As Boolean
Brojac = 0
rezultat = 0
Do Until NemaFajlova = True
DoEvents
Brojac = Brojac + 1
Excel.Workbooks.Open ("C:\s" & Brojac & ".xls")
a = Excel.Workbooks(2).Worksheets(1).Cells(3, 5)
rezultat = rezultat + a
Excel.Workbooks(2).Close
If Dir("C:\s" & Brojac + 1 & ".xls") = "" Then NemaFajlova = True
Loop
Excel.Workbooks(1).Worksheets(1).Cells(3, 5) = rezultat
Excel.Workbooks(1).Save
MsgBox "Broj sabranih fajlova je " & Brojac
End Sub

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti
 
Odgovor na temu

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
*.rcub.bg.ac.yu.



Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 17.05.2005. u 11:15 - pre 230 meseci
Marko_L,

učinilo mi se jednostavnije da direktno iz Macro-a, učitam Code i saberem.

Obavio si pos'a k'a lav.

Nije sramota ne znati.

Hvala ti veliko i pozdrav.





Stvarno si delija i ne ljuti se ako navijaš za Partizan!

 
Odgovor na temu

stefann127
Stefanovic Nebojsa
ITS
Beograd

Član broj: 55741
Poruke: 91
*.rcub.bg.ac.yu.



Profil

icon Re: VB - Excel sabiranje istih cells iz Sheets u poseban .xls 23.05.2005. u 09:11 - pre 230 meseci
Marko_L,

pisao sam ti PP.

Molim te izvini na uznemiravanju i javi mi neku ideju.
Znači problem se proširuje na sabiranje brojeva iz istih ćelija (sada ih ima više napr sabiranje brojeva od F5:H10 iz više fajlova s1.xls. s2.xls..s20.xls) u ista polja F5:H10 jednog fajla ssve.xls.
Hvala unapred.




Dolazi vreme ovakvih!
 
Odgovor na temu

[es] :: Visual Basic 6 :: VB - Excel sabiranje istih cells iz Sheets u poseban .xls

Strane: 1 2 3

[ Pregleda: 13254 | Odgovora: 44 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.