Thema Datum  Von Nutzer Rating
Antwort
Rot unverträgliche Typen
 08.01.2020 21:17:48 Tobias
NotSolved
08.01.2020 21:32:58 Gast76966
NotSolved
08.01.2020 21:34:47 Gast86391
*****
Solved
08.01.2020 22:14:57 Gast56794
NotSolved
08.01.2020 22:16:52 Gast86944
NotSolved

Ansicht des Beitrags:
Von:
Tobias		 Datum:
08.01.2020 21:17:48		 Views:
1011		 Rating:
     
Antwort:
  Ja
Thema:
unverträgliche Typen

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot unverträgliche Typen
 08.01.2020 21:17:48 Tobias
NotSolved
08.01.2020 21:32:58 Gast76966
NotSolved
08.01.2020 21:34:47 Gast86391
*****
Solved
08.01.2020 22:14:57 Gast56794
NotSolved
08.01.2020 22:16:52 Gast86944
NotSolved