[es] - FIltriranje xls ili dbf baze

aikidomaster

Član broj: 162160
Poruke: 148
*.cust.panline.net.

+1 Profil

^{31.12.2007. u 11:26 - pre 198 meseci}

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

Ono sto ne moze niko Mogu i ja

Odgovor na temu

Getsbi

Moderator
Član broj: 124608
Poruke: 2831

+45 Profil

Re: FIltriranje xls ili dbf baze

^{31.12.2007. u 11:39 - pre 198 meseci}

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

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

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: FIltriranje xls ili dbf baze

^{03.01.2008. u 11:27 - pre 198 meseci}

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

Odgovor na temu