Prikazi cijelu temu 26.11.2010 16:33
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Lokacija:Sarajevo


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
E uradio sam dosta posla, i sve mi upisuje kako treba ali ima par sitnica sa kojim nisam zadovoljan.
Recimo stalno mi pokuÅ¡ava upisati novi sheet i ako već postoji moram to pokuÅ¡ati rjeÅ¡iti
PreuzmiIzvorni kôd (Visual Basic):
  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, Sifravrstaposla As String, SQL As String
  10.      Dim sifGrupaPosla As String, nsifNazivPosla As String, SQL1 As String, rs1 As Recordset
  11.      Putanja = Me.Path
  12.      SQL = "SELECT ImePrezime FROM AUposleni " _
  13.            & "GROUP BY AUposleni.ImePrezime " _
  14.            & "ORDER BY AUposleni.imePrezime"
  15.      Set db = OpenDatabase(Putanja & "\Du_novi.mdb")
  16.      Set Rs = db.OpenRecordset(SQL)
  17.      M = Rs.RecordCount
  18.     Rs.MoveFirst
  19.     Do While Not Rs.EOF()
  20.        'Set Vork = Sheets.Add(before:=Sheets(Sheets.Count))
  21.       Set Vork = Sheets.Add
  22.        Vork.Name = Rs!imeprezime
  23.        Vork.Cells(1, 1) = "Vrsta posla"
  24.        Vork.Cells(1, 2) = "Grpa Posla"
  25.        Vork.Cells(1, 3) = "Naziv Posla"
  26.        Vork.Cells(1, 4) = "Broj Unosa"
  27.        SQL1 = "Select * from ex where imeprezime = '" & Rs!imeprezime & "'"
  28.        Set rs1 = db.OpenRecordset(SQL1)
  29.        N = rs1.RecordCount
  30.        Do While Not rs1.EOF()
  31.          For I = 1 To N
  32.             Podatak = rs1.Fields(1)
  33.             Vork.Cells(I + 1, 1) = Podatak
  34.             Podatak = rs1.Fields(2)
  35.             Vork.Cells(I + 1, 2) = Podatak
  36.             Podatak = rs1.Fields(3)
  37.             Vork.Cells(I + 1, 3) = Podatak
  38.             Podatak = rs1.Fields(4)
  39.             Vork.Cells(I + 1, 4) = Podatak
  40.             rs1.MoveNext
  41.          Next I
  42.       Loop
  43.        Rs.MoveNext
  44.     Loop
  45.     Rs.Close
  46.     rs1.Close
  47.     Set Rs = db.OpenRecordset(SQL)
  48.     Rs.MoveFirst
  49.     End Sub
Pozdav,

Nedim
Ovaj post je ureden 2 puta. Posljednja izmjena 26.11.2010 19:37 od strane zxz.