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):Private Sub Workbook_Open()
Dim db As database
Dim Rs As Recordset
Dim Vork As Worksheet
Dim SQL As String
Dim Putanja As String
Dim ImePrije As String
Dim I As Integer
Dim Brojac As Integer
Dim Izmjena As String
Dim R
Putanja = Me.Path & "\Du.mdb"
Set db = OpenDatabase(Putanja)
Izmjena = db.Transactions
SQL = "SELECT ImePrezime,VrstaPoslova,GrupaPosla,NazivPosla, " _
& "SumBrojUnosa, Unos_u_proc " _
& "FROM podaci " _
& "ORDER BY podaci.ImePrezime"
Set Rs = db.OpenRecordset(SQL)
Izmjena = Rs.RecordCount
Set Vork = Me.Worksheets("a")
If Vork.Cells(1, 1) = Izmjena Then
R = MsgBox("Nema izmjena" & vbCrLf & "Hes li ponovo u
itaiti", vbYesNo + _
vbExclamation + vbApplicationModal + vbDefaultButton2, "Napomena")
Select Case R
Case vbYes:
GoTo Start
Case vbNo:
GoTo Kraj:
End Select
Else
Start:
Vork.Cells(1, 1) = Izmjena
End If
Application.DisplayAlerts = 0
For Each Vork In ThisWorkbook.Worksheets
If Vork.Name <> "a" Then
Vork.Delete
End If
Next Vork
Brojac = 1
Do While Not Rs.EOF()
Brojac = Brojac + 1
If ImePrije <> Rs!ImePrezime Then
Set Vork = Sheets.Add
Vork.Name = Rs!ImePrezime
Vork.Cells(1, 1) = "Vrsta posla"
Vork.Cells(1, 2) = "Grpa Posla"
Vork.Cells(1, 3) = "Naziv Posla"
Vork.Cells(1, 4) = "Broj Unosa"
Vork.Cells(1, 5) = "Procenat Unosa"
Brojac = 2
End If
For I = 1 To 5
Vork.Cells(Brojac, I) = Rs.Fields(I)
Next I
ImePrije = Rs!ImePrezime
Rs.MoveNext
Loop
Application.DisplayAlerts = 1
Kraj:
Set db = Nothing
Set Rs = Nothing
End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.