Prikazi cijelu temu 02.12.2010 11:11
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel
Evo sva iste naredbe kao i kod tebe. Samo malo drugacije slozene.
Vidi dali je to to sto si htio.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Workbook_Open()
  2.      Dim db As database
  3.      Dim Rs As Recordset
  4.      Dim Vork As Worksheet
  5.      Dim SQL As String
  6.      Dim Putanja As String
  7.      Dim ImePrije As String
  8.      Dim I As Integer
  9.      Dim Brojac As Integer
  10.      Dim Izmjena As String
  11.      Dim R
  12.      
  13.      Putanja = Me.Path & "\Du.mdb"
  14.      Set db = OpenDatabase(Putanja)
  15.      Izmjena = db.Transactions
  16.      SQL = "SELECT ImePrezime,VrstaPoslova,GrupaPosla,NazivPosla, " _
  17.           & "SumBrojUnosa, Unos_u_proc " _
  18.           & "FROM podaci " _
  19.           & "ORDER BY podaci.ImePrezime"
  20.      Set Rs = db.OpenRecordset(SQL)
  21.      Izmjena = Rs.RecordCount
  22.      Set Vork = Me.Worksheets("a")
  23.      If Vork.Cells(1, 1) = Izmjena Then
  24.         R = MsgBox("Nema izmjena" & vbCrLf & "Hes li ponovo u
  25. itaiti", vbYesNo + _
  26.         vbExclamation + vbApplicationModal + vbDefaultButton2, "Napomena")
  27.         Select Case R
  28.         Case vbYes:
  29.          GoTo Start
  30.         Case vbNo:
  31.          GoTo Kraj:
  32.         End Select
  33.      Else
  34. Start:
  35.      Vork.Cells(1, 1) = Izmjena
  36.      End If
  37.      
  38.      Application.DisplayAlerts = 0
  39.      For Each Vork In ThisWorkbook.Worksheets
  40.      If Vork.Name <> "a" Then
  41.      Vork.Delete
  42.      End If
  43.      Next Vork
  44.      Brojac = 1
  45.      Do While Not Rs.EOF()
  46.      Brojac = Brojac + 1
  47.        If ImePrije <> Rs!ImePrezime Then
  48.          Set Vork = Sheets.Add
  49.          Vork.Name = Rs!ImePrezime
  50.          Vork.Cells(1, 1) = "Vrsta posla"
  51.          Vork.Cells(1, 2) = "Grpa Posla"
  52.          Vork.Cells(1, 3) = "Naziv Posla"
  53.          Vork.Cells(1, 4) = "Broj Unosa"
  54.          Vork.Cells(1, 5) = "Procenat Unosa"
  55.          Brojac = 2
  56.        End If
  57.        For I = 1 To 5
  58.        Vork.Cells(Brojac, I) = Rs.Fields(I)
  59.        Next I
  60.        
  61.      ImePrije = Rs!ImePrezime
  62.      Rs.MoveNext
  63.      Loop
  64.   Application.DisplayAlerts = 1
  65. Kraj:
  66.  Set db = Nothing
  67.  Set Rs = Nothing
  68.   End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.