Office: (Office 2007) FileDialog

Ich habe eine ziemliche Anfängerfrage....es ist einfach zu lange her, dass ich mit Access/VBA gearbeitet habe...
Ich möchte einen FileDialog öffnen und eine Exceldatei auswählen können. Deren Daten sollen an eine vorhandene Tabelle in Access angehängt werden. Felder in excel und access sind identisch..
Wer kann mir helfen?
tschai

:)

 

Hi,

das sind zwei Teilprobleme: Dateiauswahl und Import

Zunächst setze einen verweis auf MS Office. Dann geht:
Code:

Bei der TransferSpreadsheetzeile wirst du evtl. noch anpassen müssen (Typ, Zieltabelle, Feldnamen in 1. Zeile etc).

Das gefährlichste wird die Annahme sein, die Feldstrukturen seien gleich. Excel kennt keine Datentypen, daher deutet Access die Feldinhalte. Diese Deutung kann fehlschlagen. Ich würde im Zweifelsfall als csv exportieren und die csv imporiteren; dabei kann man die Datentypen erzwingen statt erraten lassen (Stichwort Importspezifikation).

 

ich hab den code mal übernommen und beim clicken ausführen ausgewählt.
der button reagiert nicht....???

habe übrigens access 2007...meine signatur war total veraltet...

 

Das läuft auch unter 2007, gerade getestet.

Wenn der Button nicht reageirt, hat er deinen Wunsch nicht verstanden. Bring es ihm wie folgt bei:

1. Entwurfsmodus,
2. Button markieren,
3. Eigenschaft "BeimKlicken" aufsuchen,
4. Cursor da reinsetzen,
5. dortiges Dropdown auf Ereignisprozedur einstellen,
6. ...-Symbol dahinter anklicken
7. Meinen Code in die VBA-Routine reinkopieren.

 

genau so hab ich es gemacht und es tut sich nichts... ;(((

 

Genauso hab ich es gemacht und es tut. Siehe Anlage...

 

Hallo

diesen Code habe ich aus der Access-Hilfe kopiert.
Dieser Code funktioniert bei mir wie Atrus2711 geschrieben hat.
Ich hoffe es hilft weiter.
Gruß alfini

'Declare a variable as a FileDialog object.
Dim fd As FileDialog

'Create a FileDialog object as a File Picker dialog box.
Set fd = Application.FileDialog(msoFileDialogFilePicker)

'Declare a variable to contain the path
'of each selected item. Even though the path is a String,
'the variable must be a Variant because For Each...Next
'routines only work with Variants and Objects.
Dim vrtSelectedItem As Variant

'Use a With...End With block to reference the FileDialog object.
With fd

'Use the Show method to display the File Picker dialog box and return the user's action.
'The user pressed the action button.
If .Show = -1 Then

'Step through each string in the FileDialogSelectedItems collection.
For Each vrtSelectedItem In .SelectedItems

'vrtSelectedItem is a String that contains the path of each selected item.
'You can use any file I/O functions that you want to work with this path.
'This example simply displays the path in a message box.
MsgBox "The path is: " & vrtSelectedItem

Next vrtSelectedItem
'The user pressed Cancel.
Else
End If
End With

'Set the object variable to Nothing.
Set fd = Nothing

End Sub

 

Wenn sich beim Klick gar nichts tut, glaube ich eher, dass die Einbettung in das richtige Ereignis das Problem war... warten wir ab, was der Fragesteller sagt...

 

ich versteh das auch alles nicht..hatte auch schon den code aus der access hilfe probiert.

@atrus2711: deine datei hat funktioniert. ich habe es genauso gemacht...anscheinend kommt der click nicht beim code an ???

jetzt habe ich aber mal dein formular in meine datenbank kopiert...und es geht.
und bei meinem formular bekomme ich beim click folgende info (methode filedialog für das objekt _application ist fehlgeschlagen) zu dieser zeile im code:
Set dlg = FileDialog(msoFilePicker) 'Dialog öffnen

sehr merkwürdig alles...

 

Eventuell fehlt bei dir "Option Explicit" im Code. *wink.gif*

Welchen Wert hat "msoFilePicker"? Ich nehme an, es entsteht folgendes:
Set dlg = FileDialog(0)
Im Beispiel von Martin sieht das so aus:
Code:

msoFileDialogFilePicker hat den Wert 3.

 

das war es!!!
Danke...
und woher wißt ihr, dass bei mir kein option explicit steht??? wofür braucht man das überhaupt?
DANKE DANKE DANKE!

 

big brother is watching u
:-)

 

Um solche Fehler erst gar nicht auftreten zu lassen. *wink.gif*

Mach einfach einen Versuch: stelle Option Explicit ein und verwende msoFilePicker statt msoFileDialogFilePicker. Anschließend versucht du die Anwendung zu kompilieren. Es sollte nun eine Compiler-Meldung kommen, dass msoFilePicker nicht definiert ist.

Ich kann dir nur empfehle, immer "Option Explicit" einzusetzen. Damit beseitigst du eine große Fehlerquelle, da du damit Tippfehler u. ä. ausschließt.