我收到此错误：
运行时错误“424”需要对象
当我尝试运行此代码时：
Sub SuperSaveAs()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim pathName As String
Dim myFileName As String
If (ActiveDocument.CustomDocumentProperties("_CheckOutSrcUrl").Value = True) Then
pathName = ActiveDocument.CustomDocumentProperties("_CheckOutSrcUrl").Value
myFileName = pathName + ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:= _
myFileName _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Else
MsgBox "_CheckOutSrcUrl is missing"
End If
End Sub
该宏与 Excel 中的按钮连接。该宏检查自定义文档属性是否存在。如果自定义文档属性存在，则宏应将文件保存到以下值：_CheckOutSrcUrl（SharePoint 目录）。
我该如何修复该错误？
您不能使用上述方法来测试属性名称是否存在。有两种明显的方法，这些不是我个人的答案：
使用循环检查所有属性名称并查看是否找到“_CheckOutSrcUrl”。看https://answers.microsoft.com/en-us/office/forum/office_2007-word/using-customdocumentproperties-with-vba/91ef15eb-b089-4c9b-a8a7-1685d073fb9f https://answers.microsoft.com/en-us/office/forum/office_2007-word/using-customdocumentproperties-with-vba/91ef15eb-b089-4c9b-a8a7-1685d073fb9f
使用 VBA 错误检测来查看属性“_CheckOutSrcUrl”是否存在。看http://www.vbaexpress.com/forum/showthread.php?15366-已解决-CustomDocumentProperties-问题 http://www.vbaexpress.com/forum/showthread.php?15366-Solved-CustomDocumentProperties-Problem
适合您的代码的 #1 片段示例 - 最好在函数中：
Dim propertyExists As Boolean
Dim prop As DocumentProperty
propertyExists = False
For Each prop In ActiveDocument.CustomDocumentProperties
If prop.Name = "_CheckOutSrcUrl" Then
propertyExists = True
Exit For
End If
Next prop
#2 的片段示例适合您的代码：
Dim propertyExists As Boolean
Dim tempObj
On Error Resume Next
Set tempObj = ActiveDocument.CustomDocumentProperties.Item("_CheckOutSrcUrl")
propertyExists = (Err = 0)
On Error Goto 0
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
