ist es möglich in einer UserForm eine Textdatei auszuwählen und nach Excel zu importieren ?
Gruß
Rainer
ist es möglich in einer UserForm eine Textdatei auszuwählen und nach Excel zu importieren ?
Gruß
Rainer
über nachstehenden code kannst du die txt-files einlesen.
dann kannst du dem ereignis der listbox on doubleclick das einlesen sagen (kannst dir ja über makrorecorder besteln.
Hoffe das hilft etwas weiter.
gruß
ae
Private Sub UserForm_Initialize()
lstFiles.List = FileArray("c:\support\", "*.txt")
'Pfad anpassen !!!
End Sub
Function FileArray(strPath As String, strPattern As String)
Dim arrDateien()
Dim intCounter As Integer
Dim strDatei As String
If Right(strPath, 1) <> "\" Then strPath = strPath & "\"
strDatei = Dir(strPath & strPattern)
Do While strDatei <> ""
intCounter = intCounter + 1
ReDim Preserve arrDateien(1 To intCounter)
arrDateien(intCounter) = strDatei
strDatei = Dir()
Loop
FileArray = arrDateien
End Function
Vielen Dank für Deine schnelle Hilfe !
Gruß aus Mainhatten
Rainer