[ duledixi @ 23.02.2008. 10:36 ] @
U prilogu je txt fajl (faktura) koji bi trebao uvesti u access ili excel ali mi je problem sto mi je faktura u dva reda. U prvom redu su:
Rb. SIFRA KAT.BR. NAZIV ROBE Jm

a u drugom:

Kolicina Cijena Rb% Vrijed.

Moje pitanje je kako uvesti ovaj txt fajl ali da dobijem sve u jednom redu npr:

Rb. SIFRA KAT.BR. NAZIV ROBE Jm Kolicina Cijena Rb% Vrijed.

Pokusao sam sa vizardima za import ali nije mi uspjelo.
[ domaci_a_nas @ 23.02.2008. 14:39 ] @
Private Sub ProcitajFile()

Dim sTemp1 As String
Dim sTemp2 As String
Dim Linija as string

Open "Layer.txt" For Input As #1
While Not EOF(1)
Line Input #1, sTemp1
Line Input #1, sTemp2
Linija = sTemp1 & VbTab & sTemp2
' LINIJA PREDSTAVLJA SPOJENA DVA REDA i može se dalje koristiti
Wend
Close #1
End Sub
[ duledixi @ 25.02.2008. 11:42 ] @
Hvala, ali vec sam dobio odgovor na:
Code:
http://www.icentar.com/showthread.php?t=8018