Kod za preuzimanje podataka iz excela u access

Kod za preuzimanje podataka iz excela u access 18.07.2008. u 22:03 · pre 222 meseca #1

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.

Potpis

Jednog dana...

Re: Kod za preuzimanje podataka iz excela u access 19.07.2008. u 10:03 · pre 222 meseca #2

iPod je Audio-vido player, koliko ja znam?

Potpis

Kiro

Re: Kod za preuzimanje podataka iz excela u access 19.07.2008. u 21:18 · pre 222 meseca #3

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.

Potpis

Jednog dana...

Re: Kod za preuzimanje podataka iz excela u access 20.07.2008. u 00:55 · pre 222 meseca #4

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.

Potpis

Jednog dana...

Re: Kod za preuzimanje podataka iz excela u access 20.07.2008. u 01:04 · pre 222 meseca #5

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.

Potpis

"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

Re: Kod za preuzimanje podataka iz excela u access 21.07.2008. u 23:52 · pre 222 meseca #6

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?

Potpis

Jednog dana...

Re: Kod za preuzimanje podataka iz excela u access 22.07.2008. u 02:35 · pre 222 meseca #7

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...

Potpis

"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

Forum kao aplikacija na telefonu

Srodne teme