[es] - [Excel] problem sa vise tabela

Jpeca
Predrag Jovanović
Božic i sinovi - škola računara
Pančevo

Moderator
Član broj: 25683
Poruke: 1123
212.200.27.*

Jabber: jpeca@elitesecurity.org

Profil

Re: [Excel] problem sa vise tabela

^{20.07.2006. u 07:56}

1/ Otvoriš sve Excel fajlove koje treba da kombinuješ
2/ U rezultujućem fajlu aktiviraš gornju levu ćeliju oblasti rezultata
3/ Izaberi Data >> Consolidate, primeti da je već aktivna funkcija Sum
4/ U okviru dijaloga Consolidate dodaj iz svih fajlova oblasti koje kombinuješ (Add)
5/ Kad si završio klik na OK.

Dva u dva ide jednom ako možeš da ga ućuškaš

^{20.07.2006. u 07:56}

Tomju
Tomislav Cuk
Zrenjanin

Član broj: 48571
Poruke: 25
*.zrlocal.net.

Profil

Re: [Excel] problem sa vise tabela

^{20.07.2006. u 12:00}

Da, to radi to ali opet moram da ulazim u svaku tabelu posebno i oznacavam deo koji se sabira.

^{20.07.2006. u 12:00}

Jpeca
Predrag Jovanović
Božic i sinovi - škola računara
Pančevo

Moderator
Član broj: 25683
Poruke: 1123
212.200.27.*

Jabber: jpeca@elitesecurity.org

Profil

Re: [Excel] problem sa vise tabela

^{20.07.2006. u 12:58}

Da nisam obratio pažnju da si naveo da je reč o sto tabela. Onda je rešenje da se napiše kod. Našao sam nešto na netu pa sam prepravio za tvoj slučaj. Komentari su ostali na engleskom mrzelo me je da prevodim. Sve tabele koje kombinuješ stavi u posebnu fasciklu subdirectory (ili već je nazovi kako ti odgovara ali izmeni u kodu) ispod fascikle u kojoj se nalazi rezultujuća tabela. U kodu takodje zameni oblast A2:D20 sa onim što tebi treba.

Code:

Sub CombineFromAllFilesInADirectory()
     'Uses methods found in http://vbaexpress.com/kb/getarticle.php?kb_id=151 and
     ' http://vbaexpress.com/kb/getarticle.php?kb_id=221
     ' Modified by P.Jovanovic 20/7/2006

    Dim Path            As String 'string variable to hold the path to look through
    Dim FileName        As String 'temporary filename string variable
    Dim tWB             As Workbook 'temporary workbook (each in directory)

    Dim aRange          As Range ' range  in master workbook
    Dim RowCount        As Long 'Rows used on master sheet
    Dim uRange          As Range 'usedrange for each temporary sheet

     '***** Set folder to cycle through *****
    Path = ThisWorkbook.Path & "\subdirectory\" 'Change as needed, ie "C:\"

    Application.EnableEvents = False 'turn off events
    Application.ScreenUpdating = False 'turn off screen updating

    Set aRange = ThisWorkbook.ActiveSheet.Range("A2:D20") 'set active range variable in master workbook
    If Right(Path, 1) <> Application.PathSeparator Then 'if path doesnt end in "\"
        Path = Path & Application.PathSeparator 'add "\"
    End If
    FileName = Dir(Path & "*.xls", vbNormal) 'set first file's name to filename variable
    Do Until FileName = "" 'loop until all files have been parsed
        If Path <> ThisWorkbook.Path Or FileName <> ThisWorkbook.Name Then
            Set tWB = Workbooks.Open(FileName:=Path & FileName) 'open file, set to tWB variable
            Set uRange = tWB.Sheets(1).Range("A2:D20") 'set used range
            uRange.Copy
            aRange.PasteSpecial Operation:=xlAdd ' add values from open file
            Application.CutCopyMode = False
            tWB.Close False 'close temporary workbook without saving
        End If
        FileName = Dir() 'set next file's name to FileName variable
    Loop
    Application.EnableEvents = True 're-enable events
    Application.ScreenUpdating = True 'turn screen updating back on

     'Clear memory of the object variables
    Set tWB = Nothing
    Set mWB = Nothing
    Set aRange = Nothing
    Set uRange = Nothing
End Sub

Dva u dva ide jednom ako možeš da ga ućuškaš

^{20.07.2006. u 12:58}

Tomju
Tomislav Cuk
Zrenjanin

Član broj: 48571
Poruke: 25
*.zrlocal.net.

Profil

Re: [Excel] problem sa vise tabela

^{21.07.2006. u 10:27}

Ok, hvala na trudu, nemam sad vremena da ga isprobam, ali moras mi reci kako da pokrenem taj program (lici mi na delphi).

^{21.07.2006. u 10:27}

Tomju
Tomislav Cuk
Zrenjanin

Član broj: 48571
Poruke: 25
*.zrlocal.net.

Profil

Re: [Excel] problem sa vise tabela

^{26.07.2006. u 08:49}

Uradio sam sve (promenio path na c:\1, range C10-M22) ali mi izbacuje error 52 "Bad file name or number". Zaboravio sam da napomenem da su fajlovi zasticeni sifrom. Kako sam citao to moze biti problem. Napravio sam program u delph-ju ali radi dosta sporo.

^{26.07.2006. u 08:49}

Jpeca
Predrag Jovanović
Božic i sinovi - škola računara
Pančevo

Moderator
Član broj: 25683
Poruke: 1123
194.106.171.*

Jabber: jpeca@elitesecurity.org

Profil

Re: [Excel] problem sa vise tabela

^{05.08.2006. u 09:36}

Ne bi trebao da bude problem u zaštiti. Prilikom otvaranja u tom slučaju Excel treba da čeka da uneseš lozinku. Bez primera ne znam da ti kažem u čemu je problem. Pošto znaš Delfi ne bi pretpostavljam da znaš da uđeš u debuger (u VBA prozoru) i vidiš na kojoj liniji ti pada i potom proveriš sadržaj promenljivih - obrati pažnju na parametrar koji se koristi prilikom otvaranja fajla, iz tvog opisa izgleda ti nedostaje znak \ (backslash) iza "C:\1"

Inače za otvaranje lozinkom zaštićene Excel sveske možeš modifikovati red Open
Set tWB = Workbooks.Open(FileName:=Path & FileName, Password:="lozinka")

_{[Ovu poruku je menjao Jpeca dana 05.08.2006. u 10:50 GMT+1]}

Dva u dva ide jednom ako možeš da ga ućuškaš

^{05.08.2006. u 09:36}