Excell VBA+Access的应用：关于局域网内多用户数据收集的应用

gun44

Will.li 发表于 2012-2-16 16:34
在帖子里加上了

谢谢啦！我要好好研读一下。

shekenwa

这个好，我最近就像搞一个这个。

photoliao

似乎只能生成符合条件的最后一条内容。

Will.li

photoliao 发表于 2012-2-17 16:40
似乎只能生成符合条件的最后一条内容。

Really? That's weird...
把你的操作过程、数据等描述一下或者发附件看看~

Will.li

这么多下载的，有没有人反馈下测试情况啊？

dengxu

提示找不到工程或库 程序停止在strDbFullname = Trim(.txtDbFullname.Text)处什么原因？

Will.li

dengxu 发表于 2012-2-17 22:13
提示找不到工程或库 程序停止在strDbFullname = Trim(.txtDbFullname.Text)处什么原因？

我怀疑是在VBA代码界面的工具》引用那里出了问题。你看下引用那里是不是有类似“找不到...”、“丢失...”、“missing...”之类的，把这种取消勾选，再找名称相同或相似的条目，选最高版本，然后再试试。还有你的Excel是什么版本？2003, 2007 or 2010? 完整版还是精简版？

Will.li

转帖一篇关于此类错误的文章供参考

前不久用Excel VBA给采购部做了个“供销存管理系统”，结果在采购部的电脑上运行出现“找不到工程或库”的错误，一般情况下，出现此错误是因为找不到引用工程，或找不到与工程语言对应的引用的对象库，还有就是安装Office精简版也会出现此类错误，解决方法：1、在VBE窗口中选择出错的VBA工程，快捷键：ALT+F11
2、在【工具】【引用】打开引用对话框
3、查找带勾项中含“丢失…”、“找不到…”、“MISSING…”的条目，并取消勾选！
4、一般情况下，用第3步即可解决，如问题依旧，请在“可用的引用”中查找并勾选与丢失的条目类似的引用（一般除版本号不同，其它名称相同，如有多个版本，请选择最高版本）
如果还不能解决，可能是电脑中缺少控件或对象库，需要下载控件并注册，后返回上面步骤解决！


Excel VBA找不到工程或库

——————————————————————————–
参考内置帮助文件：  

在解决丢失引用的问题前，不能运行代码。这个错误的起因与解决方法如下所示：

找不到引用工程，或找不到与工程语言对应的引用的对象库。
请在“引用”对话框中将没有解决的引用加上 MISSING 前缀。选取丢失的引用，以显示丢失的工程或对象库的路径或语言。以下是解决此问题的步骤：

解决引用的步骤

显示“引用”对话框。
选取丢失的引用。
激活对象浏览器。
使用“浏览”对话框以找寻丢失的引用。
单击“确定”。
重复以上步骤，执行解决所有丢失的引用为止。
当您找到一个丢失的项目时，MISSING 前缀就会删除，表示链接已重新建立。若引用的工程名已经改变，就会添加新的引用，并旧的引用必须删除。 要删除那些不必要的引用，只需清除不要的引用的复选框即可。请注意，对于 Visual Basic 对象库与主应用程序对象库的引用是不能删除的. 应用程序可以支持其对象库的不同语言版本。要了解所需的语言版本，可单击该引用，选取在对话框下方指出的语言。对象库可以是扩展名为 .OLB 的独立文件，或者集成在动态链接库 (DLL)中。在每一个平台上，对象库存在不同的版本。因此，当工程被移植到另一个平台上时，例如从 Macintosh 到 Microsoft Windows，那个平台的被引用库的正确语言版本，必须在主应用程序文档所指定的位置上可用。

对象库的文件名通常以下面的方式命名：

Windows（3.1 版与更早）：应用程序代码 + 语言代码 + [版本].OLB。例如：
法文的 Visual Basic for applications，Version 2 的对象库为 VAFR2.OLB。
法文的 Microsoft Excel 5.0 的对象库为 XLFR50.OLB。
Macintosh：应用程序名代码+ [版本]. +OLB。例如：
法文的 Visual Basic for applications，Version 2 的对象库为 VA FR 2 OLB。
会是法文的 Microsoft Excel 5.0 的对象库为 MS Excel FR 50 OLB。
假如不能在系统上找到丢失的工程或库，可接洽引用工程的作者。若丢失的库是一个 Microsoft 应用程序的对象库，可用下面的方式取得：

假如您有 Microsoft electronic technical support services 的访问权，请参阅此帮助文件的技术支持一节。在电子服务下，将会发现如何使用适当的服务选项的介绍。
假如没有 Microsoft electronic technical support services 的访问权，可参考此 Microsoft 对象库所在之应用程序的注意。关于如何接触您当地的 Microsoft 产品支持组织的信息，也能够在这个帮助文件的技术支持一节中找到。

onthetrip2008

一定好好拜读楼主的作品。近期领导让我做一个多人同时编辑文件的东西，头都大了。以前听别人说过Excel内置的同时编辑功能问题多多，基本不能派上实际用场，正不知如何下手呢。
在实际应用中遇到问题再向您请教。
感谢

Will.li

onthetrip2008 发表于 2012-2-18 07:54
一定好好拜读楼主的作品。近期领导让我做一个多人同时编辑文件的东西，头都大了。以前听别人说过Excel内置的 ...

呵呵，相互学习哈！我要好好学学VBA呢...
看到不明白的地方就说哈，测试时遇到问题也说下。我们在公司用得是第一个版本，几十个人都用过了，用了几个月吧，没发现什么问题。这是第二个版本，跟第一个版本相比改了很多，比第一个版本更灵活一些。因为我公司实际工作中数据类型主要是文本（255个字符以内的短文本）和数字，像备注、日期、是否、货币等类型都不用，所以希望能在这方面多测试一下。