jemand ne idee? typen unverträglich
10.03.2004 11:22:22
Jonathan
mit folgendem Code öffne ich versch. Dateien:
Private Sub goListen_Click()
On Error GoTo nicht_öffnen
Unload Me
Workbooks.Open "N:\Produktionslisten\Lebensversicherung\" & CStr(ComboBoxListeJahr) & "\Mitarbeiter\Mitarbeiter " & CStr(ComboBoxListeMA) & "\Monate Mitarbeiter " & CStr(ComboBoxListeMA) & " " & CStr(ComboBoxListeJahr2) & ".xls", Password:="XXX"
Exit Sub
nicht_öffnen:
UF_EPro.Show
UF_EPro.MultiPage1.Value = 1
MsgBox "Die angeforderte Datei konnte nicht geöffnet werden. Bitte kontrollieren Sie Ihre Eingaben! Die Werte wurden zurückgesetzt.", vbCritical, "E-Pro Hinweis"
End Sub
In den versch. Comboboxen kann man die WErte auswählen, die dann hier zusammen gesetzt werden.
Genau den selben code - nur mit anderen Boxen - benutze ich auch für andere Dateien.
Nun öffnet der die Datei auch normal, sagt dann aber Typen unverträglich und makert den befehl workbooks.open an, und das obwohl ich die error anweisung geschrieben habe........
Danke für Eure Hilfe!
Grüße,
Jonathan