Ordner auswählen - xlsDateien darin auslesen - in neue Tabelle einfügen

'****************************************************  
'Benötigt eine Form, ein label, zwei Buttons, ein Dirlist und ein Filelist  
'****************************************************  
Option Explicit

'****************************************************  
'Globale Variable auf die man ausserhalb der Form direkt zugreifen kann. Diese enthält  
'in diesem Fall den Dateinamen  
'****************************************************  
Private filename As String


'****************************************************  
'Form entladen  
'****************************************************  

Private Sub button_cancel_Click()
Unload Me
End Sub

'****************************************************  
'Setzen der Globalen Variablen  
'****************************************************  

Private Sub button_dataselect_Click()
Call setfilename(Me.Label1)
End Sub

'****************************************************  
'Setzen des Labels auf den String der Datei die per Doppelklick ausgewählt wurde  
'****************************************************  

Private Sub File1_dblClick()
Dim dateiname As String
dateiname = File1.filename
Me.Label1 = dateiname
End Sub

'****************************************************  
'Laden der Form   
'****************************************************  

Private Sub Form_Load()
'****************************************************  
'Direlement Path auf c:\ als standard setzen  
'****************************************************  

dir_auflistung.Path = "C:\"  
'****************************************************  
'Filepath auf gleichen Pfad setzen wie direlement  
'****************************************************  

File1.Path = dir_auflistung.Path

End Sub


Private Sub dir_auflistung_change()
'****************************************************  
'sollte der User einen anderen Ordner auswählen fileelemnt auch auf diesen Pfad setzen  
'****************************************************  

dir_auflistung.Refresh
File1.Path = dir_auflistung.Path

End Sub




'****************************************************  
'Gewohnheit bracuht man nciht da man die globale Variable überall heraus ansprechen kann.  
'****************************************************  





'****************************************************  
'Funktion zum setzen der Globalen varibale  
'****************************************************  

Public Function setfilename(tempfilename As String)
filename = tempfilename

End Function


'****************************************************  
'Funktion zum holen der globalen variable  
'****************************************************  

Public Function getfilename() As String

getfilename = filename

End Function

Option Explicit


Public Function dateilesen()
Dim datei As String
Dim fso, source, retstring
Dim computername As String, benutzername As String, ipnummer As String, logon As String, logoff As String, status As Boolean

'Konstanten für den Modes des FSO  
Const ForReading = 1, ForWriting = 2, ForAppending = 8


'Definition der benötigten internen Variablen  
'***********************************************************  
'Hier der Teil um direkt aus den Textfiles die Daten zu lesen  
' Dieses Textfile wird zum füllen der DB genutzt.  
'***********************************************************  

'Erzeugen des FileSystemObject  
Set fso = CreateObject("Scripting.FileSystemObject")  

'Zuweisung der Quelldatei  
datei = "C:\0109.txt"  
Set source = fso.opentextfile(datei, ForReading, False)




Do While source.AtEndOfStream <> True
retstring = source.readline
Dim arrayretstring
arrayretstring = Split(retstring, ";")  
computername = arrayretstring(0)
'Hier kann man dann mit dem >Index das array qweiteren variablen zuweisen  
Loop
MsgBox (arrayretstring(1))


End Function