Hallo
Ich möchte den Dateinamen, der importierten Datei, in einer Zelle
z.B. B2 anzeigen lassen.
Ich öffne die Datei mit:
„Application.GetOpenFilename(„Datei (*.xls), *.xls“)“
jetzt müsste es doch einen anschliessenden Code geben, der den Eintrag in die Zelle macht.
Hat einer eine Idee ?
Gruss
Hi Flexo,
Ich möchte den Dateinamen, der importierten Datei, in einer
Zelle
z.B. B2 anzeigen lassen.
Ich öffne die Datei mit:
„Application.GetOpenFilename(„Datei (*.xls), *.xls“)“
Nein, du wählst eine Datei aus, öffnen tust du sie damit nicht.
jetzt müsste es doch einen anschliessenden Code geben, der den
Eintrag in die Zelle macht.
Wenn du nach dem Auswählen der Datei sie auch öffnest, so ist sie die aktive Datei, für den Namen brauchst du dann nur:
Range(„B2“)=activeworkbook.name
natürlich mußt du das noch refeenzieren, also in welcher B2 das stehen soll, z.B. so:
ThisWorkbook.Range(„B2“)=activeworkbook.name
Gruß
Reinhard
Hallo Reinhard
Stimmt, ich öffne eine Datei mit diesem Befehl. Ich möchte den Namen
der zu öffnenten Datei in der Zelle haben und nicht das Workbook.
Also z.B. test.txt = zu importierende Datei… disen Namen möchte ich
in der Zelle haben.
Gruss
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Stimmt, ich öffne eine Datei mit diesem Befehl. Ich möchte den
Namen
der zu öffnenten Datei in der Zelle haben und nicht das
Workbook.
Also z.B. test.txt = zu importierende Datei… disen Namen
möchte ich
in der Zelle haben.
Hallo Flexo,
ich verstehe dich nicht, die geöffnete Datei ist das aktive Workbook, was läuft da falsch:
Option Explicit
’
Sub tt()
Dim Datei
Datei = Application.GetOpenFilename(„Datei (*.xls), *.xls“)
Workbooks.Open Datei
ThisWorkbook.Worksheets(1).Range(„B2“) = ActiveWorkbook.Name
End Sub
Gruß
Reinhard
Hallo Reinhard
Jetzt sehe ich das Problem. Da ich mit ActiveSheet.QueryTables.Add
arbeite… bin ich natürlich in der gleichen Mappe. Darum zeigt es
mir den falschen Namen an.
Was meinst Du dazu ?
Hier mein Code
Dim Importdatei$
Importdatei = Application.GetOpenFilename(„Datei(*.txt), *.txt“)
On Error Resume Next
Application.ScreenUpdating = True
With ActiveSheet.QueryTables.Add(Connection:=„TEXT;“ & Importdatei, _
Destination:=Range(„K2“))
.TextFileCommaDelimiter = True
.Refresh BackgroundQuery:=False
End With
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]