Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Prijatelju uspio sam ubaciti imena u sheet-ove, mućim se ali polako idem red po red (neću da kažem da je jako zeznuto ali polako naućit ću)
PreuzmiIzvorni kôd (vbnet): Private Sub Workbook_Open()
Dim db As database
Dim Rs As Recordset
Dim sh As Sheets
Dim Dokument As Document
Dim Vork As Worksheet
Dim Putanja As String
Dim I As Integer, N As Integer, M As Integer, J As Integer, Iip As Integer
Dim Podatak, SifraImePrezime() As String, SifraArt As String, SQL As String
Putanja = Me.Path
SQL = "SELECT ImePrezime FROM AUposleni " _
& "GROUP BY AUposleni.ImePrezime " _
& "ORDER BY AUposleni.imePrezime"
Set db = OpenDatabase(Putanja & "\Du_novi.mdb")
Set Rs = db.OpenRecordset(SQL)
Rs.MoveFirst
Do While Not Rs.EOF()
Set Vork = Sheets.Add(before:=Sheets(Sheets.Count))
Vork.Name = Rs!imeprezime
Rs.MoveNext
Loop
Sad idem dalje unos podataka u sheet-ove
Pozdav,
Nedim