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 に答える