Hallo alle zusammen
ich geb es zu, ich hab nicht viel Ahnung von VBA und soll ein Makro erstellen mit dem es möglich ist csv-Dateien mit einen alten Format in ein neues Format umzuwandeln ... eigentlich hab ich mir das nicht so schwer vorgestellt, aber jetzt häng ich schon nach relativ kurzer Zeit aufgrund eines Fehlers der mir nicht wirklich klar ist. In den angeführten Quellcode wird dieser Fehler in der zweiten Zeile angezeigt und heißt "Laufzeitfehler '424': Objekt erforderlich" ... Und mir ist einfach nicht klar was dieser Fehler überhaupt aussagen soll .... Ich hoffe jemand kann/will mir helfen
Danke auf jeden Fall schon mal im Voraus
mfg felix
pat = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name 'Pfad der Datei erstellen
If pat.endsWith(".csv") <> -1 Then 'Überprüfen ob csv-Datei
Set fso = CreateObject("Scripting.FileSystemObject") 'Erstellen eines FileSystemObjects
Set MyFile = fso.OpenTextFile(pat, ForReading) 'Die Datei als Stream öffnen
inhalt = MyFile.ReadAll 'Kompletten Inhalt der Datei lesen
MyFile.Close 'Stream schließen
If inhalt.indexOf(";") = -1 And inhalt.indexOf(" ") = -1 Then 'Wenn in der Datei nicht; oder Tabstopp
'als Seperator verwendet werden
If inhaltImport.indexOf(",") <> -1 Then 'Wenn Beistriche als Seperator verwendet werden
Eingabewert = MsgBox("Soll umformatiert werden?", vbYesNo, "Aktualisierungsfrage") 'Frage ob
'umformatiert werden soll
If Eingabewert = vbYes Then 'Wenn Umformatiert werden soll
inhalt = inhalt.Replace(",", ";") 'Ersetzen von , durch ;
document.clearData 'Löschen der Daten in der aktuellen Mappe
document.write (inhalt) 'Schreiben der Daten in die aktuelle Mappe
document.Close 'Schließen der Mappe
document.Open (pat) 'Öffnen der Mappe
End If
End If
End If
End If |