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

ubacivanje vise workbook-ova u jedan workbook

[es] :: Office :: Excel :: ubacivanje vise workbook-ova u jedan workbook

Strane: 1 2

[ Pregleda: 4591 | Odgovora: 25 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.13.*



+2 Profil

icon ubacivanje vise workbook-ova u jedan workbook10.01.2016. u 10:16 - pre 99 meseci
kako ubaciti vise workbook-ova (koji imaju po jedan sheet) u jedan workbook ili u vise sheet-ova ili u jedan? I ako mora u vise sheet-ova da li postoji mogucnost podatke prebaciti u jedan sheet?
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.13.*



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook10.01.2016. u 11:29 - pre 99 meseci
http://www.extendoffice.com/do...ombine-multiple-workbooks.html


http://excel.tips.net/T003148_...iles_to_a_Single_Workbook.html

nasao sam ova dva pa ako moze objasnjenje za prvu metodu, kako bi se primenila sa drugim workbook
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.ptt.rs.



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook13.01.2016. u 15:20 - pre 99 meseci
Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub

probao sam ovaj kod samo sam zamenio Path = "C:\Users\dt\Desktop\dt kte\" (ime foldera) ali ne reaguje. Neko resenje?
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2267
212.200.121.*

Sajt: www.gowi.rs


+109 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook14.01.2016. u 15:38 - pre 99 meseci
Kod koji si naveo u prethodnom postu GetSheets radi korektno. Ja sam napravio jedan pom. folder kod mene i probao. Ne znam šta o kakvom problem kod tebe?
Iz zadatog foldera (Path) uzima sve fajlove sa ekstenzijom xls (Da nisu kod tebe xlsx ?) otvara jedan po jedan u petlji Do While ...Loop i kopira u tekuću radnu svesku iza prvog lista sve listove iz otvorene radne sveske (ActiveWorkbook.Sheets)

Jedini "problem" koji sam ja imao je dijalog da li treba snimanje pri zatvaranju radne sveske (Workbooks(Filename).Close) i to se može izbeći sa dodatnom opcijom
savechanges:=False

Ako hoćeš da iskopiraš samo prvi list iz svake otvorene radne sveske onda možeš da izostaviš unutrašnju petlju pa bi kod bio
Code:

Sub GetSheets()
Path = "D:\ExcelTmp\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
    Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     ActiveWorkbook.Sheets(1).Copy After:=ThisWorkbook.Sheets(1)
    Workbooks(Filename).Close savechanges:=False
    Filename = Dir()
Loop
End Sub


Ako hoćeš da kopiraš sve u jedan list onda umesto linije ActiveWorkbook.Sheets(1).Copy After:=ThisWorkbook.Sheets(1) pozovi proceduru za koprianje iz otvorene radne sveske iza poslednjeg popunjenog reda u aktivnom listu. Nešto slično već imaš http://www.elitesecurity.org/t488149-import-data-from-web

Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.13.*



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook14.01.2016. u 16:07 - pre 99 meseci
Microsoft Office Excel 97-2003 Worksheet (.xls) format.
Da li bi mogao snimiti macro da ga okacis?
Uspem da ga snimim ali nista ne reaguje, a sad mi je pokazivao I error za patch name.
Treba samo da promenim patch name?
Da li treba ja da otvaram dodatne sheet-ove? U folderu imam deset workbooks-a
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.13.*



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook14.01.2016. u 17:02 - pre 99 meseci
I da, da li sheet mora biti tog imena ili sheet moze biti imenovan "radno", "radno2" itd ili drugacije imena, ovo su imena sheet-ova koji se ubacuju?
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.mts.telekom.rs.



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook15.01.2016. u 12:43 - pre 99 meseci
Ovako sam uradio otvorio alt+f11,dvoklik na this workbook ubacio kod,zamenio path,i pokusao da snimim na f5 i karticu save i pokazuje gresku compile error:cant assign to read-only propertly, i obelezen je zutom bojom prvi red a na drugi pokazuje strelicu i ovo prethodno pise
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2267
212.200.121.*

Sajt: www.gowi.rs


+109 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook15.01.2016. u 13:58 - pre 99 meseci
Gornji kod nije vezan za događaje radne sveske, dodaješ ga u poseban modul. Ako imaš nameru da radiš sa VBA probaj da nađeš neku literaturu i proučiš malo.

Možeš da počneš od ove teme
http://www.elitesecurity.org/t222802-Office-Rad-sa-makroima
i
http://www.elitesecurity.org/t390785-excel-vba

Što se tiče podpitanja, mogu listovi da se nazovu kako god hoćeš. Copy radi kopiju pod postojećim imenom - a da zameniš ime aktivnom listu:
ActiveSheet.Name = "KakoTrebaDaSeZove"
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.dynamic.vipmobile.rs.



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook15.01.2016. u 14:45 - pre 99 meseci
Uradio sam po prvom linku kopirao snimi i jedino nisam nasao tools pa macro pa ono trece nisam nasao. Koristim e2003 security je na medium a fajlovi su xls. Prpbao sam da zatvorim workbook ppkrenem ponovo pa ide macro prihvatim i on otvori praznu sa tri prazna sheeta. Prilog kako sam uradio.
Prikačeni fajlovi
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2267
212.200.121.*

Sajt: www.gowi.rs


+109 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook15.01.2016. u 15:07 - pre 99 meseci
U oba primera imaš backslash "\" na kraju promenljive Path.

Ovakvi i slični problemi su uobičajeni prilikom pisanja koda pa je bitno da se upoznaš kako de debaguješ kod i vidiš u čemu je problem
Kratko o debagovanju
video
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.dynamic.vipmobile.rs.



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook15.01.2016. u 16:12 - pre 99 meseci
Hvala na pomoci i smernicama. Dodao sam u path \ na kraju ime foldera i pritusnuo f5 i poceo je da otvara. Kao sto si ti naveo nidio mi da snimim workbook koji ubaci
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.dynamic.vipmobile.rs.



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook17.01.2016. u 00:26 - pre 99 meseci
Da li bi moglo dobiti sheetove iz aktivnih workbookova u jedan workbook?
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook17.01.2016. u 08:46 - pre 99 meseci
Pogledaj primjere koda

- RDBMerge, Excel Merge Add-in for Excel for Windows
- Merging Data from Multiple Workbooks into a Summary Workbook in Excel
- combine multiple Worksheet from opened Workbook to one summary workbook
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.dynamic.vipmobile.rs.



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook17.01.2016. u 09:50 - pre 99 meseci
Hvala na odgovoru.
Imam jedan problem u kodovima sto sam gledao. U pitanju je path probacu sto bolje potanje da postavim da li path mora boti u c i u temp ili moze d i bilo koja sveska? Da li path je folder ili excel dokument? Ako ke excel dokument fa li je zatvoren ili je otvoren i da li se u njega stavlja kod ili u neki drugi?" Uspeo sam" jednom sa nekim kodom i sve mi je zatvorio otvorene nije prebacio u test excel dokument. Stavicu kod ako treba koji sam koristio
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.dynamic.vipmobile.rs.



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook17.01.2016. u 10:25 - pre 99 meseci
Evo koda u prilogu sad mislim da on kopira samo jedqn aktivan a da li moze vise i sta sa path uraditi?
Prikačeni fajlovi
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Copy multiple Sheet from multiple workbook vai VBA17.01.2016. u 17:20 - pre 99 meseci
Citat:
vojvoda1010:Da li path je folder ili excel dokument?
Teško je raditi kada čovjek nije ovladao osnovama.
Laički rečeno, Path staza ili "putanja" je smjernica programu da "zna" gdje će potražiti lokaciju u kojoj se nalaze specifične datoteke ili u koju će snimiti određene datoteke. npr: (C:\Temp)

U attach ZIP datoteci nalazi se nekoliko XLS datoteka. Kada je raspakiraš na C particiju dobit ćeš dva foldera
- C:\Temp
- C:\Tmp

U prvom folderu nalaze se datoteke iz kojih kopiraš svaki Sheet1 u master.xls
U drugom folderu nalazi se master.xls datoteka u koju kopiraš sve Sheet1 iz navedenih datoteka sa lokacije ili "Path" C:\Temp
Nakon što raspakiraš ove foldere otvori workbook master.xls iz foldera "Tmp". Nakon pokretanja VBA makronaredbe, Excel će kopirati svaki Sheet1 iz svih datoteka *.xls koje se nalaze u folderu "Temp"
Dakle otvorit će svaku datoteku/kopirati Sheet1/zatvoriti datoteku.
Ovdje je važno da datoteka master.xls nije u istom folderu kao i datoteka iz kojih povlačiš radne listove (Sheet1)

VBA code koji je korišten je slijedeći (nalazi se u Module1 datoteke master.xls)
Da se razumijemo, ja vjerujem da postoji jednostavniji i bolji/brži VBA code ali ovo je od mene dovoljno. Na netu ima puno primjera
Code:
Option Explicit

Sub KopirajSheet1IzDatoteka()
    Dim myDir As String, fn As String
    myDir = "C:\Temp" 'path staza ili putanja do lokacije foldera u kojem se nalaze datoteke
    fn = Dir(myDir & "\*.xls") 'extenzija za datoteke iz kojih se kopiraju Sheets
    Do While fn <> ""
        With Workbooks.Open(myDir & "\" & fn)
            With .Sheets("Sheet1") 'Sheet koji se zeli kopirati iz datoteka
                .Name = "" & fn & "" 'naziv kopiranog sheeta je tipa ime.xls
                '.Name = "(" & fn & ")" 'naziv kopiranog sheeta je tipa (ime.xls)
                '.Name = .Name & "(" & fn & ")" 'naziv sheeta je tipa Sheet1(ime.xls)
                .Copy After:=ThisWorkbook.Sheets(1)
            End With
            .Close False
        End With
        fn = Dir
    Loop
End Sub


BTW: Ako uopće možeš, prakticiraj da postaviš primjer što i kako radiš (ovako je ponekada teško uopće razumjeti što želiš?)
Pogledaj kako ja tebi postavim primjere. To govorim zbog tebe, prije će ti netko pomoći ako ima smislen primjer nego dešifrirtati tvoje pitanje (bez uvrede).

Također pogledaj
Copy sheets in every open workbook to a master workbook
Citat:
This macro copies all sheets in all open workbooks to a master workbook.
Code:
Sub CopySheetsToMasterWorkbook()
Dim WBN As Workbook, WB As Workbook
Dim SHT As Worksheet
Set WBN = Workbooks.Add
For Each WB In Application.Workbooks
If WB.Name <> WBN.Name Then
For Each SHT In WB.Worksheets
SHT.Copy After:=WBN.Sheets(WBN.Worksheets.Count)
Next SHT
End If
Next WB
Application.DisplayAlerts = False
WBN.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Delete
WBN.Application.DisplayAlerts = True
End Sub

Prikačeni fajlovi
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
*.dynamic.vipmobile.rs.



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook17.01.2016. u 23:57 - pre 99 meseci
Hvala Ivek33 na detaljnom odgovoru,objasnjenju i primeru. Potrudicu se da sto preciznija potanja i primere postavljam.
u ovom slucaju mi je potreban ovaj drugi kod ali ppkazuje gresku run timeerror 13 type mismatch kod 7 reda
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook18.01.2016. u 09:29 - pre 99 meseci
Ja ti dao primjere sa prvim kodom a ti zapeo baš za drugi kod :)
Taj drugi kod sam ti dao samo kao smjernicu i link do tutorijala. Tamo si imao primjer datoteke za download.

Kao prvo ne znam zašto ti javlja grešku (ja nisam programer u VBA)
No dobro evo datoteka i sa drugim kodom

U master sheet nalazi se VBA kod (tri vba buttona). Nadam se da ćeš sve skužiti

Button 1
Code:
Option Explicit

Sub CopySheetsToNewWorkbooks()
'kopira svaki sheet iz master wbk kao novu workbook
Dim SHT As Worksheet
For Each SHT In ActiveWorkbook.Worksheets
    SHT.Copy
Next
End Sub

Button 2
Code:
'Option Explicit
Sub CopySelectedSheetsToNewWorkbooks()
'kopira selektirane sheets iz master wbk kao novu workbook
Dim WB As Workbook
Dim AW As Window

Set AW = ActiveWindow
For Each SHT In AW.SelectedSheets
    Set TempWindow = AW.NewWindow
    SHT.Copy
    TempWindow.Close
Next
End Sub

Button 3
Code:
Option Explicit
Sub CopySheetsToMasterWorkbook()
'kopira navedene sheets iz svih otvorenih workbook u jednu novu workbook
Dim WBN As Workbook, WBC As Workbook, WB As Workbook
Dim WS As String
Dim SHT As Worksheet

Set WBN = Workbooks.Add
For Each WB In Application.Workbooks
    If WB.Name <> WBN.Name Then
        For Each SHT In WB.Worksheets
            SHT.Copy After:=WBN.Sheets(WBN.Worksheets.Count)
            WBN.Sheets(WBN.Worksheets.Count).Name = Left(WB.Name, 30 - Len(SHT.Name)) & "-" & SHT.Name
        Next SHT
    End If
Next WB
Application.DisplayAlerts = False
WBN.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Delete
WBN.Application.DisplayAlerts = True
End Sub
Prikačeni fajlovi
 
Odgovor na temu

vojvoda1010
nezaposlen

Član broj: 310516
Poruke: 547
95.180.13.*



+2 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook18.01.2016. u 15:25 - pre 99 meseci
Hvala Ivek33 radi, I to bas taj kod, ali opet kod njega imam problema, pitanje: da li on moze da kopira novo otvorene workbooks, ja sam probao ali nece?
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: ubacivanje vise workbook-ova u jedan workbook18.01.2016. u 21:21 - pre 99 meseci
Citat:
vojvoda1010:ja sam probao ali nece?
Ako si probao i neće znači da ne može. Dakle imaš novu situaciju
1. doraditi dotični VBA kod
2. pronaći drugi VBA kod
3. eventualno, prvo snimiti sve novootvorene WBK bilo manualno ili preko VBA pa tek onda kopirati sheets

U biti ovo zadnje znači da u module staviš VBA kod koji će snimiti sve otvorene WBK a o tome smo mislim već pričali u nekoj od prethodnih tema.
Ovu VBA proceduru za snimanje pozoveš prije izvršavanja VBA koda za kopiranje

nešto kao
Code:
Sub Odradi()
Snimanje
Kopiranje
End Sub

Sub Snimanje()
....
....
End Sub

Sub Kopiranje()
...
...
End Sub

Dakle, pozoveš samo prvu i ona odradi ostalo. Na tebi je da prihvatiš lokaciju za snimanje.
 
Odgovor na temu

[es] :: Office :: Excel :: ubacivanje vise workbook-ova u jedan workbook

Strane: 1 2

[ Pregleda: 4591 | Odgovora: 25 ] > FB > Twit

Postavi temu Odgovori

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