Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (4):1,2,3,4

#11 29.11.2012 11:35
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: export u excel (redosled kao u reportu)
Pa to ide uz sufix " menadžeri "
:-)
↑  ↓

#12 29.11.2012 11:37
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: export u excel (redosled kao u reportu)
Zašto ne napraviš formu u exelu pa si riješio menadžeri problem
↑  ↓

#13 29.11.2012 11:46
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: export u excel (redosled kao u reportu)
u access-u mi je lakše da pratim i obradjujem podatke
↑  ↓

#14 03.12.2012 12:41
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: export u excel (redosled kao u reportu)
Da li ima pomoci mom problemu? Gledao sam nešto na netu da je moguce posle prebacivanja u excel da se iz access-a podesi excel.
↑  ↓

#15 03.12.2012 19:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: export u excel (redosled kao u reportu)
Da ima naravno.
Treba napraviti kod.
Primjera ima ovdje dosta takvih. Imam ja ovo na umu ali sad nemam vremena kod napraviti.
Neznam mozda jos ko pokusava uraditi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#16 04.12.2012 15:16
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: export u excel (redosled kao u reportu)
Ja nisam jer ne razumijem postupak ?
Ako se napravi templates koji se save pri exportu onda je to jednostavno ali ako se krenu slagati sve kolone , prazne kolone , vrijednosti u kolonama i ostalo ,onda je to dosta posla ...
↑  ↓

#17 04.12.2012 20:28
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: export u excel (redosled kao u reportu)
Templata se pravi ako imamo dosta polja koja su stalno ista mada je sve bolje kodom napraviti.
Primjera ima dosta ovdje.
Ja sam za Nzuku nesto slicno pravio.
Ima negdje i kalendar u exelu koji je napravljen kodom.
Naravno to moze pomoci samo da mozemo citati neke naredbe za formatiranje polja ali uglavnom treba napraviti proceduru i izgubiti najmanje sat vremena.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#18 05.12.2012 13:28
xl_kid Van mreze
Clan
Registrovan od:11.11.2008
Postovi:154


Predmet:Re: export u excel (redosled kao u reportu)
Ako je ikako moguće kodom napraviti export bilo bi super. Polazim od toga da su (bez ikakvo vredjanja ili ponižavanja, omalovažavanja i sl.) osobe kojim je namenjena aplikacija nedovoljno "tehnoloÅ¡ki" obrazovane. S druge strane poći ću i od sebe, kada dobijemo ponudu za neko aplikativno reÅ¡enje ili poboljÅ¡anje postojećeg tražim, izmedju efikasnosti i Å¡to je moguće manji broj klikova i učestalu promenu miÅ¡-tastatura. No, da se vratim mom trenutnom problemu koji imam. Goglao sam na netu i video da je moguće exportovati podatke u excel (već pripremljena tabela) a da se ubaci kod u samom excel-u i on sredi podatke kako je potrebno. Å ta bi onda bio problem. Bojim se da prilikom čuvanja tabele ne pregaze postojeću i tako se prilikom narednog exporta javi problem. 10 dana mi je trebalo da objasnim ljudima da izveÅ¡taji koje rade u excel tabeli čuvaju sa SaveAs a ne Save.
↑  ↓

#19 06.12.2012 09:17
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: export u excel (redosled kao u reportu)
Evo nešto što sam ja našao ali neznam radi li:
PreuzmiIzvorni kôd (Text):
  1. Dim appExcel As Excel.Application
  2. Dim wbk As Excel.Workbook
  3. Dim wks As Excel.Worksheet
  4.  
  5. Dim sOutput As String
  6.  
  7. Dim rng As Range
  8. Dim dbs As DAO.Database
  9. Dim rst As DAO.Recordset
  10. Dim sSQL As String
  11.  
  12. Const cTabTwo As Byte = 1
  13.  
  14. DoCmd.Hourglass True
  15.  
  16. ' set to break on all errors
  17. Application.SetOption "Error Trapping", 0
  18.  
  19. sOutput = CurrentProject.Path & "c:\Book1.xls"
  20.  
  21. ' Create the Excel Applicaiton, Workbook and Worksheet and Database object
  22. Set appExcel = Excel.Application
  23. Set wbk = appExcel.Workbooks.Open(sOutput)
  24. Set wks = appExcel.Worksheets(cTabTwo)
  25.  
  26.  
  27. sSQL = "select * from qry_Client_Ranking"
  28. Set dbs = CurrentDb
  29. Set rst = dbs.OpenRecordset(sSQL, dbOpenSnapshot)
  30.  
  31. Set rng = A1: G26 (How TO DEFINE THE RANGE OBJECT?)
  32. rng.CopyFromRecordset rst
Ima toga još guglaj malo; upiši ovo u google:vba export access to excel
Miro
↑  ↓

#20 06.12.2012 09:25
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Postovi:608


Predmet:Re: export u excel (redosled kao u reportu)
Imaš i ovo:
PreuzmiIzvorni kôd (Text):
  1. Dim db As DAO.Database, rs As DAO.Recordset, str1Sql As QueryDef, strCrt As String, strDt As String
  2.     Set db = CurrentDb
  3.     Set rs = db.OpenRecordset("SELECT distinct fieldname FROM table (or query Probably without parameters) ORDER By fieldname;")
  4.         '**** fieldname, consider this to be how the records are grouped within the dataset.
  5.    
  6.     rs.MoveLast
  7.     rs.MoveFirst
  8.    
  9.     Do While Not rs.EOF
  10.         strCrt = rs.Fields(0)
  11.         Set str1Sql = db.CreateQueryDef("" & strCrt, "SELECT table.*  FROM table WHERE table.fieldname = '" & strCrt & "';")
  12.         DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "" & strCrt, "C:\filename " & ".xls", True
  13.         DoCmd.DeleteObject acQuery, "" & strCrt
  14.     rs.MoveNext
  15.     Loop
  16.    
  17.     rs.Close
  18.     Set rs = Nothing
  19.     Set db = Nothing
  20.  
  21.             ********************************
Ako želiš složit isto kao u svom report-u onda u ovoj funkciji je napisano ovo:ORDER By fieldname
Ti trebaš imati i u reportu neku kolonu po kojoj je to složeno da bi kad izvoziš u exel po toj koloni složio.
Miro
↑  ↓

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

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 3: 01 am.