Private Sub import_Click()
Dim fd As FileDialog
Dim vrtSelectedItems As Variant
Dim blnSave As Boolean
DoCmd.SetWarnings False
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = „Wählen Sie eine Datei aus!“
.AllowMultiSelect = False
fd.InitialFileName = Application.CurrentProject.Path & „“
blnSave = fd.Show
For Each vrtSelectedItem In fd.SelectedItems
MsgBox "Folgende Datei wurde importiert: " & vrtSelectedItem
DoCmd.TransferSpreadsheet , , „Kunde“, vrtSelectedItem, True
Next vrtSelectedItem
Set fd = Nothing
End With
DoCmd.SetWarnings True
End Sub
Hallo,
ich möchte Excel -Tabellen nach Access importieren, das funktioniert auch soweit, doch die Tabelle hat einen festen Namen und wird immer unter „Kunde“ gespeichert. D.h., ich muss die importierte Tabelle umbenennen, um neue Tabellen importieren zu können. Es soll mir aber möglich sein, in dem FileDialog, was sich öffnet, selbst einen Namen einzugeben. Kann mir da jemand helfen?? Vielen Dank im Voraus….