VBA编译错误:找不到工程或库

不明吃瓜群众 2019-11-29 10:12:25


这份文档在旧电脑的Office 2003里面可以正常使用,但是在办公室的电脑上使用就报错,(尝试过以下版本:WPS 2019/Office 2016/2013)有熟悉VBA使用的大佬麻烦指点一二,先谢谢大佬们了!

...全文
1278 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
舉杯邀明月 2019-11-30
  • 打赏
  • 举报
回复
这种写法,在MS Office中是没问题的,但在WPS Office中就不能这样写了。
很多东西在细节上都有差异,记得就连Left函数,都要写成VBA.Left 才行……


我这儿没有安装WPS,没法实际试验,只能大概说一下方法了。
你试试把这些 Range( ),都写成ActiveSheet.Range( )
 或者 Application.Range( )
看看行不。
不明吃瓜群众 2019-11-29
  • 打赏
  • 举报
回复
引用 1 楼 脆皮大雪糕 的回复:
[D3] 换成 range("D3").text 试试 其他地方同理
前面改了之后我按F8,现在光标又出现在新的位置,如上图:
脆皮大雪糕 2019-11-29
  • 打赏
  • 举报
回复
[D3] 换成 range("D3").text 试试 其他地方同理
不明吃瓜群众 2019-11-29
  • 打赏
  • 举报
回复
引用 3 楼 脆皮大雪糕 的回复:
之所以让你改为 range().text 是因为你的截图里面,是进行这个单元格的文本比较。 .End() 操作是针对range的,不要.text 也就是 range("A65535").End(xlUp).row ……
修改完之后,这个 “u = Range("A65536").End(xlUp).Row + Range("D65536").End(xlUp).Row - 4”还是报错
脆皮大雪糕 2019-11-29
  • 打赏
  • 举报
回复
之所以让你改为 range().text 是因为你的截图里面,是进行这个单元格的文本比较。 .End() 操作是针对range的,不要.text 也就是 range("A65535").End(xlUp).row ……

2,504

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