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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen