Microsoft Excel

Herbers Excel/VBA-Archiv

Filename hinschreiben | Herbers Excel-Forum


Betrifft: Filename hinschreiben von: Chris
Geschrieben am: 04.12.2009 10:20:37

Guten Morgen zusammen!

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?

  

Betrifft: Range("B6")=fName owT von: Rudi Maintaire
Geschrieben am: 04.12.2009 10:31:09




  

Betrifft: AW: Range("B6")=fName owT von: Chris
Geschrieben am: 04.12.2009 12:37:28

Danke!


Beiträge aus den Excel-Beispielen zum Thema "Filename hinschreiben"