objFso.Drives(strDrive).ShareName在Windows7上不起作用

Question

我有一些VBA可以打开电子表格模板，将一些信息复制到模板中，并用新名称保存它。这在Windows10机器上运行得很好，但当我在Windows7机器上运行它时，它出现了以下代码：

strShare = objFso.Drives(strDrive).ShareName

尝试弄清楚它是否是Windows7，或者是否有一些我需要勾选才能运行的引用？

Answer 1

您尝试在安装了Office 14.0 Object Library的情况下使用Office 15.0 Object Library引用，这会导致所有被引用的库加载失败(您不能使用具有较新引用的较旧库，相反)。

3个选项：

1. (推荐)使用Late-Binding在Updating Microsoft 2010 VBA Object Libraries上查看我的答案。例如：

Dim objFso as Object
Set objFso = CreateObject("Scripting.Filesystem")

1. 如果您出于某种原因需要Early-Binding，请引用您希望支持的最早的库版本，例如，Office 14.0 Object Library引用适用于安装了Office 15的库(较新的库与较旧的引用)，但如果意外使用了错误的引用，则可能会失败。使用vba to add a reference programmatically

访问