我的代码出现问题,似乎已经出现了一夜。这有一些特点,所以我会尝试尽可能多地提供细节。
有问题的文件是一个excel工作簿,它根据传入的数据生成一个xml文件。该文件通过宏打开,填充和保存,此部分运行正常。
在此例程中为.xml创建GUID时出现问题:
Function GenGUID() As String
Dim strGUID As String
Dim TypeLib As Object
Set TypeLib = CreateObject("Scriptlet.TypeLib")
strGUID = TypeLib.guid
'dump the curly brackets
strGUID = Replace(strGUID, "{", "")
strGUID = Replace(strGUID, "}", "")
strGUID = Left(strGUID, Len(strGUID) - 2)
GenGUID = strGUID
End Function
具体来说,行:
Set TypeLib = CreateObject("Scriptlet.TypeLib")
这会引发“运行时错误70:权限被拒绝”。
现在,特点。
上面的突出是更新问题。但是,昨天文件运行良好的机器是“破损”的机器,没有在一夜之间更新,将其排除在外。
我们已经尝试了所有我们能想到的东西,以及大量的网络拖网寻找答案。一切都没有。
有没有人有任何想法?
提前感谢您的帮助。
答案 0 :(得分:2)
KB3213624似乎是Office 2010安全更新。以下是其他版本的MS Office的KB:
Microsoft Office 2013 Service Pack 1 (64-bit editions) 3213555
Microsoft Office 2013 Service Pack 1 (32-bit editions) 3213555
Microsoft Office 2007 Service Pack 3 3213640
Microsoft Office 2016 (32-bit edition) 3213545
Microsoft Office 2010 Service Pack 2 (32-bit editions) 3213624
Microsoft Office 2010 Service Pack 2 (64-bit editions) 3213624
Microsoft Office 2013 RT Service Pack 1 3213555
Microsoft Office 2016 (64-bit edition) 3213545
答案 1 :(得分:0)
我们现在已经解决了我们的问题。
显然是由更新引起的。在回滚所有“破损”机器上的最后一批更新后,我们现在有4台“工作”机器。
答案 2 :(得分:0)
我们今天早上也遇到了这个问题。
删除Windows更新KB3213624。这解决了错误。