AW: 3 letzten Eintrag aus TXT File
13.02.2010 00:58:15
fcs
Hallo Andre,
etwa so. Deine Textdatei enthält jedoch nur 1 Zeile Daten!
Gruß
Franz
'##############################################################
'# Windows Vista-Excel 2007 (12.0.6514.5000 SP2) VBA 6.5.1040 #
'# fcs 2010-02-13 #
'# Makro sollten auch unter Excel 2003 lauffähig sein #
Option Explicit
Sub Test()
Dim vAuswahl, intI As Long, bFound As Boolean
Dim FF As Long, sSep As String, sText As String, vFields
vAuswahl = Application.GetOpenFilename(FileFilter:="Text (*.txt),*.txt", _
Title:="Bitte Textdatei(en) auswählen, Mehrfachauswahl ist möglich", _
Buttontext:="Datei auswählen", _
MultiSelect:=True)
If IsArray(vAuswahl) Then
sSep = Chr(3)
FF = FreeFile()
For intI = LBound(vAuswahl) To UBound(vAuswahl)
Open vAuswahl(intI) For Input As #FF
bFound = False
Do Until EOF(FF)
Line Input #FF, sText
vFields = VBA.Split(VBA.Replace(sText, sSep & sSep, vbTab), vbTab)
If UBound(vFields) - LBound(vFields) + 1 >= 3 Then
sText = vFields(UBound(vFields) - 2)
bFound = True
End If
Loop
If bFound = True Then
MsgBox "3.-letzter Feldinhalt in Textdatei """ & vAuswahl(intI) & """" _
& vbLf & vbLf _
& sText, vbOKOnly + vbInformation, "Textfile auswerten"
Else
MsgBox "Textdatei """ & vAuswahl(intI) & """enthält nicht die entsprechenden Daten", _
vbOKOnly + vbInformation, "Textfile auswerten"
End If
Close FF
Next
End If
End Sub
