title image


Smiley Re: tabellenblatt per makro importieren
Hallo,

sieh dir das mal an

oder bastel dir eine Userform mit eine ListBox einem CommandButton OK und Abbrechen

und versuch dein Glück mal damit:

(Es wird immer die erste Tabelle eingefügt)







Public Pfad As String  



Private Sub UserForm_Initialize()    

Dim Dateisuche As FileSearch  

Dim Dateien As Integer, AnzZeichen As Integer, AnzPfad    

   

Pfad = ThisWorkbook.Path

lbl_Pfad = Pfad

AnzPfad = Len(ThisWorkbook.Path)

Set Dateisuche = Application.FileSearch



    With Dateisuche

        .LookIn = Pfad

        .Filename = "*.txt"

        .Execute

        For Dateien = 1 To .FoundFiles.Count  

          AnzZeichen = Len(.FoundFiles(Dateien))

          lib_Datei.AddItem Right(.FoundFiles(Dateien), AnzZeichen - AnzPfad - 1)

        Next Dateien

    End With  



Set Dateisuche = Nothing  

End Sub  



Private Sub cmb_OK_Click()  

  Call Dateiimport

End Sub  



Private Sub lib_Datei_DblClick(ByVal Cancel As MSForms.ReturnBoolean)      

  Call Dateiimport

End Sub  



Sub Dateiimport()

Dim Datei As String, Text As String  

Dim Zeile As Long  

   

On Error GoTo Fehler    



'Quelldatei festlegen

Datei = Pfad & "\" & lib_Datei



Open Datei For Input As #1         ' Quelldatei öffnen.



Worksheets.Add After:=Worksheets(Worksheets.Count)



Zeile = 1



Do While Not EOF(1)           ' Schleife bis Dateiende

    Line Input #1, Text      ' Text lesen

    ActiveSheet.Cells(Zeile, 1) = Text

    Zeile = Zeile + 1

Loop



Close #1   'Quelldatei schließen

Unload Me

       

Exit Sub  



Fehler:

Close #1



    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _

    & "Beschreibung: " & Err.Description _

    , vbCritical, "da ist leider ein Fehler aufgetreten"



End Sub  

Private Sub cmb_Abbrechen_Click()  

  Unload Me

End Sub  







Gruß

Alfons

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: