|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.10.2008 10:27:12 |
Jürgen |
|
|
|
10.10.2008 11:31:25 |
Holger |
|
|
|
10.10.2008 12:33:37 |
Jürgen |
|
|
|
11.10.2008 14:49:15 |
Holger |
|
|
|
11.10.2008 14:51:35 |
Holger |
|
|
|
11.10.2008 19:14:11 |
Jürgen |
|
|
 Aw:Aw:Korrektur:Bestimmte Zeilen aus .txt importie |
14.10.2008 15:07:23 |
Holger |
|
|
Von:
Holger |
Datum:
14.10.2008 15:07:23 |
Views:
894 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Korrektur:Bestimmte Zeilen aus .txt importie |
CrLf: Carriage Return - Line Feed, also wie auf der Schreibmaschine: Wagenrücklauf und Zeilenvorschub.
Jürgen schrieb am 11.10.2008 19:14:11:
Hallo Holger,
Dein Makro ist ganz große Klasse.
Es macht genau das was ich möchte.
Du hast eine gute Tat vollbracht,
und einem Blinden über die stark befahrene Straße geholfen.
Der Tag ist gerettet...hehe
Vielen Dank dafür.
Noch ein paar Anmerkungen zu Deinen Vermutungen über die .txt-Datei:
1.Ich weiß zwar nicht was CrLf heißt,
aber eine Zeile ist offensichtlich auf max. 128 Zeichen begrenzt.
Sind es mehr,wird eine neue Zeile eingefügt.
2.Durch ein Versehen hat sich wohl in eine Datei ein Komma in die 3.Zeile verirrt.
Dies wird anscheinend als Trennzeichen interpretiert,
denn der Rest der Zeile nach dem Komma wird dann in Spalte D aufgeführt.
Für mich aber unwichtig.
Nochmals danke
Gruß
Jürgen
Holger schrieb am 11.10.2008 14:51:35:
Dein Ordner muss natürlich Kunden heißen. Ich hatte Teile des Makros kopiert.
Sub ZeilenKopieren()
lz = Cells(Rows.Count, 1).End(xlUp).Row
If lz = 1 And Cells(1, 1) = "" Then lz = 0
Ord = "C:\Kunden\"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set fldr = Fso.GetFolder(Ord)
Set sfldr = fldr.subFolders
For Each Orte In sfldr
Set Namen = Orte.Files
For Each nam In Namen
a = FreeFile
Open nam.Path For Input As a
Input #a, b, b, Stra, Tel
Close a
lz = lz + 1
Cells(lz, 1) = Orte.Name
Cells(lz, 2) = Left(nam.Name, Len(nam.Name) - 4)
Cells(lz, 3) = Stra
Cells(lz, 4) = Tel
Next
Next
End Sub
Gruß
Holger
|
- 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
|
|
10.10.2008 10:27:12 |
Jürgen |
|
|
|
10.10.2008 11:31:25 |
Holger |
|
|
|
10.10.2008 12:33:37 |
Jürgen |
|
|
|
11.10.2008 14:49:15 |
Holger |
|
|
|
11.10.2008 14:51:35 |
Holger |
|
|
|
11.10.2008 19:14:11 |
Jürgen |
|
|
Aw:Aw:Korrektur:Bestimmte Zeilen aus .txt importie |
14.10.2008 15:07:23 |
Holger |
|
|