Office: (Office 2016) Beim Import von Exceldatei Spalte hinzufügen und füllen

Guten Morgen,

ich bin noch recht neu in der Materie. Ich habe mehrere Dateien gleicher Struktur, die automatisiert importiert werden. Um diese später mit einer UNION-Abfrage weiter zu bearbeiten muss ein Feld Lieferant hinzugefügt werden, dass mit dem Dateinamen automatisiert gefüllt werden soll. Das soll während des Imports passieren.
Mein Ansatz ist folgender:
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, tblName, Datei, True, "Smelter List!A4:Q" & Tabellenende
CurrentDb.Execute "ALTER TABLE Daten ADD COLUMN Lieferant TEXT(255)"
DoCmd.Close
Das hinzufügen der Spalte funktioniert jetzt, aber wie fülle ich sie automatisch?
Was müsste ich tun um mein Vorhaben in die Tat umzusetzen?

Vielen Dank im Vorraus.
Momo

 

Problem hat sich erübrigt, ich hab das gleiche mit UPDATE lösen können