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