Excel VBA自定义函数无法用CopyFromRecordset，Sub正常Function失败原因

嘿，这个问题我太有发言权了！我来给你把前因后果说清楚～

核心原因：工作表函数的限制卡了你 #

你大概率是在Excel单元格里直接调用这个Public Function了吧？Excel对这种作为工作表函数使用的UDF（用户定义函数）有非常严格的规则：绝对不允许修改工作表的任何内容（包括写入单元格、删除行/列），也不能执行会改变Excel环境的操作。

你的代码里最后要把记录集写入A5:B81，这属于修改工作表单元格的操作，在UDF的执行上下文里直接被Excel拦截了，所以代码运行到准备写入那一步就停住了，第三个消息框自然不会触发。而Sub作为宏运行时，属于Excel的“操作执行上下文”，只要宏是启用状态，就可以自由操作工作表，所以一切正常。

Sub和Function的关键区别（结合你的场景） #

我把和你问题相关的核心差异列出来：

• 定位不同
  • Sub是「操作过程」：专门用来执行一系列动作，不需要返回值，比如连接数据库、写入单元格、弹出提示这些，直接运行就行。
  • Function是「计算工具」：核心用途是返回一个值，尤其是作为工作表函数使用时，只能把结果返回到调用它的那个单元格里，不能做任何额外的修改操作。当然，如果是在VBA代码内部调用Function（不是单元格里），它也可以执行操作，但这种场景很少。
• 权限限制不同
  • Sub作为宏运行时，几乎拥有VBA的全部操作权限（只要你启用了宏），不管是操作单元格、连接外部数据源还是修改工作簿，都没问题。
  • 作为工作表函数的Function，处于Excel的「计算安全上下文」，为了保证工作表计算的稳定性（防止函数乱改数据导致计算循环或数据混乱），Excel禁止了所有会改变工作表状态的操作，你的写入单元格操作正好撞在这个限制上。

怎么解决你的需求？ #

如果你就是想实现“查询数据后写入单元格”的功能，给你两个简单方案：

1. 直接用Sub：既然Sub运行完全正常，就保留Sub的形式，通过开发工具里的宏按钮或者快捷键来触发运行就行。
2. 拆分逻辑：如果一定要用Function，可以让它只负责查询数据并返回一个数组，然后写一个单独的Sub来调用这个Function获取数组，再把数组写入单元格。不过这种方式有点多此一举，不如直接用Sub来得直接。

内容的提问来源于stack exchange，提问作者Jeff Barefoot