|
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 |
|
|
 Korrektur:Bestimmte Zeilen aus .txt importieren |
11.10.2008 14:51:35 |
Holger |
|
|
|
11.10.2008 19:14:11 |
Jürgen |
|
|
|
14.10.2008 15:07:23 |
Holger |
|
|
Von:
Holger |
Datum:
11.10.2008 14:51:35 |
Views:
993 |
Rating:
|
Antwort:
|
Thema:
Korrektur:Bestimmte Zeilen aus .txt importieren |
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 |
|
|
Korrektur:Bestimmte Zeilen aus .txt importieren |
11.10.2008 14:51:35 |
Holger |
|
|
|
11.10.2008 19:14:11 |
Jürgen |
|
|
|
14.10.2008 15:07:23 |
Holger |
|
|