|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.04.2008 13:13:21 |
Murmelweb |
|
|
 Aw:TXT-Dateien import Excel |
23.04.2008 11:06:55 |
jh |
|
|
|
23.04.2008 14:26:50 |
Murmelweb |
|
|
|
24.04.2008 10:59:32 |
jh |
|
|
|
24.04.2008 16:17:23 |
Murmelweb |
|
|
|
29.04.2008 13:50:52 |
Murmelweb |
|
|
Von:
jh |
Datum:
23.04.2008 11:06:55 |
Views:
1046 |
Rating:
|
Antwort:
|
Thema:
Aw:TXT-Dateien import Excel |
Hallo,
wie sagte immer Schwein Frederic beim Sandmännchen?
"Nichts leichter als das!" :-)
Deine Angaben "viele Textdateien" und "ganz viele Zeilen"
sind zwar nicht besonders aussagekräftig, aber es könnte
schon passieren, dass irgendwann die 65536 Zeilen eines
Tabellenblattes voll sind, und ich habe dieses Problem
insofern berücksichtigt, dass dann ein neues Blatt
eingefügt wird, auf dem es weitergeht.
Private Sub TextDateienEinlesen(strOrdner As String)
Dim strDatei As String, lngZeile As Long, _
wksA As Worksheet, lngAnzahl As Long, _
strInput As String, lngIdx As Long
Set wksA = ActiveSheet
wksA.Columns(1).NumberFormat = "@"
wksA.Columns(2).NumberFormat = "0"
wksA.Columns(3).NumberFormat = "@"
lngZeile = 1
If Right$(strOrdner, 1) <> Application.PathSeparator Then
strOrdner = strOrdner & Application.PathSeparator
End If
strDatei = Dir$(strOrdner & "*.txt")
If strDatei <> "" Then
lngAnzahl = 1
Do
wksA.Cells(lngZeile, 1) = strDatei
wksA.Cells(lngZeile, 2) = lngAnzahl
Open strOrdner & strDatei For Input As #1
Do Until EOF(1)
Line Input #1, strInput
wksA.Cells(lngZeile, 3) = strInput
lngZeile = lngZeile + 1
If lngZeile > 65536 Then
wksA.Columns("A:C").AutoFit
lngIdx = wksA.Index
Set wksA = Worksheets.Add(After:=Worksheets(lngIdx))
wksA.Columns(1).NumberFormat = "@"
wksA.Columns(2).NumberFormat = "0"
wksA.Columns(3).NumberFormat = "@"
lngZeile = 1
End If
Loop
Close #1
strDatei = Dir$
lngAnzahl = lngAnzahl + 1
Loop Until strDatei = ""
wksA.Columns("A:C").AutoFit
End If
End Sub
Gruß
|
- 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
|
|
22.04.2008 13:13:21 |
Murmelweb |
|
|
Aw:TXT-Dateien import Excel |
23.04.2008 11:06:55 |
jh |
|
|
|
23.04.2008 14:26:50 |
Murmelweb |
|
|
|
24.04.2008 10:59:32 |
jh |
|
|
|
24.04.2008 16:17:23 |
Murmelweb |
|
|
|
29.04.2008 13:50:52 |
Murmelweb |
|
|