Centar za edukaciju-BiH



#11 28.09.2011 18:38
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: export podataka iz pivot access u excel tabelu
Uspeo sam da izbacim podatke u excel ali dobijam prikaz iz query-ja a ne sa pivot forme. mozda sam negde pogresio. Otvorim pivot formu, sa druge forme pozovem OtvoriExcel() i na desktopu dobijem excel file sa imenom pivot forme.
↑  ↓

#12 28.09.2011 19:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: export podataka iz pivot access u excel tabelu
Citat:
dobijam prikaz iz query-ja a ne sa pivot forme

Da ja sam podatke uzeo iz querya koji je na pivot formi i nisam vidio razliku neku u podacima.
Ako ima razlika molio bih te da predocis to ja nisam primijetio.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#13 28.09.2011 19:52
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: export podataka iz pivot access u excel tabelu
Uf sad sam i ja vidio u pivot je grupirano po artiklima.
Pokusat cu sutra naci vremena da to popravim ako je to samo razlika.
Ja sam mislio da si ti napravio crostan query nisam ni gledao.
Ako ima jos nesto napisi ja sam ovo primijetio tj. da dupla redove artikala.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#14 29.09.2011 01:08
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: export podataka iz pivot access u excel tabelu
Tek sad sam ustvari video sta si uradio. Ocigledno nisam lepo pozvao funkciju. Sad mi se javlja drugi problem (pored ovog sto si ti opisao). Otvori mi excel u odmah ga zatvori. Tek sam na printscreen posle 10 pokusaja uspeo uhvatiti sta je. Evo resio sam i to tako sto sam dodao sledeci red: ExcelSheet.SaveAs "C:\PREGLED NA DAN " & (Format(Now, "yyyymmdd-hhmm")) & ".XLS"
tako dobijem sacuvanu tabelu sto je manje vise ok. Kao sto sam vec rekao potreban mi je pregled kao u pivot formi ali u excelu. Ovo je super samo mi je potrebno sumirati po artiku.

Slicice prilozenih slika:
Picture1.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:292
Velicina datoteke:220.75 KB
Velicina slike: 1440 x 900 Pikseli

↑  ↓

#15 29.09.2011 09:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: export podataka iz pivot access u excel tabelu
Eh ja sam ti zaboravio napisti.
Na pocetku modula stavi ovo:
Citat:
Option Compare Database
Option Explicit
Global ExcelSheet As Object

Treba biti globalna variabla da se ne zatvara.
Ti nisi imao ovo:
Option Explicit
Inace bi ti odma prijavio gresku.

Ovo cu danas pokusati urediti da ne dupla redove. Juce sam bio u frci pa sam ovo na brzinu odradio racunajuci da ces ti istestirati.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 29.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
Evo doradjena procedura.
Nemoras praviti novu formu za poziv procedure.
Mozes napraviti tul bar i vezati ga za ovu pivot formu pa kad se podigne pivot forma podigne se i tul bar.
Na tul baru jednu custom comand taster.
Na on action samo upisi OtvoriExcel tj. ime procedure.
Ako ne uspijes postavit cu ti primjer.
Bolje je da sam to odradis.
Ovu proceduru kopiraj u neki modul a staru pobrisi.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Compare Database
  2. Option Explicit
  3. Global ExcelSheet As Object
  4. Function OtvoriExcel()
  5. Dim Db As Database
  6. Dim Rs As Recordset
  7. Dim RsSort As Recordset
  8. Dim Podatak, PodatakPrije
  9. Dim Red As Integer, Kolona As Integer
  10. Dim KolS() As String
  11. Dim X As Integer, N As Integer
  12.  
  13.  
  14. On Error GoTo OtvoriExcel_err
  15. 'PODACI IZ ACCESSA
  16.  
  17. Set Db = CurrentDb
  18. Dim a, b
  19. Set Rs = Forms![frm_Davor].RecordsetClone
  20. Set ExcelSheet = CreateObject("Excel.Sheet")
  21. Red = 3
  22. ExcelSheet.Application.Cells(Red, 1).Value = "Å ifra"
  23. ExcelSheet.Application.Cells(Red, 2).Value = "Naziv"
  24. ExcelSheet.Application.Cells(Red, 3).Value = "Kom."
  25. Kolona = 2
  26. Rs.Sort = "Rel"
  27. Set RsSort = Rs.OpenRecordset()
  28. X = Rs.RecordCount
  29. ReDim KolS(X + 3)
  30. RsSort.MoveFirst
  31. Do While Not RsSort.EOF
  32. Podatak = RsSort.Fields("Rel")
  33. If Podatak <> PodatakPrije Then
  34. Kolona = Kolona + 2
  35. KolS(Kolona) = Podatak
  36. 'ExcelSheet.Application.Range(Kolona).Rows(Red).MergeCells = True
  37. ExcelSheet.Application.Cells(Red, Kolona).Value = Podatak
  38. PodatakPrije = Podatak
  39. End If
  40. RsSort.MoveNext
  41. Loop
  42.  
  43. Rs.MoveFirst
  44. Do While Not Rs.EOF
  45. Podatak = Rs.Fields(1)
  46. If Podatak <> PodatakPrije Then
  47. Red = Red + 1
  48. ExcelSheet.Application.Cells(Red, 1).Value = Podatak
  49. Podatak = Rs.Fields(2)
  50. ExcelSheet.Application.Cells(Red, 2).Value = Podatak
  51. Podatak = Rs.Fields(3)
  52. ExcelSheet.Application.Cells(Red, 3).Value = Podatak
  53. Podatak = Rs.Fields(1)
  54. PodatakPrije = Podatak
  55. End If
  56. For X = 4 To Kolona Step 2
  57. If KolS(X) = Rs!Rel Then
  58. Podatak = Rs.Fields(5)
  59. ExcelSheet.Application.Cells(Red, X).Value = Podatak
  60. Podatak = Rs.Fields(6)
  61. ExcelSheet.Application.Cells(Red, X + 1).Value = Podatak
  62. End If
  63. Next X
  64. Rs.MoveNext
  65. Loop
  66. ExcelSheet.Application.Cells.EntireColumn.AutoFit
  67. Red = 1
  68. Kolona = 1
  69. Rs.MoveFirst
  70. Podatak = Rs.Fields(0)
  71. ExcelSheet.Application.Cells(Red, Kolona).Value = "PREGLED NA DAN " & Podatak
  72. ExcelSheet.Application.Visible = True
  73. OtvoriExcel_izl:
  74. Exit Function
  75. OtvoriExcel_err:
  76. MsgBox "Došlo je do greške", 48, "Greska"
  77. Resume OtvoriExcel_izl
  78. End Functio

Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 1 puta. Posljednja izmjena 29.09.2011 21:14 od strane zxz. ↑  ↓

