File-Dialog und Import

Computer: Software & Programmierung Microsoft Access
#1

Hallo,

ich arbeite mit Access 2003.

Ich möchte einen Filedialog starten, und die ausgewählte Datei dann in Access importieren.

Folgenden Code verwende ich dazu:

Dim dlgOpen As Object
Dim datei As Variant

Set dlgOpen = Application.FileDialog(1)
With dlgOpen
Title = „oeffnen“
.MultiSelect = True
.show

datei = Ausdruck.GetOpenFileName()

End With

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, „customer“, datei, True

FileDialog wird geöffnet, ist soweit kein Problem.

Das erste Problem ist, das er das Multiselect nicht zulassen will.

Das zweite Problem ist, das mir immer die Meldung Laufzeitfehler 424 erscheint, Objekt erforderlich. Der Debugger bleibt dann auf datei = Ausdruck.GetOpenFileName() stehen.

Wer weiss was?`

Gruss

Tna

#2

HAllo,

wo hast Du denn den Code abgekupfert??

Und ein bisschen sorgfältiger mußt Du auch damit umgehen…

ich arbeite mit Access 2003.

Ich möchte einen Filedialog starten, und die ausgewählte Datei
dann in Access importieren.

Folgenden Code verwende ich dazu:

Dim dlgOpen As Object
Dim datei As Variant

Set dlgOpen = Application.FileDialog(1)
With dlgOpen
.Title = „oeffnen“ 'Punkt fehlt
'.MultiSelect = True 'die Eigenschaft gibt es nicht bei diesem Filedialog
.show

:datei = Ausdruck.GetOpenFileName() '?? Quatsch, das stammt aus anderen Gefilden
For each itm in .SelectedItems
debug.print itm 'zum Ansehen der selektierten Dateinamen
datei = itm 'irgendeine bei Mehrfachauswahl zuordnen
End With
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8,
„customer“, datei, True

FileDialog wird geöffnet, ist soweit kein Problem.

Das erste Problem ist, das er das Multiselect nicht zulassen
will.

Kann er schon, aber wozu? hier kann eh immer nur eine Datei verwendet werden

Das zweite Problem ist, das mir immer die Meldung
Laufzeitfehler 424 erscheint, Objekt erforderlich. Der
Debugger bleibt dann auf datei = Ausdruck.GetOpenFileName()
stehen.

Ja, ich würde genau so meckern wie Access…

Wer weiss was?`

mhmm, mal sehen, ob wir einen finden :wink:

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#3

Hallo,

'.MultiSelect = True 'die Eigenschaft gibt es nicht
bei diesem Filedialog

die heist hier
.AllowMultiSelect

Tschau
Peter