VBA-Makros funktionieren nicht in Excel 2016

Question

Ich verwende den Code, um Bereich in E-Mail-Körper von https://www.rondebruin.nl/win/s1/outlook/bmail2.htm kopieren. Es funktionierte perfekt in Excel 2013, aber es funktioniert nicht in Excel 2016.

In Excel 2016 gibt es einen Fehler 'Laufzeitfehler' 1004 ': Anwendungsdefinierte oder objektdefinierte Fehler' für diesen Code:

Ich habe keine Ahnung, was falsch ist. Alles, was ich im Internet gefunden habe, hat nicht geholfen. Weiß jemand, ob es einen Unterschied zwischen Excel 2013 und 2016 gibt, der sich auf die Arbeitsmakros auswirken kann?

Answer 1

Hey Ich möchte diesen Code vorschlagen wird u helfen Datenkörper reichen in Mail zu kopieren, es ist Teil des Codes ,, müssen mit Ihrem Code anzupassen,

ThisWorkbook.PublishObjects.Add(_ 
    SourceType:=xlSourceRange, _ 
    Filename:=strFilename, _ 
    Sheet:=strWorksheetName, _ 
    Source:=strRangeAddress, _ 
    HtmlType:=xlHtmlStatic).Publish True 

Set objFilesytem = CreateObject("Scripting.FileSystemObject") 
Set objTextstream = objFilesytem.GetFile(strFilename).OpenAsTextStream(1, -2) 

strTempText = objTextstream.ReadAll 
objTextstream.Close 

For Each objShape In Worksheets(strWorksheetName).Shapes 
    If Not Intersect(objShape.TopLeftCell, Worksheets(_ 
     strWorksheetName).Range(strRangeAddress)) Is Nothing Then 
     blnRangeContainsShapes = True 
     Exit For 
    End If 
Next objShape 

Answer 2

Ausführen des Excel als Administrator löst das Problem in meinem Fall.

Es war nicht offensichtlich für mich von der Fehlerbeschreibung.

Also hoffe, es wird jemand anderem helfen.

Danke.