Prikazi cijelu temu 24.11.2010 13:36
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Lokacija:Sarajevo


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):
  1.  Private Sub Workbook_Open()
  2.      Dim db As database
  3.      Dim Rs As Recordset
  4.      Dim sh As Sheets
  5.      Dim Dokument As Document
  6.      Dim Vork As Worksheet
  7.      Dim Putanja As String
  8.      Dim I As Integer, N As Integer, M As Integer, J As Integer, Iip     As Integer
  9.      Dim Podatak, SifraImePrezime() As String, SifraArt As String, SQL As String
  10.      Putanja = Me.Path
  11.      SQL = "SELECT ImePrezime FROM AUposleni " _
  12.            & "GROUP BY AUposleni.ImePrezime " _
  13.            & "ORDER BY AUposleni.imePrezime"
  14.      Set db = OpenDatabase(Putanja & "\Du_novi.mdb")
  15.      Set Rs = db.OpenRecordset(SQL)
  16.     Rs.MoveFirst
  17.     Do While Not Rs.EOF()
  18.     Set Vork = Sheets.Add(before:=Sheets(Sheets.Count))
  19.     Vork.Name = Rs!imeprezime
  20.     Rs.MoveNext
  21.     Loop

Sad idem dalje unos podataka u sheet-ove
Pozdav,

Nedim