Predmet:Kako se poziva VBA kod??
Pozdrav svima, naišao sam na temu http://www.icentar.ba/showtopic.php?id=9 gdje ima veoma veoma korisnih kodova, gdje sam i naletio dva koda koja bi mi konkretno sad trebala ali ne znam kako integrirati u svoju bazu to jest u modul stavim odredjeni kod ali ne znam dalje kako ga pozvati u odredjenu formu ili slično.
Konkretno sad mi treba ovaj kod za uvoz podataka iz txt fajla, znam da bi trebao onda vjerovatno napraviti tabelu kod sebe za uvoz tih podataka ali sta i kako dalje Izvorni kod:
Spoiler:
Public Function UcitajTXT()
'*******************************************
'Ime: UcitajTXT (Function)
'Sadržaj: Ucitava TXT file
'Autor: ZXZ
'Datum: 09 06, 2010, 09:29:42
'Adresa: Tuzla BiH
'Email: zxz@icentar.ba
'Ulazni parametri:Nema a moze se staviti
'putanja do fajla
'Izlazni parametri:Nema samo u temp
'iscitava red po red podataka iz txt fahla
'while petlja lista podatke iz fajla.
'*******************************************
Dim txt_fajl
Dim Temp
On Error GoTo Greska
txt_fajl = FreeFile
Open "PutanjaDoFilea" For Input As #txt_fajl
While Not EOF(1)
Line Input #txt_fajl, Temp
'input #txt_fajl, temp
Wend
Izlaz:
Exit Function
Greska:
'GreskaB (Err.Number)
Resume Izlaz
Kraj:
End Function