Bosanec |
30.11.2023 23:47 |
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 |
Avko |
01.12.2023 14:31 |
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 ? |
zxz |
04.12.2023 10:55 |
Predmet:Re:Access to excel
Ja sam ovo probap u office 10.
Nisi napisao u kojoj verziji radis:
PreuzmiIzvorni kôd (Visual Basic):Function PrebaciPodatkeUExcel()
' Pristupi bazi podataka
Dim db As DAO.Database
Set db = CurrentDb
' Definisi SQL upit za selektovanje podataka iz Access tabele
Dim strSQL As String
strSQL = "SELECT * FROM ImetvojeTabeleuAccessu;"
' Otvara rekordset na osnovu SQL upita
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset(strSQL)
' Kreira novi Excel aplikacija objekt
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True ' Ako zelis vidjeti Excel aplikaciju
' Dodajte novi radni list u Excel
Dim xlWb As Object
Set xlWb = xlApp.Workbooks.Add
Dim xlWs As Object
Set xlWs = xlWb.Sheets(1) ' Prvi radni list u novom radnom svesku
' Postavi zaglavlje u Excel
For i = 1 To rs.Fields.Count
xlWs.Cells(1, i).Value = rs.Fields(i - 1).Name
Next i
' Dodaj podatke u Excel
Dim red As Integer
red = 2 ' Prvi red sa podacima u Excel (iza zaglavlja)
Do Until rs.EOF
For i = 1 To rs.Fields.Count
xlWs.Cells(red, i).Value = rs.Fields(i - 1).Value
Next i
rs.MoveNext
red = red + 1
Loop
' Zatvori rekordset i bazu podataka
rs.Close
Set rs = Nothing
Set db = Nothing
End Function
|