Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 30.11.2023 22:47
Bosanec Van mreze
Clan
Registrovan od:02.02.2009
Postovi:155


Predmet:Access to excel
Pozdrav raja
kako da iz accessa putem vba coda prebacim u excel fajl
u određeni sheet i određeno polje podatak iz access tabele
l.p
↑  ↓

#2 01.12.2023 13:31
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


Predmet:Re:Access to excel
iz jednog polja accessa podatak prebaciti u jedno polje u excelu, jeli tako mislis?

npr. bosanec (polje iz table ime u accessu) prebaciti u excel u sheet1, polje A1 (cells(1,1))?
i za to napisati VBA ?
zivot je moja domovina.
↑  ↓

#3 04.12.2023 09:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re:Access to excel
Ja sam ovo probap u office 10.
Nisi napisao u kojoj verziji radis:

PreuzmiIzvorni kôd (Visual Basic):
  1. Function PrebaciPodatkeUExcel()
  2.     ' Pristupi bazi podataka
  3.    Dim db As DAO.Database
  4.     Set db = CurrentDb
  5.  
  6.     ' Definisi SQL upit za selektovanje podataka iz Access tabele
  7.    Dim strSQL As String
  8.     strSQL = "SELECT * FROM ImetvojeTabeleuAccessu;"
  9.  
  10.     ' Otvara rekordset na osnovu SQL upita
  11.    Dim rs As DAO.Recordset
  12.     Set rs = db.OpenRecordset(strSQL)
  13.  
  14.     ' Kreira novi Excel aplikacija objekt
  15.    Dim xlApp As Object
  16.     Set xlApp = CreateObject("Excel.Application")
  17.     xlApp.Visible = True ' Ako zelis vidjeti Excel aplikaciju
  18.  
  19.     ' Dodajte novi radni list u Excel
  20.    Dim xlWb As Object
  21.     Set xlWb = xlApp.Workbooks.Add
  22.     Dim xlWs As Object
  23.     Set xlWs = xlWb.Sheets(1) ' Prvi radni list u novom radnom svesku
  24.  
  25.     ' Postavi zaglavlje u Excel
  26.    For i = 1 To rs.Fields.Count
  27.         xlWs.Cells(1, i).Value = rs.Fields(i - 1).Name
  28.     Next i
  29.  
  30.     ' Dodaj podatke u Excel
  31.    Dim red As Integer
  32.     red = 2 ' Prvi red sa podacima u Excel (iza zaglavlja)
  33.  
  34.     Do Until rs.EOF
  35.         For i = 1 To rs.Fields.Count
  36.             xlWs.Cells(red, i).Value = rs.Fields(i - 1).Value
  37.         Next i
  38.         rs.MoveNext
  39.         red = red + 1
  40.     Loop
  41.  
  42.     ' Zatvori rekordset i bazu podataka
  43.    rs.Close
  44.     Set rs = Nothing
  45.     Set db = Nothing
  46. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 45 pm.