|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
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 |
|
|
 Aw:Aw:Aw:Aw:Aw:Erstelldatum TXT-Datei einlesen |
30.04.2008 11:17:23 |
murmelweb |
|
|
|
30.04.2008 10:54:24 |
Murmelweb |
|
|
Von:
murmelweb |
Datum:
30.04.2008 11:17:23 |
Views:
909 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Erstelldatum TXT-Datei einlesen |
Hallo jh,
oh man bin ich blind ich habe es jetzt.
Danke dir vielmals schönen Feiertag morgen ;-)
Murmelweb schrieb am 30.04.2008 10:47:50:
Hallo,
so habe ich es geändert aber es wird nur dd.mm.yy angezeigt.
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.yyyy"
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.yyyy"
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
jh schrieb am 30.04.2008 10:41:31:
Hallo,
der Code enthält zwei Formatierungsanweisungen
für das Datum, einmal bei der Festlegung des
NumberFormats für Spalte D und zum anderen
wenn das Datum in die Zelle geschrieben wird,
damit soll nur die Uhrzeit ausgeblendet werden,
die DateCreated mit zurückgibt. Du musst also
beide Formatanweisungen ändern.
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 |
|
|
|
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 |
|
|
Aw:Aw:Aw:Aw:Aw:Erstelldatum TXT-Datei einlesen |
30.04.2008 11:17:23 |
murmelweb |
|
|
|
30.04.2008 10:54:24 |
Murmelweb |
|
|