Hallo,
ich möchte eine .txt - Datei in Excel importieren per Makro und die
Daten per Makro weiterverarbeiten. In der Text-Datei sind die
Nummern mit führenden Nullen abgespeichert, jedoch werden diese in Excel mit diesem grünen Eck angezeigt. Bei der Weiterverarbeitung werden dann diese Nummern ohne den führenden Nullen genommen.
Wie kann man Excel beibringen, daß es sich um einen Text handelt, und vor allem die Nullen nicht verändert werden dürfen?
Verzweifelte Grüße
Gerald
ich möchte eine .txt - Datei in Excel importieren per Makro
Wie kann man Excel beibringen, daß es sich um einen Text
handelt, und vor allem die Nullen nicht verändert werden
dürfen?
Hallo
bastel dir doch ein Makro dafür, unten habe ich dir 2 Beispiele gebastelt.
Gruß
Reinhard
Sub rr()
Dim inhalt As String
Open "c:\temp\ttt.txt" For Binary As #1
inhalt = Space(LOF(1))
Get 1, , inhalt
Close
alt = 1
neu = 1
While neu 0
neu = InStr(alt, inhalt, Chr(13) & Chr(10))
If neu 0 Then
x = x + 1
inhalt = Left(inhalt, neu - 1) & Chr(160) & Mid(inhalt, neu + 2)
alt = neu
End If
Wend
arra = Split(inhalt, Chr(160))
Columns("A:A").Clear
Columns("A:A").NumberFormat = "@"
For n = 1 To x
Cells(n, 1) = arra(n - 1)
Next n
End Sub
Sub rr2()
Dim x As String
Columns("A:A").Clear
Columns("A:A").NumberFormat = "@"
Open "c:\temp\ttt.txt" For Input As #1
n = 1
While Not EOF(1)
Input #1, x
Cells(n, 1) = x
n = n + 1
Wend
Close
End Sub
Hallo Reinhard,
Du hast zwar nicht den Kern meines Problems getroffen (ich wollte mich kurz fassen und hab einiges ausgelassen), aber knapp
vorbei führt auch zum Ziel.
Ich hatte anfangs vor, diese Datei in Access direkt einzulesen, bin aber daran gescheitert, daß die Werte durch Tabulatoren voneinander getrennt sind. Deshalb habe ich einen Mords-Aufwand gemacht, Excel über Access anzusteuern (immerhin etwas gelernt…) und bin hier wiederum an den führenden Nullen gescheitert.
Aber Du hast diesen tollen Split-Befehl benutzt, und nachdem ich Deinen Code nachvollzogen habe, konnte ich ihn gut in mein Access-Makro einbauen.
Danke nochmals + Sternchen
Gerald
Externe Daten Re:import in excel mit führ. nullen
Hallo Gerald,
hast Du die Funktion im Menü***
„Daten -> externe Daten -> Textdatei importieren“
schon getestet?
„getrennt“ auswählen und dann kannst Du jede Spalte das „Text“-Format zuweisen.
Tschüüsss
Olaf
***je nach dem welche Office-Version Du hast
Wie kann man Excel beibringen, daß es sich um einen Text
handelt, und vor allem die Nullen nicht verändert werden
dürfen?
Hi Gerald,
jepp, der split ist klasse, erst auch vor kurzem entdeckt und z:B:
Range(„A1:e1“) = Split(„vorname nachname plz ort strasse“)
finde ich gut.
Gruß
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]