Re: suchen
06.01.2003 17:39:56
darius
Hi L.vira,Ja da hast du recht, ich kenn mich wirklich nicht so gut aus, aber ich versuche es mir zur zeit ein wenig bei zu bringen, und stecke so zusagen in den Kinderschuhen.Wie auch immer;
Also ich habe ein button, wenn ich den drücke, popt dieser FileOpenDialog hoch, ich such ein file aus, danacht geht das programm her und speichert den Pfad zu dieser datei, ich zerstückel den Pfadnamen bis ich den Dateinamen habe: siehe Code auszug.
Die Daten wonach gesucht werden soll sind strings
fnamefor = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If fnamefor = False Then
MsgBox "NO File specified"
Exit Sub
Else
On Error GoTo ende
Workbooks.Open (fnamefor)
Set fnam = CreateObject("Scripting.FileSystemObject")
dateiname = fnam.getfilename(fnamefor)
If dateiname = "" Then
Workbooks(dateiname).Close
Exit Sub
End If
End If
und hier bin ich nun.
danke