xl_kid 27.09.2011 11:17
Predmet:export podataka iz pivot access u excel tabelu

Postovani,

potrebna mi je pomoc oko exporta pivota u excel. U aplikaciji imam pivot formu koja je do sada sluzila samo za pregled ali mi je sada potrebno te podatke prebaciti u excel tabelu (isti pregled kao sto dobijam u pivotu). Na netu sam pronasao neke codove ali sve sto dobijem je novi pivot u excelu u kom je potrebno prevuci dve kolone koje se trebaju sumirati. Meni to nije problem ali imam jos nekoliko korisnika kojima jeste pa pokusavam da taj ceo postupak automatizujem sa sto manje klikova. Unapred hvala.

Gjoreski 27.09.2011 11:22
Predmet:Re: export podataka iz pivot access u excel tabelu

postavi primer

Zuko 27.09.2011 13:11
Predmet:Re: export podataka iz pivot access u excel tabelu

Imaš ovdje primjer prenosa iz Access-a u Excel

http://www.icentar.ba/showtopic.php?id=337

Kad pročitaÅ¡ trebalo bi da ti pomogne meni je dosta pomoglo pomoću koda možeÅ¡ ćak da puniÅ¡ i viÅ¡e sheet -ova .
U prvom primjeru baš meni je trebao pivot table, a u drugom pregled sa više sheet-ova

Pozdrav

xl_kid 27.09.2011 13:55
Predmet:Re: export podataka iz pivot access u excel tabelu

Ovo je super ali meni trebaju samo vrednosti polja. Njih i dobijam pomoću ovog primera ali ako hoću poslati e-mailom kad otvorim javlja mi greÅ¡ku (ne može naći putanju Å¡to je i logično). Kao Å¡to rekoh, primer je super ali ovde excel vuce podatke iz accessa a meni je potrebno obrnuto. U prilogu je i moj primer.

xl_kid 27.09.2011 13:57
Predmet:Re: export podataka iz pivot access u excel tabelu

evo i primera
Prilozi:
xl_kid.zip (Velicina datoteke:126.34 KB)

zxz 27.09.2011 22:12
Predmet:Re: export podataka iz pivot access u excel tabelu

Znaci tebi treba da prebaci podatke u exel u redove i kolone onako kako sad izgleda u pivotu.

xl_kid 28.09.2011 01:04
Predmet:Re: export podataka iz pivot access u excel tabelu

Upravo tako. Najblize mom resenju sto sam dobio je pivot u kom moram da prevucem polja za sumiranje. Kao sto sam rekao, meni nije problem ali imam jos par korisnika kojim je. Zeleo bih ako je ikako moguce da dobijem preslikani pivot u excel, kao sto izgleda u pivotu da bi kasnije mogli poslati e-mailom ili dodatno obradjivati u excelu.

zxz 28.09.2011 16:47
Predmet:Re: export podataka iz pivot access u excel tabelu

Evo.
Proceduru moras pozvati sa forme pivot.
Naime forma mora biti otvorena radi uslova koji si stavio.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function OtvoriExcel()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim RsSort As Recordset
  5. Dim Podatak, PodatakPrije
  6. Dim Red As Integer, Kolona As Integer
  7. Dim KolS() As String
  8. Dim X As Integer, N As Integer
  9.  
  10.  
  11. 'On Error GoTo OtvoriExcel_err
  12. 'PODACI IZ ACCESSA
  13.  
  14. Set Db = CurrentDb
  15. Dim a, b
  16. Set Rs = Forms![frm_Davor].RecordsetClone
  17. Set ExcelSheet = CreateObject("Excel.Sheet")
  18. Red = 3
  19. ExcelSheet.Application.Cells(Red, 1).Value = "Å ifra"
  20. ExcelSheet.Application.Cells(Red, 2).Value = "Naziv"
  21. ExcelSheet.Application.Cells(Red, 3).Value = "Kom."
  22. Kolona = 2
  23. Rs.Sort = "Rel"
  24. Set RsSort = Rs.OpenRecordset()
  25. X = Rs.RecordCount
  26. ReDim KolS(X + 3)
  27. RsSort.MoveFirst
  28. Do While Not RsSort.EOF
  29. Podatak = RsSort.Fields("Rel")
  30. If Podatak <> PodatakPrije Then
  31. Kolona = Kolona + 2
  32. KolS(Kolona) = Podatak
  33. ExcelSheet.Application.Cells(Red, Kolona).Value = Podatak
  34. PodatakPrije = Podatak
  35. End If
  36. RsSort.MoveNext
  37. Loop
  38.  
  39. Rs.MoveFirst
  40. Do While Not Rs.EOF
  41. Red = Red + 1
  42. Podatak = Rs.Fields(1)
  43. ExcelSheet.Application.Cells(Red, 1).Value = Podatak
  44. Podatak = Rs.Fields(2)
  45. ExcelSheet.Application.Cells(Red, 2).Value = Podatak
  46. Podatak = Rs.Fields(3)
  47. ExcelSheet.Application.Cells(Red, 3).Value = Podatak
  48. For X = 4 To Kolona Step 2
  49. If KolS(X) = Rs!Rel Then
  50. Podatak = Rs.Fields(5)
  51. ExcelSheet.Application.Cells(Red, X).Value = Podatak
  52. Podatak = Rs.Fields(6)
  53. ExcelSheet.Application.Cells(Red, X + 1).Value = Podatak
  54. End If
  55. Next X
  56. Rs.MoveNext
  57. Loop
  58. ExcelSheet.Application.Cells.EntireColumn.AutoFit
  59. Red = 1
  60. Kolona = 1
  61. Rs.MoveFirst
  62. Podatak = Rs.Fields(0)
  63. ExcelSheet.Application.Cells(Red, Kolona).Value = "PREGLED NA DAN " & Podatak
  64. ExcelSheet.Application.Visible = True
  65. OtvoriExcel_izl:
  66. Exit Function
  67. OtvoriExcel_err:
  68. MsgBox "Došlo je do greške", 48, "Greska"
  69. Resume OtvoriExcel_izl
  70. End Function

xl_kid 28.09.2011 17:10
Predmet:Re: export podataka iz pivot access u excel tabelu

malkice se ne snalazim Disappointed kako da pozovem proceduru (onopen ili kako) Shy

zxz 28.09.2011 19:02
Predmet:Re: export podataka iz pivot access u excel tabelu

Mozes je pozvati odakle hoces, samo mora biti otvorena ova pivot forma prije no sto pozoves.
Ako ne uspijes postavit cu primjer na ovom tvome.