Export in eine Exceltabelle

Liebling

Cadet 4th Year
Registriert
Aug. 2001
Beiträge
73
Hallo,

hab mal eine Frage. Ich habe einen Code geschrieben, womit ich über ein Modul Daten von Access nach Excel exportieren kann. Nun ist meine Frage. Ich würde gerne den Tabellenname selber eingeben, aber irgendwie übernimmt er den Wert nicht. Ich frage den Tabellennamen in der Inputbox ab und weiß das dem Tabellennamen auch zu, nur unten in der export abfrage schreibt er dann nicht den namen.

DoCmd.OpenTable "Empfänger", acNormal
Tabellenname = InputBox("Bitte geben sie einen Empfängername ein")

If .SelectedItems.Count = 0 Then Exit Sub
DoCmd.TransferSpreadsheet acExport, _
acSpreadsheetTypeExcel7, _
"Umsätzegesamt", _
.SelectedItems(1) & "\[Tabellenname]"
End With

Nach oben
 
Hab den Fehler gefunden.
Einfach das .SelectedItems(1) löschen und schon übernimmt er die Namen.
 
Zurück
Oben