以下代码在我的机器上运行就好了。我有一个相当新的Windows系统 - ＆gt; 64位，Windows 7企业。
它可以在任何其他“新”Windows系统上运行，但不能在mac或旧Windows系统上运行。这里给出了“运行时错误438”。
我读到这可能与早期或晚期绑定有关，但我不太确定如何将其应用于我的代码。
在VBA中，我选择了以下库：Visual Basic For Applications，Microsoft Excel 15.0对象库，OLE自动化，Microsoft Office 15.0对象库
SQL Express 2012