0

我正在尝试运行以下代码:

Dim WkOrigin As Workbook
Dim Dataname As String
Dataname = "09.22 Test"
Set WkOrigin = Workbooks.Open(Dataname)

我尝试从名称中删除句点,并且代码运行良好。有谁知道如何解决工作簿名称中的句点问题?

4

1 回答 1

3

我认为您只需要在最后添加扩展名(.xls 或 .xlsx)就可以了。

Dataname = "09.22 Test.xls"

您可能最好也完全符合条件:

Dataname = "C:\09.22 Test.xls"

或者,如果在网络上使用 UNC 而不是映射驱动器,这样它就可以在没有映射驱动器的其他计算机上运行,​​或者如果它映射到不同的字母(只要它们具有访问权限,显然):

Dataname = "\\ServerName\SharedName\09.22 Test.xls"
于 2013-11-06T02:49:55.660 回答