智果内容付费系统官网上的微天使众筹网是什么？

来源：蜘蛛抓取(WebSpider) 时间：2017-10-13 19:46 标签： 天使众筹平台
VBA找不到工程或库怎么解决？
来源：& 作者：admin
答：“找不到工程或库”的解决方法，在VBE编辑器中，工具菜单---引用---在打开的引用窗口中找到含有“丢失的....”，并把它取消选取即可。
阅读： 次录入：
上一篇：下一篇：
相关新闻 & & &
本文评论 & & &
<img src="pic/face9.gif"
<img src="pic/face18.gif"
alt=""/点评：
字数 姓名：
尊重网上道德，遵守中华人民共和国的各项有关法律法规
承担一切因您的行为而直接或间接导致的民事或刑事法律责任
本站管理人员有权保留或删除其管辖留言中的任意内容
本站有权在网站内转载或引用您的评论
参与本评论即表明您已经阅读并接受上述条款
本周热门新闻关于VB出现编绎错误：找不到工程或库的问题？
我从网上DOWN了一个VB做的图书管理系统，运行时出现编绎错误：找不到工程或库。从网上查了下解决方法： &#160; &#160;& 工程引用了一些对象库。如果在目标机上没有这些库，就会出现你所说的错误。 &#160;解决方法： &#160;1 &#160; 最简单的，工程在原机上打包，在其他机器上安装程序。这样所有的对象库文件就全部复制并注册了。 &#160;2 &#160; 在不行的机器上，选 &#160; VB &#160; 菜单“工程”—“引用”。找到所有前面标注了“丢失”的项目。在原机器上的工程中，同样打开“引用”对话框，逐个选择这些项目，就可以在下方看到具体的文件名和路径，将其都复制到其他机器。&可是我没有原机器，怎么解决啊？
09-09-07 &
Private Sub WebBrowser1_WindowClosing(ByVal IsChildWindow As Boolean, Cancel As Boolean) Cancel = False End Sub
请登录后再发表评论!
一个笨办法：如果有发布文件，在发布文件的包里有一些dll和ocx的文件，将这些文件一一注册就可以。如果没有发布文件，在打开工程时提示某某库，记下这些库，然后在VB的【工程】-【引用】或【部件】中一一添加即可。应该有一个***.vbp的文件，如果没有根本无法使用，如果有，右击-打开方式-记事本，用记事本打开，在Reference后面，有【引用】，在Object有【部件】，一一添加，基本可以解决。SSTab1这是一个选项卡控件，没有加载这个部件。在【部件】中加载wicrosoft tabbed dialig 6.0就可以了。
请登录后再发表评论!查看: 935|回复: 1
编译错误：找不到工程或库，是什么原因？
阅读权限30
在线时间 小时
office系统是2010，运行下列代码，出现：& && && && && && &&&“编译错误：找不到工程或库”，是什么原因？
Private Sub UserForm_Initialize()
Dim myPath As String, myFile As String, Wb As Workbook, i As Integer, arr(), brr(), m&, crr(), sh As Worksheet, x&
Dim bnode(), j&, snode(), key As String
& &
Application.ScreenUpdating = False
myPath = ThisWorkbook.Path & &&
myFile = Dir(myPath & &*.xls?&)
Do While myFile && &&
& &If myFile && ThisWorkbook.Name Then
& && &m = m + 1
& && &ReDim Preserve arr(1 To m)
& && &ReDim Preserve brr(1 To m)
& && &Set Wb = Workbooks.Open(myPath & myFile)
& && &arr(m) = Wb.Name
& && &ReDim crr(1 To Wb.Sheets.Count)
& && &
& && &For Each sh In Wb.Sheets
& && && &i = i + 1
& && && &crr(i) = sh.Name
& && && &x = x + 1
& && &Next
& && &brr(m) = crr: Erase crr: i = 0
& && &Workbooks(myFile).Close False
& &End If
& &myFile = Dir
Loop
Application.ScreenUpdating = True
TreeView1.ImageList = ImageList1
ReDim bnode(1 To UBound(arr))
ReDim snode(1 To x): x = 0
For i = 1 To UBound(arr)
& &key = &wb& & arr(i)
& &Set bnode(i) = TreeView1.Nodes.Add(, , key, &工作簿：& & arr(i), 1)
& &For j = 1 To UBound(brr(i))
& && &x = x + 1
& && &Set snode(x) = TreeView1.Nodes.Add(bnode(i).Index, tvwChild, , &工作表：& & brr(i)(j), 2)
& &Next
Next
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim myPath As String, myFile As String, Wb As Workbook, sh As Worksheet, dsh As Worksheet, nm As String, h%, l%, cs As Worksheet
myPath = ThisWorkbook.Path & &&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If InStr(Node.Text, &工作表&) & 0 Then
&&Set dsh = ThisWorkbook.Sheets.Add(after:=Sheets(Sheets.Count))
&&myFile = Split(Node.Parent.Text, &：&)(1)
&&Set Wb = Workbooks.Open(myPath & myFile)
&&nm = Split(Node.Text, &：&)(1)
&&Set sh = Wb.Worksheets(nm)
&&h = sh.UsedRange.Row + sh.UsedRange.Rows.Count - 1
&&l = sh.UsedRange.Column + sh.UsedRange.Columns.Count - 1
&&sh.Range(sh.[a1], sh.Cells(h, l)).Copy dsh.[a1]
&&On Error GoTo line1
&&Set cs = ThisWorkbook.Worksheets(Wb.Name & &工作薄中表& & sh.Name)
&&If Not cs Is Nothing Then cs.Delete
line1:
&&dsh.Name = Wb.Name & &工作薄中表& & sh.Name
&&Workbooks(myFile).Close False
&&Worksheets(1).Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End If
End Sub复制代码
aaaa.jpg (56.13 KB, 下载次数: 2)
19:30 上传
(49.92 KB, 下载次数: 6)
19:31 上传
点击文件名下载附件
阅读权限50
在线时间 小时
工具-引用里看看，是否有引用丢失了。估计是treeview的动态链接库文件出了问题。
可以从网上下载一个相同版本的文件过去，然后注册。具体百度下吧。
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1740|回复: 2
添加宏的excel 为什么提示“找不到工程或库“
马上注册地信网，享受更多功能，学习更多知识，成就人生精彩！
才可以下载或查看，没有帐号？
求高手指导
宏打开了吗
housex 发表于
宏打开了吗
宏一般自动打开吧！！如果要打开怎么操作呢？
论坛推荐话题 /1
地信论坛一直是行业同类平台中的领先者，为了更好的领跑和更适应移动互联，我们决定重新打造地信论坛的微信公众号，将长期以来广大网友为论坛所奉献的丰富知识与经验精选给大家，帮助大家开心的学习，快乐的工作。
热线: 400-
Powered by

我要回帖

更多关于 天使众筹平台 的文章

 

随机推荐