|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
30.04.2008 09:01:16 |
Murmelweb |
|
|
 Aw:Erstelldatum TXT-Datei einlesen |
30.04.2008 09:56:30 |
jh |
|
|
|
30.04.2008 10:28:09 |
Murmelweb |
|
|
|
30.04.2008 10:41:31 |
jh |
|
|
|
30.04.2008 10:47:50 |
Murmelweb |
|
|
|
30.04.2008 11:17:23 |
murmelweb |
|
|
|
30.04.2008 10:54:24 |
Murmelweb |
|
|
Von:
jh |
Datum:
30.04.2008 09:56:30 |
Views:
1006 |
Rating:
|
Antwort:
|
Thema:
Aw:Erstelldatum TXT-Datei einlesen |
Hallo,
hier der ergänzte Code:
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, _
objFSO As Object, objDatei As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set wksA = ActiveSheet
wksA.Columns(1).NumberFormat = "@"
wksA.Columns(2).NumberFormat = "0"
wksA.Columns(3).NumberFormat = "@"
wksA.Columns(4).NumberFormat = "dd.mm.yy"
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
Set objDatei = objFSO.GetFile(strOrdner & strDatei)
wksA.Cells(lngZeile, 4) = Format(objDatei.DateCreated, _
"dd.mm.yy")
Set objDatei = Nothing
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:D").AutoFit
lngIdx = wksA.Index
Set wksA = Worksheets.Add(After:=Worksheets(lngIdx))
wksA.Columns(1).NumberFormat = "@"
wksA.Columns(2).NumberFormat = "0"
wksA.Columns(3).NumberFormat = "@"
wksA.Columns(4).NumberFormat = "dd.mm.yy"
lngZeile = 1
End If
Loop
Close #1
strDatei = Dir$
lngAnzahl = lngAnzahl + 1
Loop Until strDatei = ""
Set objFSO = Nothing
wksA.Columns("A:D").AutoFit
End If
Set wksA = Nothing
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
|
|
30.04.2008 09:01:16 |
Murmelweb |
|
|
Aw:Erstelldatum TXT-Datei einlesen |
30.04.2008 09:56:30 |
jh |
|
|
|
30.04.2008 10:28:09 |
Murmelweb |
|
|
|
30.04.2008 10:41:31 |
jh |
|
|
|
30.04.2008 10:47:50 |
Murmelweb |
|
|
|
30.04.2008 11:17:23 |
murmelweb |
|
|
|
30.04.2008 10:54:24 |
Murmelweb |
|
|