作者：乔山办公网日期：
返回目录：office365
代码贴出来，好帮你解决、
打开文件时关闭提示信息,ALT+F11进入代码窗口,选择工具---引用---将丢失项勾选去掉同时打开窗体将窗体中丢失的控件补上特别注意控件名称与原来保持一致.
不知 n=100 有啥用？
执行后在“抄if (openterm) then”提示“类型袭不匹配”是因为你定义了openterm为variant数据类型，而返回值则不是百这个类型。
大概看了下，好像返回值为空时会出现“类度型不匹配”的提示。
可以把openterm = ws.Range("B" & open1)改为：
If ws.Range("B" & open1) <> "" Then openterm = ws.Range("B" & open1)
要看你的报错的语句，如果排除拼写错误，那么就是这个电脑没有安装需要的插件，或者OFFICE的版本不符合要求。