Centar za edukaciju-BiH


Stranice (4):1,2,3,4

#1 27.09.2011 10:17
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


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.
↑  ↓

#2 27.09.2011 10:22
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828



#3 27.09.2011 12:11
Zuko Van mreze
Clan
Registrovan od:13.09.2010
Postovi:382


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
Pozdav,

Nedim
↑  ↓

#4 27.09.2011 12:55
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


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.
↑  ↓

#5 27.09.2011 12:57
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: export podataka iz pivot access u excel tabelu
evo i primera

Prilozi:
Informacije o tipu datoteke za:zip  xl_kid.zip
Preuzimanja:306
Velicina datoteke:126.34 KB

↑  ↓

#6 27.09.2011 21:12
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 28.09.2011 00:04
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


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.
↑  ↓

#8 28.09.2011 15:47
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 28.09.2011 16:10
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: export podataka iz pivot access u excel tabelu
malkice se ne snalazim Disappointed kako da pozovem proceduru (onopen ili kako) Shy
↑  ↓

#10 28.09.2011 18:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (4):1,2,3,4


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 57 am.