Runtime error 53 with Office Education 2021 on Mac 15.0.1

Sub Test()

Dim fso As Object 'Scripting.FileSystemObject

Set fso = CreateObject("Scripting.FileSystemObject")

Debug.Print fso.GetFileName(ThisWorkbook.FullName)

Debug.Print fso.GetParentFolderName(ThisWorkbook.FullName)

End Sub

Wenn Du die Intellisense haben willst, dann musst Du eine Referenz auf Microsoft Scripting Runtime setzen:

Sub SetRef()

On Error Resume Next

'Microsoft Scripting Runtime

Application.VBE.ActiveVBProject.References.AddFromGuid _

"{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0

End Sub

Andreas.

der Link zum Entfernen von Mcafee - "runtime error" !

Vielen Dank,

ich kann aber nicht auf den Link Excel TechNet Community zugreifen geöffnete

Seite = Fehlermeldung Error

Server Error in '/Forums' Application.

Runtime Error

Hi,
<br />
<br />we observed a related issue with ms-access db by opening over an excel vb macro. We get the runtime error 3014, additional tables coundn’t be opend...
<br />We also fixed it by reinstall an older version of office.
<br />Regards
<br />Rainer
<br />

Hallo,

hast du während den Abfragen die Berechnung auf manuell gestellt und die Worksheet-Event-Makros deaktiviert?

Probiere mal vor deinem Code:

With Application

    .ScreenUpdating = False

    iCalc = .Calculation

    .Calculation = xlCalculationManual

    .EnableEvents = False

End With
On Error GoTo CleanUp
und danach dann:
CleanUp:

With Application

    .ScreenUpdating = True

    .EnableEvents = True

    .Calculation = iCalc

End With
Claus