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
|