Knap der starter import af tabel

http://www.eksperten.dk/spm/353032

Øhhhhhhh, jeg kan ikke lige se den funktion beskrevet i det sp. du henviser til her!?!?!?!?

Er det ikke den samme tabel / importspecifikation du benytter ved hver import ?

I givet fald, kan du automatisere importen ved :
  ImportFolder = DLookup("[ImportFil]", "tblFilplacering", "[JobID] = 2")
  DoCmd.TransferText acImportDelim, "", "tblNavn", ImportFolder & "Datakilde", False, ""

http://www.eksperten.dk/spm/477925

Nej det er mange forskellige Excelfiler som brugeren selv skal kunne vælge at importere. Jeg kunne naturligvis vise brugeren at han/hun kunne trykke på NY og Importer tabel, men jeg ville jo gerne gøre det "pænt" så det hele kunne ligge på en formular!!!!!!

Altså import af en vilkårlig excelfil, uden hensyntagen til filens indhold, og data´s videre benyttelse !!!!!

Formålet kan jeg ikke rigtig se ... sorry ...

Formålet ligger i den videre bearbejdelse, som jeg HAR fået til at virke, hvor brugeren har knapper til at udføre det som han/hun har behov for.
Det er naturligvis ikke helt vilkårlige Excelfiler, de er identiske i format, men indholdet er forskelligt, og det er det indhold de skal have bearbejdet, og som jeg altså HAR lavet knapper/funktioner til.

Nu mangler jeg så bare en knap, som de kan trykke på, der starter guiden Importer tabel, så jeg kan lægge det hele på én formular!

Hvordan er regnearkene forskellige ???

Er det udelukkende rækker som varierer, og ikke antal kolonner ?

Jeg tror at vi snakker forbi hinanden her, for jeg har ikke behov for hjælp til import af dataene, og ej heller til at behandle dem videre. Det HAR jeg fundet ud af at lave.
Jeg er heller ikke interesseret i en automatiseret importrutine.

Jeg er KUN interesseret en knap der kan STARTE guiden "Importer tabel" i Access!!!

Jeg VED godt at knappen ligger i Access databasevindue, men det er jo netop det vindue jeg gerne vil undgå at skulle ind på. Jeg vil gerne kunne styre det hele fra en formular.

Den eneste mulighed ( mig bekendt ) er, at indarbejde knappen/guiden i menulinien, ikke på formularen ... sorry ...

Denne importerer et valgfrit Excel-ark:

Dim a As String
a = InputBox(Prompt:="Indtast stien til Excel-filen", Title:="Importer Excel", Default:="C:\")
DoCmd.TransferSpreadsheet acImport, 0, "Import1", a, True, ""

Du indtaster stien i en inputbox. Jerg hasr i eksemplet angivet drev C som Default, men det kan du jo bare ændre.

Mugs > det er vist ikke lige det som der efterspørges ;)

jensen363 > Så kan svaret blot afvises. Jeg har ikke nærlæst Jeres kommentarer nærmere. Er lige kommet hjem efter en 12-timers nattevagt, så det eneste det drejer sig om, er at komme på ryggen. Godnat :o)

Sov godt ;)

Så rykker vi mugs, JO det er lige præcis det jeg efterspørger. Blot ville jeg hellere have "OpenFile dialogboksen" istedet for at brugeren skal indtaste en sti.

Så har du squ ikke formuleret dig særligt tydeligt ... hvis det er OpenFile du ønskede ... du henveser til, at det er import Guiden du ville aktivere ...

jensen363> Jeg gider ikke starte en diskussion, men hvad sker der hvis du trykker på NY og dernæst på Importer tabel ?????  Hos mig kommer OpenFiledialogboksen op!

Private Sub cmdBrowse_Click()
  Dim dlg As New CommonDialog
  Dim StrFilter As String
  StrFilter = dlg.AddFilterItem(StrFilter, "Excel-filer (*.xls)", "*.xls")
  StrFilter = dlg.AddFilterItem(StrFilter, "Alle filer (*.*)", "*.*")
  dlg.DialogTitle = "Find fil"
  dlg.filter = StrFilter
  dlg.ShowOpen
  Me!Sti = dlg.Filename

  DoCmd.TransferText acImportDelim, "", "", [Sti], False, ""

End Sub

