|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Unklare Fehlermeldung |
28.07.2006 07:50:02 |
whitewolf |
|
|
|
28.07.2006 08:26:04 |
Rasta |
|
|
|
28.07.2006 08:43:32 |
whitewolf |
|
|
|
28.07.2006 08:59:45 |
Rasta |
|
|
|
28.07.2006 09:12:09 |
whitewolf |
|
|
|
28.07.2006 11:11:18 |
Rasta |
|
|
|
28.07.2006 11:18:03 |
whitewolf |
|
|
|
01.08.2006 10:52:41 |
Rasta |
|
|
|
08.08.2006 12:27:13 |
whitewolf |
|
|
|
09.08.2006 08:06:29 |
Rasta |
|
|
Von:
whitewolf |
Datum:
28.07.2006 07:50:02 |
Views:
2239 |
Rating:
|
Antwort:
|
Thema:
Unklare Fehlermeldung |
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Unklare Fehlermeldung |
28.07.2006 07:50:02 |
whitewolf |
|
|
|
28.07.2006 08:26:04 |
Rasta |
|
|
|
28.07.2006 08:43:32 |
whitewolf |
|
|
|
28.07.2006 08:59:45 |
Rasta |
|
|
|
28.07.2006 09:12:09 |
whitewolf |
|
|
|
28.07.2006 11:11:18 |
Rasta |
|
|
|
28.07.2006 11:18:03 |
whitewolf |
|
|
|
01.08.2006 10:52:41 |
Rasta |
|
|
|
08.08.2006 12:27:13 |
whitewolf |
|
|
|
09.08.2006 08:06:29 |
Rasta |
|
|