Update tabele u Accessu iz Excela

[ Ekonomist30 @ 17.10.2011. 22:18 ] @

Pozdrav svima

Imam jedan problem, hmmm, koji sam pokusavao rjesiti, ali ne ide:) pa kontam, ima strucnjaka ovdje, njima je to lako.

Naime, problem je sljedeci:

Imam u Excelu tabelu sa podacima o nekim mjerenjima koja radim, znaci dimenzije, sirina, visina, zapremina itd.

E sada, imam tabelu u Accessu kod koje su nazivi polja isti kao i kod tabele u MS Excelu, s tima da u Accessu imam i primary key (autonumber), dok tog polja u Excelu nema.

Znaci raspored je:

Tabela Excel

Opis Duzina Sirina Povrsina Visina Zapremina

Tabela Access

ID Opis Duzina Sirina Povrsina Visina Zapremina

Da li je moguce napraviti macro naredbu i "priljepiti" je na dugme u excelu, koja kada bi se izvrsila, podaci iz excela bi se "zaljepili" u access tabelu?

Pretpostavljam uz pomoc ADO/DAO ali kako-ideje nemam. Pokusavao sam na ovaj nacin:

Code:
Sub Export_mjerenja()

Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Dim stDB As String
Dim stCon As String

Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset

stDB = "C:\mjerenja.mdb"

stCon = "Provider=Microsoft.Ace.OLEDB.12.0; Persist Security Info = False;" & _
"Data Source=" & stDB & ";"

cnt.Open stCon

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

With rst
    .Index = "PrimaryKey"
    .CursorLocation = adUseServer
    .Open "tbl_mjerenje", cnt, 1, 3, adCmdTableDirect
    .Seek Range("CaseNum").Value
    If Not rst.EOF Then
        .Fields("opis") = Sheets("mjerenja").Range("b9").Value
        .Fields("duzina") = Sheets("mjerenja").Range("b11").Value
        If Sheets("mjerenja").Range("k2") = "p" Then
        .Fields("sirina") = Sheets("mjerenja").Range("b12").Value
        End If
        .Fields("povrsina") = Sheets("mjerenja").Range("b13").Value
        .Fields("visina") = Sheets("mjerenja").Range("b14").Value
        .Fields("zapremina") = Sheets("mjerenja").Range("b15").Value
.Update
    Else
    MsgBox "Nije uspjelo"
    End If
End With
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

rst.Close
cnt.Close

Set cnt = Nothing
Set rst = Nothing

End Sub

NEmam pojma sta cu i kud cu :))... Ne radi

Neka ideja!

Hvala svima unaprijed

[ Srbin do jaja @ 13.11.2011. 14:59 ] @

http://www.youtube.com/watch?v=V7vATurMjKc

[ lukarim @ 13.11.2011. 16:46 ] @

Naravno da nemaš pojma jer si problem počeo rješavati od kraja. Nisi razmišljao kad dođeš na Mjesec kako češ nazad. Zašto Access, kad možeš sve to napraviti u Excelu. Zašto. Valjda jer je to COOL, to je fora Jer si FACA ala brale ludilo postavio si problem , koji je bez veze i sad tražiš da ti ga drugi rješe. Kada ti ga rješe u prvom slijedećem pomaku ti nemaš pojma šta napraviti. Stoga to napravi u Excelu, Bazu podataka. onda imaš filtere koje će te dovesti do rješenja.Pola ih nezna rješiti formatiranje a putovali bi na Mjesec. I sad baš nemaju ideju riješiti import access-Excel. Eto baš im fali samo malo.Nemojte trošiti resurse ovog foruma uzalud. U svakom znanju pa tako i u ovom morate materiju svaladavati po etapama.Skužiš etapu pa malo inputa pa skočiš na slijedeći razred pa opet ispočetka. Za Import Access-excel treba da se dobro nasjediš. Svo znanje iz Excela svaki put kada priđeš rješavanju moraš podignuti i uzimati kako ti šta treba.
Sjeti se kako kompjuter to radi. Početak je Bios onnda polagano sve dok se sve ne podigne. Tada bez problema možeš pristupiti svakom resursu. ..................... Umoran sam od života,

[ anakin14 @ 17.11.2011. 14:36 ] @

u jbt kakvih ludaka ima...