Marko,
malo nastavka "tek da se talasa".
Da ponovim ponešto od problema:
Imam određen broj excell fajlova iz kojih želim exportovati podatke napr. iz ćelija i to samo iz
KOLONE isključivo napr.C7:C14 , dakle 8 ćelija u Acces tabelu koja ima 8 polja napr.p1, p2 ..p8, sve definisano (neko polje je Number, neko polje je Date, neko polje je Number, neko polje je Hyperlink...).
Međutim pošto je obrazac već definisan, desilo se odn. zatekao sam--da su recimo ćelije u koloni C9i C12 napr. prazno polje i još protektovano.
Kada se učitaju podaci iz jednog fajla
oni ostaju u bazi, zatim učitavam drugi fajl iz identičnih ćelija odn. samo iz KOLONE C7:C14 i tako se Access baza puni podacima.
Prazne ćelije bih kasnije obrisao kada se učitaju svi fajlovi (ili da ostavim Default value u .mdb =0)
Brojač učitanih fajlova mislim da i neće trebati, jer ću ubaciti u .mdb tabelu polje Autonumber.
Dakle sada ne treba početne vrednosti Dim celija i brojac postaviti na 0 (pogledaj tvoj prvi odgovor) - možda nisam u pravu ??? već učitavati podatke iz .xls Columns u polja p1, p2..p8 tabele .mdb.
Ovaj me je problem "čekao"od 02.juna
Moguće je da bude i više ćelija u KOLONI do 30-tak ali sve isto važi. tabela .mdb je definisana, .xls fajl takođe (sa praznim i protektovanim ćelijama u koloni).
Onaj deo sa
Code:
Private Sub cmdEksportuj_Click()
If XlsFileName.Text = "" Or XlsSheet.Text = "" ...i isto to za ostale textboxove...Then
MsgBox "Morate popuniti sva polja"
Exit Sub
End If
Eksportuj XlsFileName.Text, XlsSheet.Text, XlsRange.Text, MdbFileName.Text,
MdbTabela.Text
End Sub
treba dopuniti preskakanjem na narednu ćeliju koja sadrži podatak.
Nešto kao:
Code:
If celija.Value = "Protected" Then
brojac = brojac + 1
End If
Next celija
Nisi mi poslao e-mail da ti "javim news"
Hvala unapred, You are really miracle.
Ne stvarno, tebe da nema trebalo bi ti spirit postaviti na Es
Pozdrav