FIltriranje xls ili dbf baze

Odgovori Nova tema

2 odgovora
3.672 pregleda

FIltriranje xls ili dbf baze 31.12.2007. u 12:26 · pre 229 meseci #1

Kako da odradim filtriranje dbf ili XLS baze u kojoj se nalazi gomila artikala a hocu da ih smestim u jedan dokument koji ce da sadrzi sve artikle bez duplih...
Recimo imam
1.xls
2.xls
3.xls
(koji sadrze gomilu istih artikala)
a ja treba da ih smestim u
4.xls - koji ce da sadrzi sve artikle iz 1,2,3 iako se oni nalazili samo u jednom ili u sav tri ...
ili moram da ih smestim u jedan file (ali je onda jako veliki)
HVALA UNAPRED

Potpis

Ono sto ne moze niko Mogu i ja

Re: FIltriranje xls ili dbf baze 31.12.2007. u 12:39 · pre 229 meseci #2

Pošto je ovo Access forum, odgovoriću ti sledeće. Moraš da spojiš fajlove ako želiš da izbaciš duplikate. Posle spajanja uvezi spojeni fajl u jednu praznu .mdb datoteku i pogledaj na sledećem linku kako da se oslobodiš duplikata.
http://www.praktikum.co.yu/office/access/acc_130.asp#acc_130a

Potpis

https://mzahorjanski.wixsite.com/mzahorjanski
https://www.fiverr.com/miroljubzahorja?up_rollout=true
https://www.youtube.com/@miroljubzahorjanski

Re: FIltriranje xls ili dbf baze 03.01.2008. u 12:27 · pre 229 meseci #3

Mogao bi i napraviti program koji bi citao te xls fajlove i prepisivao ih u tablicu
Naravno, morali bi podaci u tim xls biti na istim mjestima , kolonama.

evo dio mog koda gdje prepisujem iz excel tablice, pa ti mozda da ideju
ti bi jos samo morao napraviti da ti upise u listbox sve fajlove koje prepisujes

lnkput="c:\konta\konto.xls"
kol = Val(kolona) ' stupac iz kojeg cita vrijednosti ( A-kol , A11,b11,c11 itd )
Set objexcel = CreateObject("Excel.Application")
objexcel.Workbooks.Open (lnkput)

sveukupno = 0
For j = 1 To 1000

konto = objexcel.Cells(j, 1).Value
iznos = objexcel.Cells(j, kol).Value

If Len(Trim(konto)) = 6 Then

If IsNumeric(konto) = True Then
If IsNumeric(iznos) = False Then
MsgBox "Niste odabrali dobru kolonu za prepis. Vrijednost u koloni = " + iznos
Exit Sub
End If
brprep = brprep + 1
rek2.AddNew
rek2.Fields("AccountID") = konto
rek2.Fields("Accountvalue") = iznos
rek2.Fields("Statementid") = 2
sveukupno = sveukupno + iznos
rek2.Update
End If
End If
Next j

rek2.Close
Set dato2 = Nothing

objexcel.Application.DisplayAlerts = False
objexcel.Application.Quit
objexcel.Application.DisplayAlerts = True
[Forms]![unos]![FinStatment].Requery
MsgBox "Podaci za Plan su prepisani, Prepisano: " + Trim(Str(brprep)) + " konta" & Chr(13) & "Sveukupno : " & Format$(sveukupno, "###,###,###,###.00")

End Sub

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme