[已解决]编译错误：找不到工程或库

qianlong68

  If Year(Date) >= 2016 Then
    MsgBox "！", 64
    Application.Quit
    Else
    ltime.Caption = 1
    Call b
    ThisWorkbook.Sheets("设置分辨率").Activate
  End If
上述语句是在窗体中的一段 EXCEL VBA程序，打开文件时显示编译错误：找不到工程或库，在调试第一句时光标定位在

Date    在我的电脑上不显示错误，但在别人的电脑上显示错误提示。

请高手帮忙指正错误！谢谢！！

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2015-7-13 09:07

在VBE里面 工具--》引用 将丢失的库重新引用一下即可

跳转到最佳答案楼层

qh8600

光这些能看懂吗，第一句判断肯定没问题

qianlong68

qh8600 发表于 2015-7-12 18:00
光这些能看懂吗，第一句判断肯定没问题

把Date改成2015运行时无错，我想判断系统年份。请帮助修改一下，谢谢！

qh8600

qianlong68 发表于 2015-7-12 18:10
把Date改成2015运行时无错，我想判断系统年份。请帮助修改一下，谢谢！[/backco ...

系统时间，就是这样的，year(date)=2015这个没错啊

qianlong68

可是打开文件时显示编译错误：找不到工程或库，在调试第一句时光标定位在
Date    在我的电脑上不显示错误，但在别人的电脑上显示错误提示。

爱疯

建议上传出错的 excel 文件

JLxiangwei

在VBE里面 工具--》引用 将丢失的库重新引用一下即可

qianlong68

问题已解决，谢谢各位提示！