Zuko 23.11.2010 17:25
Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

e ovde imam jedan mali problem na ovoj liniji mi javlja grešku Type mismatch ( a podatak je STRING ime korisnika)

Set Vork = Me.Worksheets(Rs!imeprezime)

kako da prevaziđem ovaj problem?

zxz 23.11.2010 18:27
Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

Set Vork = Me.Worksheets(Rs!imeprezime)

Sta to znaci:
Setujes sit u exelu sa imenom i access rekordseta (iz kojege redea rs neznam) ali iz kolone Imeprezime.
Njavjerovatnije nemas to Sheeta.

Zuko 23.11.2010 20:25
Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

Ma htjeo sam da napravim vise shit-ova u exelu po imenima korisnika sa evidencijom o mjesecnom radu po vrstama posla,grupi i nazivu posla , a kad dođem na ovu varijablu on mi pokaže prvo ime u rekordstu ali kad treba da ga upiÅ¡e javlja geÅ¡ku u obliku podatka.
Ustvari radim po ovom tvom primjeru odavde,ali polako. Ustvari trebam za seficu napraviti neki pregled poslova za svakog uposlenika, a podatke imam u access-u a nije mi neka frka pa hoću da probam ovo Å¡to si pokazao.

zxz 23.11.2010 21:34
Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

Probaj sa ovim:
Set Vork = Sheets.Add(after:=Sheets(Sheets.Count))
Vork.Name = "Mujo od doboja"

Zuko 24.11.2010 13:36
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

zxz 24.11.2010 14:25
Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

Svaka cast samo ne prekidaj bar pola godine sa kodom i imat ces ono sto si htio da imas.
Ako nesto stvarno zapne onda napisi pa cemo pogurati malo.

Zuko 24.11.2010 15:04
Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

Uh, ti pretjera sa ovo pola godine, ja to mislim za nekoliko dana, do mjesec da napravim, ako bog da i uz tvoju pomoć Wink
Å alim se naravno, ja ću ovo probati sam, ali ako zapnem znam gdje ću se obratiti i ko će mi uvjek ako zna pomoći to je naÅ¡ forum

zxz 24.11.2010 17:27
Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

Ja sam mislio na trebing koda. Moras bar pola godine dalamit da steknes rutinu.
Smatram da si dovoljno naucio da razmisljas o tome kao o alatu koji ti moze pomoci u radu.

Zuko 26.11.2010 16:33
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

zxz 26.11.2010 17:16
Predmet:Re: Prenos podatak VB-a kodom iz Access-a u Excel

Cekaj imas ovdje dvije procedure.
Koja je vazeca?