AddOLEObject需要传递其参数的确切类型,因此需要将文件名变体转换为字符串类型。可以使用CStr函数将变体转换为字符串。以下是示例代码:
Dim filename As Variant ' 从某处获取文件名变体 Dim strFilename As String strFilename = CStr(filename) ActiveSheet.OLEObjects.Add(Filename:=strFilename, Link:=False, DisplayAsIcon:=True)
上一篇:AddObjecttoListafterorElse
下一篇:addondestinationchangedlistener没有响应问题