|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Erstelldatum TXT-Datei einlesen |
30.04.2008 09:01:16 |
Murmelweb |
|
|
|
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:
Murmelweb |
Datum:
30.04.2008 09:01:16 |
Views:
2064 |
Rating:
|
Antwort:
|
Thema:
Erstelldatum TXT-Datei einlesen |
Hallo jh,
kannst du mir noch sagen wie ich in Spalte D das Erstelldatum der TXT-Datei reinbekomme ???
DANKESCHÖN
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 |
- 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
|
Erstelldatum TXT-Datei einlesen |
30.04.2008 09:01:16 |
Murmelweb |
|
|
|
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 |
|
|