Passwort für Add-In vergessen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi code
Set oFilePropReader = New DSOleFile.PropertyReader
Set oDocProp = oFilePropReader.GetDocumentProperties(strFileName)
'Trap common errors returned from component
Select Case Err.Number
Case &H80040203
'The file is open by another program
MsgBox "Error: " & CStr(Err.Number) & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Auf die Datei " & strFileName & " konnte nicht zugegriffen werden. Wahrscheinlich ist die Datei von einem anderen Programm geöffnet oder wird von einem anderen Benutzer bearbeitet.", vbExclamation
Case &H80040202
'The file selected is not an OLE structured storage file
MsgBox "Error: " & CStr(Err.Number) & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Die Datei " & strFileName & " besitzt nicht das erforderliche Structured Storage-Dateiformat. Es kann sein, dass die Datei defekt ist, ein älteres Format verwendet oder keine Dokumentdatei dieser Anwendung ist.", vbExclamation
Case &H80040201
'DCOM is not installed -- fall through to MsgBox below
Case &H8007007E
If MsgBox("Error: " & CStr(Err.Number) & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Die Instanzierung eines Objektes der Klasse 'PropertyReader' ist fehlgeschlagen. Wahrscheinlich ist die ActiveX DLL-Datei DSOFile.dll registriert, aber der in der Registry eingetragene Dateipfad ungültig." & vbCrLf & vbCrLf & "Soll jetzt versucht werden, die benötigte Komponente neu zu registrieren?", vbExclamation + vbYesNo) = vbYes Then
Err.Clear
On Error GoTo -1 'Trick: Error Handling initialisieren
On Error Resume Next
Shell "regsvr32.exe /s " & Chr$(34) & App.Path & "\DSOFile.dll" & Chr$(34), vbHide
If Err.Number 0 Then
MsgBox "Beim Versuch, die DLL-Datei zu registrieren, ist ein Fehler aufgetreten.", vbExclamation
Else
MsgBox "Die DLL-Datei konnte erfolgreich registriert werden." & vbCrLf & vbCrLf & "Damit das Vorschau-Bild des Reports angezeigt werden kann, muss das Dialogfenster neu geöffnet werden.", vbInformation
End If
End If
Case 429
If MsgBox("Error: " & CStr(Err.Number) & vbCrLf & Err.Description & vbCrLf & vbCrLf & "Die Instanzierung eines Objektes der Klasse 'PropertyReader' ist fehlgeschlagen. Wahrscheinlich ist die ActiveX DLL-Datei DSOFile.dll nicht registriert." & vbCrLf & vbCrLf & "Soll jetzt versucht werden, die benötigte Komponente zu registrieren?", vbExclamation + vbYesNo) = vbYes Then
Err.Clear
On Error GoTo -1 'Trick: Error Handling initialisieren
On Error Resume Next
Shell "regsvr32.exe /s " & Chr$(34) & App.Path & "\DSOFile.dll" & Chr$(34), vbHide
If Err.Number 0 Then
MsgBox "Beim Versuch, die Komponente zu registrieren, ist ein Fehler aufgetreten." & vbCrLf & vbCrLf & "Bitte schliessen Sie das Eigenschaften-Fenster.", vbExclamation
Else
MsgBox "Die DLL-Datei konnte erfolgreich registriert werden." & vbCrLf & vbCrLf & "Damit die Datei-Eigenschaften angezeigt werden können, müssen Sie anschliessend das Eigenschaften-Fenster schliessen und neu öffnen.", vbInformation
End If
End If
Case Else
MsgBox "Error: " & CStr(Err.Number) & vbCrLf & Err.Description, vbExclamation, "Laufzeitfehler"
End Select

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread