|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
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 |
|
|
 Aw:Aw:Aw:Aw:Aw:Aw:Unklare Fehlermeldung |
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 11:18:03 |
Views:
1226 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:Unklare Fehlermeldung |
also hier ist der code :
Dim fso As Object
Dim p As String
Dim MyFile As Object
Dim inhalt As String
Dim Eingabewert As Byte
p = ActiveWorkbook.path + "\" + ActiveWorkbook.Name 'Pfad der Datei erstellen
If p.endsWith(".csv") <> -1 Then 'Überprüfen ob csv-Datei
Set fso = CreateObject("Scripting.FileSystemObject") 'Erstellen eines FileSystemObjects
Set MyFile = fso.OpenTextFile(p, 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 (p) 'Öffnen der Mappe
End If
End If
End If
End If
danke das du dir das anschaust und ich hoffe du findest heraus wo da der fehler liegt ... nochmal danke
gruß
whitewolf |
- 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
|
|
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 |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:Unklare Fehlermeldung |
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 |
|
|