excel打开链接时提示：（ microsoft visual basic）运行时错误438

Question

首先excel文件的图标上带有叹号，然后打开后里面通过链接打开宏时出现“运行时错误"438"，对象不支持该该属性或方法”的报错，因为文件不是自己的，不知道我的excel哪儿设置不对，高手指教啊，感谢……

打开调试，代码有标黄的
----部分代码----------
Exit Sub End If ' Schleife 黚er alle Shapes Sheets(ab_name).Activate For Each shp In ActiveSheet.Shapes shpName = shp.Name shpType = shp.AutoShapeType If shpType = 1 And Not shpName Like "*Picture*" Then Sheets(ab_name).Shapes(shpName).Select Textfieldcontent = "*" & Selection.Characters.Text //标黄 End If If Textfieldcontent Like "*" & shp_txt Then If shpType = 1 And Not shpName Like "*Picture*" Then ' Sheet-Name speichern found_sheet_cnt = found_sheet_cnt + 1 Sheets("allowedColumns").Cells(found_sheet_cnt + 1, rng_st.Column).Value = ActiveSheet.Name ' Sheet-Typ speichern Set type_find = Sheets("all_sheets").Range("A:B").Find(ActiveSheet.Name, LookIn:=xlValues, LookAt:=xlWhole) Sheets("allowedColumns").Cells(found_sheet_cnt + 1, rng_st.Column + 1).Value = Sheets("all_sheets").Cells(type_find.row, type_find.Column + 1).Value ' Shape-Name speichern Sheets("allowedColumns").Cells(found_sheet_cnt + 1, rng_st.Column + 2).Value = ActiveSheet.Shapes(shpName).Name End If End If Next
--------------------------------

Answer 1

visual basic 窗口中，在“工具”→“选项”→“可连接的”→全选并确定即可。本回答被网友采纳

Answer 2

重装一下软件吧