| |
Member
Beiträge: 6
| Hallo Peter,
ist nicht ganz so easy. Muss Dir die relevanten Code-Teile anhängen.
Ist aber vielleicht auch interessant für andere, wie ich die Anbindung mache.
Bitte nicht zuviel Hirnschmalz reinstecken. Ich denke, das ist echt ein 365-Office Problem
VG
Jörg
--------------------------------
'Aufruf in einem Modul
...
Dim mySheet As Object
DoEvents
Set mySheet = PS_Excel.GetActiveSheet()
DoEvents
...
_____________________________________________________________________
Public Function PS_Excel(Optional parRefresh) As clsExcel
On Error GoTo Err_PS_Excel
Static MySteuerung As clsExcel
If Not IsMissing(parRefresh) Then
Set MySteuerung = Nothing
End If
If MySteuerung Is Nothing Then
Set MySteuerung = New clsExcel
End If
If Not MySteuerung.BinVerbunden() Then
Set MySteuerung = New clsExcel
End If
Set PS_Excel = MySteuerung
Exit_PS_Excel:
On Error Resume Next
Exit Function
Err_PS_Excel:
On Error Resume Next
GoTo Exit_PS_Excel
Resume
End Function
_________________________________________________
'Auszug aus clsExcel
Private Sub Class_Initialize()
On Error GoTo ERR_Class_Initialize
ProgrammLogging "Klassenmodul_clsExcel/Class_Initialize-START"
Dim bOk As Boolean
If Not GetExistingExcelInstanz() = True Then
Set objExcel = CreateObject("Excel.Application")
End If
m_Version = objExcel.Version
Set objMappe = objExcel.ActiveWorkbook
Set objSheet = objExcel.activeSheet
EXIT_Class_Initialize:
On Error Resume Next
ProgrammLogging "Klassenmodul_clsExcel/Class_Initialize_Click-ENDE"
Exit Sub
ERR_Class_Initialize:
If Err.Number = 429 Then
MsgBox "Excel ist auf diesem System nicht oder nichtkorrekt installiert.", vbExclamation, "Abbruch..."
Else
Call Fehlerbehandlung("MyApp/Klassenmodul_clsExcel", "Class_Initialize", Erl, "Bemerkungen: ./.")
End If
GoTo EXIT_Class_Initialize
Resume
End Sub
------------------------------------------------------
Private Function GetExistingExcelInstanz() As Boolean
On Error GoTo ERR_GetExistingExcelInstanz
ProgrammLogging "Klassenmodul_clsExcel/GetExistingExcelInstanz-START"
GetExistingExcelInstanz = False
Set objExcel = GetObject(, "Excel.Application")
GetExistingExcelInstanz = True
EXIT_GetExistingExcelInstanz:
On Error Resume Next
ProgrammLogging "Klassenmodul_clsExcel/GetExistingExcelInstanz_Click-ENDE"
Exit Function
ERR_GetExistingExcelInstanz:
'Call Fehlerbehandlung("MyApp/Klassenmodul_clsExcel", "GetExistingExcelInstanz", Erl, "Bemerkungen: ./.")
GoTo EXIT_GetExistingExcelInstanz
Resume
End Function
------------------------------------------------------
Public Function BinVerbunden() As Boolean
On Error GoTo ERR_BinVerbunden
ProgrammLogging "Klassenmodul_clsExcel/BinVerbunden-START"
Dim strTest As String
BinVerbunden = False
strTest = objExcel.Name
BinVerbunden = True
EXIT_BinVerbunden:
On Error Resume Next
Exit Function
ERR_BinVerbunden:
GoTo EXIT_BinVerbunden
Resume
End Function | |
|
