Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kod za preuzimanje podataka iz excela u access

[es] :: Access :: Kod za preuzimanje podataka iz excela u access

[ Pregleda: 2654 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.



+41 Profil

icon Kod za preuzimanje podataka iz excela u access18.07.2008. u 21:03 - pre 191 meseci
Pozdrav svima.Interesuje me da li može da se napiše kod koji će da odradi upisivanje (popunjavanje) tabele koja sadrži recimo sva polja iz excel fajla,tako da korisnici popunjavaju formular u excelu,a on se prebacivanjem pakuje u accessovu bazu.Ako Vas interesuje zbog čega korisnici ne ubacuju kroz access,odgovor je sledeći: koriste se Ipod-ovi koje korisnici koriste na terenu,popunjavaju izveštaje,a kada dođu u firmu,potrebno je samo da prebace te izveštaje u bazu.Ipod-ovi nemaju access već samo word i excel.Nadam se da sam bio jasan.
Jednog dana...
 
Odgovor na temu

Kiro
Akir Žalić
BiH

Član broj: 19085
Poruke: 114
92.36.243.*

Sajt: www.icentar.ba


Profil

icon Re: Kod za preuzimanje podataka iz excela u access19.07.2008. u 09:03 - pre 191 meseci
iPod je Audio-vido player, koliko ja znam?
Kiro
 
Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.



+41 Profil

icon Re: Kod za preuzimanje podataka iz excela u access19.07.2008. u 20:18 - pre 191 meseci
Kiro u pravu si.Mislio sam na PDA uređaje.Što se tiče problema,rešio sam ga pomoću komande:TransferSpreadsheet.Za sada je sve ok.
Jednog dana...
 
Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.



+41 Profil

icon Re: Kod za preuzimanje podataka iz excela u access19.07.2008. u 23:55 - pre 191 meseci
Evo me opet sa drugim problemom:kako da rešim oznaku izmenjivog diska,negde je on E:,negde F: itd.Kod je sledeći:
Code:

DoCmd.TransferSpreadsheet acImport, 6, _
"tblIzvestajistariKupci", "f:\komercijala.xls", True, "a1:g10"
 MsgBox "Import je već odrađen", vbOKOnly, "import odrađen"
 If MsgBox("Da li želite da obrišete izveštaj u PDA uređaju?", vbQuestion + vbYesNo, "Brisanje") = vbYes Then
 DoCmd.TransferSpreadsheet acExport, 6, _
"tblbrisanjeexcela", "f:\komercijala.xls", True, "a1:g10"
MsgBox "Podaci u PDA uređaju su obrisani!", vbOKOnly, "BRISANJE  FAJLOVA"
Else
End If

Znači umesto mog f: treba da stoji oznaka izmenjivog diska,koji recimo sadrži fajl pod nazivom :komercijala.xls,jer neće svuda biti ista oznaka za izmenjivi disk.
Jednog dana...
 
Odgovor na temu

Scelle
Slavko Šćekić
Student, Računarski fakultet
Beograd

Član broj: 151761
Poruke: 174
77.222.10.*



Profil

icon Re: Kod za preuzimanje podataka iz excela u access20.07.2008. u 00:04 - pre 191 meseci
Mozda da putanju uzimas iz nekog dijaloga (Access ima ugradjene dijaloge). Ja nisam nikad radio sa njima, ne znam. Mozda neko drugi da ti malo pojasni.
"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric
 
Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.



+41 Profil

icon Re: Kod za preuzimanje podataka iz excela u access21.07.2008. u 22:52 - pre 190 meseci
Hvala Scelle.Pomoću inputboxa sam rešio problem,ali sada imam drugi:Postoji li opcija da se u naredbi docmd.TransferSpreadSheet izabere list (Sheet) u Excelu koji želimo da importujemo,ili exportujemo.Pokušavao sam da pronađem,ali nisam uspeo.Po defaultu to je prvi list u excelovoj svesci.To mi je potrebno da bih odradio dva transferspreadsheeta nad istom excelovom sveskom,tako da otpada mogućnost da prepravim excelovu svesku,prevlačenjem jednog lista ispred drugog.Nadam se da sam bio jasan.Evo deo coda gde to treba da se odradi:
Code:

Private Sub Command19_Click()
DoCmd.SetWarnings False
On Error GoTo Err_Command19_Click
Dim nd As String 'nd kao naziv diska
nd = InputBox(" Unesite naziv diska za preuzimanje izveštaja", "DISK ZA PREUZIMANJE", "E", 10, 20)
           If nd = "" Then
          MsgBox "Niste ništa uneli,operacija će biti prekinuta", vbCritical, "PREKID OD STRANE KORISNIKA"
        DoCmd.Close
       Else
   MsgBox "Podaci će biti preuzeti sa izmenjivog diska " & UCase(nd), vbOKOnly, "PAŽNJA"
        DoCmd.TransferSpreadsheet acImport, 6, _
      "tblIzvestajistariKupci", nd & ":\komercijala.xls", True
        MsgBox "Preuzimanje je već odrađeno", vbOKOnly, "PREUZIMANJE PODATAKA"
          DoCmd.OpenQuery "qryIzvestajistariKupci"
          
        DoCmd.TransferSpreadsheet acExport, 6, _
      "tblbrojevi", nd & ":\komercijala.xls", True, "A:A"
      

Znači u DoCmd.TransferSpreadsheet acExport, 6, _
"tblbrojevi", nd & ":\komercijala.xls", True, "A:A" trebalo bi da se izabere komercijala.List2.Da li je to moguće?


[Ovu poruku je menjao SLOJ.1973 dana 22.07.2008. u 00:11 GMT+1]
Jednog dana...
 
Odgovor na temu

Scelle
Slavko Šćekić
Student, Računarski fakultet
Beograd

Član broj: 151761
Poruke: 174
77.222.12.*



Profil

icon Re: Kod za preuzimanje podataka iz excela u access22.07.2008. u 01:35 - pre 190 meseci
Izvini sto se ne unosim dublje u sve ovo, nemam nocas volje, ali evo da ti kazem sto znam.
Malo sam gledao po knjigama i izmedju ostalog vidio i ovu komandu:
Code:
Set xlSheet = xlWorkbook.Sheets(1)

Ovo znaci da svaki Excel Workbook objekat ima kolekciju Sheets. Sad, ne znam da li indeksiranje pocinje od 0 ili 1, niti da li moze da se kolekcija iskoristi pri TransferSpreadsheet komandi, to ostavljam tebi da otkrijes.

Edit:
Samo nagadjam: mozda da napravis objekat Excel Workbook i pripises mu zeljenu putanju, a onda s njim manipulises kako hoces. Uvozis podatke iz razlicitih Sheet-ova i sl. Gledajuci ovu komandu koju ti koristis, zaista ne vidim nacin da ocitas odredjeni Sheet. Ne znam...
"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric
 
Odgovor na temu

[es] :: Access :: Kod za preuzimanje podataka iz excela u access

[ Pregleda: 2654 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.