Brauch mal hilfe
07.10.2004 09:23:38
Matthias
Ich habe ein problem mit folgendem Quellcode
Sub ÖffneCSV()
Dim Suchpfad As String
Dim Suchbegriff As String
Suchpfad = InputBox("Geben Sie den Ordner an, der durchsucht werden soll.", "Pfad definieren", "T:\NA\lst")
If Suchpfad = "" Then Exit Sub
Dateiform = InputBox("Geben Sie den Dateityp an der gesucht werden soll", "Dateierweiterung", "*.csv")
If Dateiform = "" Then Exit Sub
Workbooks.Open Filename:="T:\NA\lst.CSV" 'Quelldatei angeben
Range("A:A,AA:AA").Select 'Bereich anpassen
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'Hier die Zieltabelle eintragen
Workbooks("Auswahl").Sheets("Auswahl").Range("A1").PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Ist es möglich, das ich die Datei gleich auswählen kann die ich bearbeten möchte nach dem ich den pfad und auch schon den Datei typ angeben habe?
Wenn ja wie ist es in diesem Quellcode zu realisieren?
Hoffe es ist verständlich erklärt
Gruß Matthias