Filename hinschreiben
Chris
Per Makro importiere ich ein paar Sheets aus einer anderen Excel-Datei. Ein Teil des Codes dazu lautet:
fname = Application.GetOpenFilename("Excel-Data-Input,*.xls", , "Choose Excel Source File")
If fname False Then
Set ImportWkB = Workbooks.Open(fname, ReadOnly:=True, UpdateLinks:=0)
Jetzt hätte ich gerne in Zelle B6 den Namen der Datei, aus der ich importiert habe. Wie würde der Code lauten, um den Namen von ImportWkB in die Zelle zu schreiben?
Anzeige