Bibliotheken fehlen!!!!
05.05.2005 02:45:50
Pippo
Ich brauch mal Hilfe:
Ich habe bestimmt beim aufräumen von meine Festplatte etwas entfernt, die nicht entfernt werden sollte. Tatsache ist, dass ein paar Excelblätter zeigen fehler:
hier ist der Code:
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function ExtractIcon Lib "shell32.dll" _
Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, _
ByVal nIconIndex As Long) As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, _
ByVal lparam As Long) As Long
Const WM_SETICON As Long = &H80
Public Function fncSetXLWindowIcon(Optional IconFile As String = vbNullString, _
Optional WorkbookName As String = vbNullString) As Boolean
Dim XLMAINhWnd As Long, XLDESKhWnd As Long, _
EXCEL7hWnd As Long, TargetWindowhWnd As Long, _
VirtualIcon As Long
fncSetXLWindowIcon = True
On Error Resume Next
If CBool(Len((Workbooks(WorkbookName).Name))) Then '(HIER ZEIGT FEHLER: Typen unverträglich)
WorkbookName = Workbooks(WorkbookName).Windows(1).Caption
End If
On Error GoTo ExitFunction
Bestimmt fehlt irgendwie ein Bibliothek o. änhlich!!!
Aber was genau?... und wo und wie kann ich die Fehlende Datei wieder auf d. Rechner haben?
ich bedanke mich im voraus!!!
danke
Pippo