#17 29.09.2011 23:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: export podataka iz pivot access u excel tabelu
Ovo za sumiranje mi moras navesti koje kolone sumiras po artiklima.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#18 29.09.2011 23:29
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: export podataka iz pivot access u excel tabelu
Ma to je to. Za ostalo cu se sam potruditi. Za sumiranje sam mislio po artiklu sto si vec uradio. Puno hvala na pomoci, ako zaglavim obraticu se za pomoc. Hvala.
↑  ↓

#19 30.09.2011 17:51
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: export podataka iz pivot access u excel tabelu
još jedno pitanje. Da li postoji mogucnost da ispod polja Rel tj iznad kolona kut i pod (izmedju 3. i 4. reda) ubacim opis (kao sto se prikazuje u pivot formi frm_Davor). Tako da recimo u polju D4 opis bude Kut a u polju E4 Pod i tako na dalje dok ima podataka.
↑  ↓

#20 30.09.2011 18:49
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: export podataka iz pivot access u excel tabelu
Jeli ovo?
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.Range(Kolona).Rows(Red).MergeCells = True
  34. ExcelSheet.Application.Cells(Red - 1, Kolona).Value = Podatak
  35. PodatakPrije = Podatak
  36. Podatak = "Kut"
  37. ExcelSheet.Application.Cells(Red, Kolona).Value = Podatak
  38. Podatak = "Pod"
  39. ExcelSheet.Application.Cells(Red, Kolona).Value = Podatak
  40. End If
  41. RsSort.MoveNext
  42. Loop
  43.  
  44. Rs.MoveFirst
  45. Do While Not Rs.EOF
  46. Podatak = Rs.Fields(1)
  47. If Podatak <> PodatakPrije Then
  48. Red = Red + 1
  49. ExcelSheet.Application.Cells(Red, 1).Value = Podatak
  50. Podatak = Rs.Fields(2)
  51. ExcelSheet.Application.Cells(Red, 2).Value = Podatak
  52. Podatak = Rs.Fields(3)
  53. ExcelSheet.Application.Cells(Red, 3).Value = Podatak
  54. Podatak = Rs.Fields(1)
  55. PodatakPrije = Podatak
  56. End If
  57. For X = 4 To Kolona Step 2
  58. If KolS(X) = Rs!Rel Then
  59. Podatak = Rs.Fields(5)
  60. ExcelSheet.Application.Cells(Red, X).Value = Podatak
  61. Podatak = Rs.Fields(6)
  62. ExcelSheet.Application.Cells(Red, X + 1).Value = Podatak
  63. End If
  64. Next X
  65. Rs.MoveNext
  66. Loop
  67. ExcelSheet.Application.Cells.EntireColumn.AutoFit
  68. Red = 1
  69. Kolona = 1
  70. Rs.MoveFirst
  71. Podatak = Rs.Fields(0)
  72. ExcelSheet.Application.Cells(Red, Kolona).Value = "PREGLED NA DAN " & Podatak
  73. ExcelSheet.Application.Visible = True
  74. OtvoriExcel_izl:
  75. Exit Function
  76. OtvoriExcel_err:
  77. MsgBox "Došlo je do greške", 48, "Greska"
  78. Resume OtvoriExcel_izl
  79. End Function

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: 10: 05 am.