Thema Datum  Von Nutzer Rating
Antwort
Rot Sorry we couldn't find *** csv. Is it possible it was moved, renamed or deleted?
24.08.2021 01:34:04 SAKA
NotSolved
24.08.2021 09:11:47 Der Steuerfuzzi
NotSolved
24.08.2021 11:22:11 Gast37266
NotSolved
24.08.2021 09:38:54 Gast77037
NotSolved

Ansicht des Beitrags:
Von:
SAKA
Datum:
24.08.2021 01:34:04
Views:
78
Rating: Antwort:
  Ja
Thema:
Sorry we couldn't find *** csv. Is it possible it was moved, renamed or deleted?

Hallo zusammen,

mein kleines VBA Skript, welches ich nutze um csv Dateien in xlsx Format umzuwandeln, funktioniert urplötzlich nicht mehr..

Es kommt das Run-time error '1004 welches besagt "Sorry, we couldn't find ****.csv. Is it possible it was moved, renamed or deleted?"

Im Web gab es bereits andere Leute bei denen es entweder an Dropbox oder an zu langed Pfaden lag. Bei mir ist beides nicht der Fall. Ich habe extra auf dem Desktop einen Ordner mit den Input Dateien gemacht, sodass der Pfad auch extra kurz ist. Dennoch scheitert VBA die csv Dateien zu finden.

Bitte um Hilfe!

VG
SAKA

Anbei der Code:

Sub csv()
Application.ScreenUpdating = False
    
    Dim wbook As Workbook
    Dim oldname As String
    Dim PathInput As String
    Dim csvfileName As Variant
    
    PathInput = Range("C4").Value
    csvfileName = Dir(PathInput & "*.csv", vbDirectory)
    
    While csvfileName <> ""
        Workbooks.OpenText csvfileName, DataType:=xlDelimited, Semicolon:=True, Local:=True     <<<<<<<------ IN DIESER ZEILE ENTSTEHT DER FEHLER
        Set wbook = ActiveWorkbook

        oldname = wbook.Name

        Application.DisplayAlerts = False
        wbook.SaveAs Replace(oldname, ".csv", ""), xlOpenXMLWorkbook
        wbook.Close False
        Application.DisplayAlerts = True

        csvfileName = Dir
    Wend
    Application.ScreenUpdating = True
End Sub

 


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 Sorry we couldn't find *** csv. Is it possible it was moved, renamed or deleted?
24.08.2021 01:34:04 SAKA
NotSolved
24.08.2021 09:11:47 Der Steuerfuzzi
NotSolved
24.08.2021 11:22:11 Gast37266
NotSolved
24.08.2021 09:38:54 Gast77037
NotSolved