Hallo :)
Ich komme bei meinem VBA Makro leider nicht weiter, da ich folgendes nicht nachvollziehen kann:
In der vorletzten Zeile, bei der Zuweisung des Filename, stört sich Excel an unverträglichen Typen. Ich verstehe das nicht ganz. Der beschnittene Dateiname sollte doch eigentlich ein String sein, oder sich zumindest in einen verwandeln lassen. Zumal in der darüberliegenden Zeile ja auch damit gearbeitet wird und daran stört er sich nicht.
Kann mir jemand sagen, wo hier das Problem liegt?
Set fso = CreateObject("Scripting.Filesystemobject")
Set wbTarget = ActiveWorkbook
Application.DisplayAlerts = False
Dim Filename As String
For Each f In fso.GetFolder(CSVPFAD).Files
If LCase(Right(f.Name, 3)) = "txt" Then
Filename = Left(f.Name, Len(f.Name - 4))
ActiveWorkbook.Queries.Add Name:=Filename
Vielen Dank und viele Grüße
Tobias
|