|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 02.05.2008 um 21:29 Uhr (0)
Hallo,habe folgendes problem:habe eine txt datei mit tab als trennzeichen.lese diese wie folgt in excel ein:Code:Sub txtEinlesen() Application.ScreenUpdating = False With Workbooks.Open(Filename:=ThisWorkbook.Path & " est.txt").Sheets(1) .Range("A1").CurrentRegion.Copy ThisWorkbook.Worksheets("Tabelle1").Range("A2") .Parent.Close False End With Application.ScreenUpdating = TrueEnd Suballes soweit gut.das problem ist, dass an manchen stelle in der textdatei so "komische" zeichen (quadratich) vorhanden sin ...
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 07.05.2008 um 14:20 Uhr (0)
hallo,ich denke das ziel muss es sein als erstes die txtdatei zu bearbeiten bevor sie eingelesen wird.denn wenn ich mit einem editor die "enterzeichen" manuell entferne und diese dann einlese klappt alles wunderbar.danke für die hilfegruß
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 09.05.2008 um 13:38 Uhr (0)
hallo,ja das geht. ich habe es schon vorher auch mit openoffice neu abspeichern koennen.ich moechte aber eine vba loesung. gut, ich werde dann versuchen eine andere loesung zu finden.danke an alle.gruß
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 07.05.2008 um 12:41 Uhr (0)
hallo,habe ich schon versucht. wenn ich es z.b. mit phase5 editor oeffne zeigt (und formatiert) er mit ganz deutlich das "enter zeichen" gespiegeltes - "P"aber auch mit dem editor kann ich nicht mit strg c,v arbeitendanke
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 07.05.2008 um 11:28 Uhr (0)
hallo,also von a2 bis ah2 die überschriftenab a3 die daten nur wie gesagt ab r3 kommt dann der umbruch und die restlichen daten werden dann wieder bei a4, a5, a6... eingetragen, durch dieses zeichen in txt datei.danke
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 09.05.2008 um 09:22 Uhr (0)
hallo,mit hilfe eine hex-editors habe ich das ominöse zeichen identifiziert. es hat den wert "13". wie kann ich die txt datei in ein string schreiben und dann das zeichen ersetzen?dankegrußfrank[Diese Nachricht wurde von luj am 11. Mai. 2008 editiert.]
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 07.05.2008 um 12:09 Uhr (0)
hallo,also ich oeffne die txt datei mit notepad (ms editor), markiere das zeichen, strg cdann strg h beim "suchen nach" strg v aber da tut sich nichts.die schaltflaeche "ersetzen" bleibt grau ausgeblendet.danke
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 07.05.2008 um 13:36 Uhr (0)
ist das vielleicht was:http://www.digital-inn.de/visual-basic/4630-umbruch-textdatei-verhindern.html [Diese Nachricht wurde von luj am 07. Mai. 2008 editiert.][Diese Nachricht wurde von luj am 07. Mai. 2008 editiert.]
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 09.05.2008 um 10:29 Uhr (0)
hallo,danke fuer die aufmerksamkeit.jetzt moechte ich noch bevor ich auf ok klicke und meine main aufrufe, dass die txt datei durchgegangen wird und das hex zeichen 0D durch ein leerzeichen ersetzt wird.danke gruß[Diese Nachricht wurde von luj am 11. Mai. 2008 editiert.]
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 07.05.2008 um 12:59 Uhr (0)
jetzt ist mir noch etwas aufgefallen.ab da wo die "quadratischen" zeichen in der txt datei stehen bricht er ja um.a4a5a6...in excel macht er mir komischer weise immmer ein leerzeichen vor dem datensatz. also zelle a4 erst leerzeichen dann der datensatz. also zusaetzlich wird der quadrat aus der txt datei in excel als leerzeichen interpretiert.ist das vielleicht ein ansatz.
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 09.05.2008 um 11:46 Uhr (0)
hm, hilft mir nicht richtig weiter.Code:Public Function txt_ReadAll(ByVal sFilename As String) _ As String Dim F As Integer Dim sInhalt As String If Dir$(sFilename, vbNormal) "" Then F = FreeFile Open sFilename For Binary As #F sInhalt = Space$(LOF(F)) Get #F, , sInhalt Close #F End If txt_ReadAll = sInhaltEnd Functiondankegruß[Diese Nachricht wurde von luj am 11. Mai. 2008 editiert.]
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 07.05.2008 um 10:22 Uhr (0)
hallo,das mit copy und paste und ersetzen funktioniert leider nicht.Code:Sub zeilenumbruch_loeschen() Dim raZelle As Range For Each raZelle In ActiveSheet.UsedRange raZelle = Replace(raZelle, Chr(10), "") Next raZelleEnd Subdas mit dem code auch nicht.es ist aber wirklich das enter zeichen, denn ich habe es in txt kopiert (markiert und mit rechten maustaste kopiert) und wenn ich es z.b. hier einfuege macht er mit einen umbruch.bitte um hilfemfgfrank
|
| In das Form Excel wechseln |
|
Excel : quadratische enter-zeichen aus eine txt datei entfernen
luj am 09.05.2008 um 12:36 Uhr (0)
hallo,ich will die tabs nicht ersetzen.alles soweit eigentlich perfekt.das hier bezieht sich auf excel da ist es schon zu spaet:Code:Sub zeilenumbruch_loeschen() Dim raZelle As Range For Each raZelle In ActiveSheet.UsedRange raZelle = Replace(raZelle, Chr(10), "") Next raZelleEnd Subich moechte das nur auf die txt datei bezogen haben. ich moechte direkt in der txt datei die zeichen ersetzen und erste dann in excel einlesen.dankegruß[Diese Nachricht wurde von luj am 09. Mai. 2008 editiert.]
|
| In das Form Excel wechseln |