jensen363> Tak, jeg får følgende fejl når jeg trykker på knappen:
"Compile Error: User-defined type not defined"

Jeg kunne ikke sove. Fejlen kmmer typisk når du mangler en reference. I dette tilfælde til Ecel.

Åbn din formular i designvisning og gå ind i et kodemodul  Tools > References og kontroller at der er sat et checkmærke ved dit Excel bibliotek.

mugs> Det var der ikke, men det har ikke hjulpet noget. Får stadig samme fejl. HAR prøvet lukke Access helt ned.

Jeg er ved at være så træt, at det der med at tænke ikke er lige godt. Men prøv evt. at kontrollere din kode for stavefejl. Ikke at jeg tror det hjælper, men det er et forsøg værd, hvis du ikke har andre forslag.

Prøver at sove lildt igen. Beklager ikke at være til mere hjælp lige nu.

Du kan prøve at kontrollere referencen til COMDLG32.OCX

proaccess> Var der ikke, men sat, og lige lidt hjalp det.

Sorry ... modulerne mangler ... download hele programmet her :

http://www.makeiteasy.dk/eksempler/OpenFileDialog.zip

If I remember correctly (not often) then COMDLG32.OCX is NOT a standard Access component. So you will need to use an API call to open it.

Yopu can download an example from Thomas examples http://www.makeiteasy.dk/eksempler/OpenFileDialog.zip

:o) I'm sleeping here, didnt see your last comment there jensen363 :o)

Jeg er godt nok ikke nogen særlig god "kodehaj" men som jeg ser jeres hjælp her, så har jeg gjort følgende......så ret mig hvis jeg gør noget forkert.
1. Formulardesign, 2. Opretter en ny knap, 3. Generer hændelsesprocedure, 4. vælger kodegenerator, 5. Indsætter HELE koden fra "MakeIT Easy" databasen.

Det virker bare stadig ikke, nu får jeg følgende fejl:
Compile error: Method or data member not found

Hjælp..............

Iøvrigt så har jeg netop afprøvet "makeITeasy" databasen, og som jeg ser den så ÅBNER den bare en fil. Det jeg har brug for er at importere en fil!!!!!

Det som du skal have kopieret i første omgang, er de tre moduler.

På din formular, skal du oprette et tekstfelt, med navnet sti.

Nedenstående kode tildeler du knappen :

  Dim dlg As New CommonDialog
  Dim StrFilter As String
 
  StrFilter = dlg.AddFilterItem(StrFilter, "Excel-filer (*.xls)", "*.xls")
  StrFilter = dlg.AddFilterItem(StrFilter, "Alle filer (*.*)", "*.*")
  dlg.DialogTitle = "Find fil"
  dlg.filter = StrFilter
  dlg.ShowOpen
  Me!sti = dlg.Filename
 
  Importfil = Me!sti

  DoCmd.TransferSpreadsheet acImport, 0, "tblData", Importfil, True, ""

P.S. Modulerne importerer du ind i din egen database

Hvad mener du med den sidste kommentar "Importerer" ?????

Når jeg kører den nu stopper den i denne linie:

  StrFilter = dlg.AddFilterItem(StrFilter, "Excel-filer (*.xls)", "*.xls")

zip databasen og send den til ose@post.dk så skal jeg kigge på problemet

Databasen returneret med følgende bemærkninger :

Nu skulle det gerne virke ... problemet var, at din database var fejlbehæftet. så
det eneste jeg reelt har gjort er, at kopiere hele indholdet over i en ny, og
så foretaget mindre justeringer i din programkode.

DoCmd.TransferSpreadsheet acImport, 0, "Rabatskabelon", Importfil, True, ""

Det er simpelthen bare kanon, det virker skide godt.

Er der mulighed for at bygge muligheden for at vælge hvilket ark der skal importeres (det SKAL være  brugeren der selv skal vælge dette!!!)?????

Desværre så kan jeg i dette tilfælde risikere at det er forskellige ark, på den aktuelle Excelfil der skal importeres.

Navnet på det område du vil importere er det sidste argument. Her Ark1!A1:A25:


DoCmd.TransferSpreadsheet acImport, 0, "Rabatskabelon", Importfil, True, "Ark1!A1:A25"

Evt. kan du lade brugeren indtaste området ved at definere en variabel, der modtager teksten via en Inputbox.