Trtko Koprivnica
Član broj: 69494 Poruke: 695 *.adsl.net.t-com.hr.
|
Evo ti kod a ti ga prepravi po svojoj potrebi
konto = objexcel.Cells(j, 1).Value ' bi bila celija A1
znaci da trebas iz celije C,10 ---> konto = objexcel.Cells(3, 10).Value ---- itd
Dim dato22 As Database
Dim rek22 As Recordset
Set dato22 = CurrentDb
Dim sqlupit22 As String
sqlupit22 = "select * from tblprep"
Set rek22 = dato22.OpenRecordset(sqlupit22)
kolona = 1
Set objexcel = CreateObject("Excel.Application")
lnkput = "c:\program files\baan\tmp\privremena.xls"
dput = Dir(lnkput)
If Len(dput) < 3 Then
MsgBox "NE POSTOJI EXCEL TABLICA " + PPopen
Exit Sub
End If
objexcel.Workbooks.Open (lnkput)
For j = 1 To 1000
konto = objexcel.Cells(j, 1).Value
rbr = Nz(Trim(Mid(konto, 1, 4)), 0)
narudzba = Trim(Mid(konto, 6, 11))
rad_nal = Trim(Mid(konto, 18, 6))
kupac = Trim(Mid(konto, 25, 21))
dat_izd = Trim(Mid(konto, 47, 10))
dat_got = Trim(Mid(konto, 58, 10))
kolicina = Trim(Mid(konto, 69, 7))
kvaliteta = Trim(Mid(konto, 77, 8))
val1 = Trim(Mid(konto, 86, 8))
tezina = Trim(Mid(konto, 95, 7))
str1 = Trim(Mid(konto, 103, 6))
vr1 = Trim(Mid(konto, 110, 7))
str2 = Trim(Mid(konto, 118, 6))
vr2 = Trim(Mid(konto, 125, 7))
str3 = Trim(Mid(konto, 133, 6))
vr3 = Trim(Mid(konto, 140, 7))
opis = Trim(Mid(konto, 148, 13))
sif_pred = Trim(Mid(konto, 162, 12))
kizp = Trim(Mid(konto, 175, 4))
If IsDate(dat_izd) Then
rek22.AddNew
rek22.Fields("rbr") = rbr
rek22.Fields("narudzba") = narudzba
rek22.Fields("Rad_nal") = rad_nal
rek22.Fields("kupac") = kupac
rek22.Fields("dat_izd") = dat_izd
rek22.Fields("dat_got") = dat_got
rek22.Fields("kolicina") = kolicina
rek22.Fields("kvaliteta") = kvaliteta
rek22.Fields("val") = val1
rek22.Fields("tezina") = tezina
rek22.Fields("str1") = str1
rek22.Fields("vr1") = vr1
rek22.Fields("str2") = str2
rek22.Fields("vr2") = vr2
rek22.Fields("str3") = str3
rek22.Fields("vr3") = vr3
rek22.Fields("opis") = opis
rek22.Fields("sif_pred") = sif_pred
rek22.Fields("kizp") = kizp
rek22.Update
End If
Next j
rek22.Close
Set dato22 = Nothing
objexcel.Application.DisplayAlerts = False
objexcel.Application.Quit
objexcel.Application.DisplayAlerts = True
MsgBox "Podaci su prepisani"
SUBprep.Requery
|