Kod za preuzimanje podataka iz excela u access

[ SLOJ.1973 @ 18.07.2008. 21:03 ] @

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.

[ Kiro @ 19.07.2008. 09:03 ] @

iPod je Audio-vido player, koliko ja znam?

[ SLOJ.1973 @ 19.07.2008. 20:18 ] @

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.

[ SLOJ.1973 @ 19.07.2008. 23:55 ] @

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.

[ Scelle @ 20.07.2008. 00:04 ] @

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.

[ SLOJ.1973 @ 21.07.2008. 22:52 ] @

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]}

[ Scelle @ 22.07.2008. 01:35 ] @

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