anwendungs- oder objektorientierter fehler
11.08.2004 00:55:59
joel
ich habe folgenden code, der mir folgenden fehler bringt (fehler wird vom office-assistenten angezeigt), falls ich bei der dialogbox auf abbrechen klicke (also falls sFile = "")
anwendungs- oder objektorientierter fehler
das ganze geschieht in folgender Sub
Public Sub Export()
Dim sFile As String
'export-file auswählen
sFile = basDlg.dlgXlsDateiAuswaehlen 'vergleiche funktionen weiter unten
'falls kein file ausgewählt wurde (abbrechen), debuggen beenden
If sFile = "" Then End
'weiterer code
End Sub
'eine excel-datei auswählen (*.xls)
Public Function dlgXlsDateiAuswaehlen() As String
Dim sFilter As String
Dim sTitle As String
sTitle = "Excel-Datei auswählen:"
sFilter = "Excel-Datei (*.xls),*.xls"
dlgXlsDateiAuswaehlen = dlgDateiAuswaehlen(sTitle:=sTitle, _
sFilter:=sFilter)
End Function
'+ dateiauswahl-dialog anzeigen
Private Function dlgDateiAuswaehlen(Optional ByVal sTitle As String = "", _
Optional ByVal sFilter As String = "", _
Optional ByVal iFilterIndex As Integer = 1, _
Optional ByVal bMultiselect As Boolean = False) _
As Variant
Dim vDateiName As Variant
vDateiName = Application.GetOpenFilename(filefilter:=sFilter, _
filterindex:=iFilterIndex, _
Title:=sTitle, _
MultiSelect:=bMultiselect)
dlgDateiAuswaehlen = IIf(TypeName(vDateiName) = "Boolean", _
"", _
vDateiName)
End Function
würde mich freuen, wenn mir hier jemand weiterhelfen könnte
danke, gruss joel