ﾈｯﾄﾜｰｸ上にある共有ﾌｧｲﾙのVBAｴﾗｰ

お世話になります。
自分では解決できないのでお力をかして下さい。

ﾈｯﾄｰﾜｰｸ上に共有ﾌｫﾙﾀﾞがあり、そのﾌｫﾙﾀﾞの中に"在庫ﾘｽﾄ"のﾌｧｲﾙと"ﾊﾞｯｸｱｯﾌﾟ在庫ﾘｽﾄ"のフォルダがあります。

下記の4つのVBAを結合して、各シート毎に作成してあるボタンに登録してます。

Module①　
Sub フォルダ移動()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("\\Tx100s1-cad\d")
Set colFiles = objFolder.Files
dtmOldestDate = Now

For Each objFile In colFiles
If objFile.DateCreated < dtmOldestDate Then
dtmOldestDate = objFile.DateCreated
strOldestFile = objFile.Path
End If
Next
objFSO.MoveFile strOldestFile, "\\Tx100s1-cad\d\ﾊﾞｯｸｱｯﾌﾟ在庫ﾘｽﾄ\"
End Sub

Module②
Sub ファイル日時上書き()
tbn = ThisWorkbook.FullName
ActiveWorkbook.SaveAs Filename:="\\Tx100s1-cad\d\在庫" & Format(Now(), "mmdd-hhmm") & ".xls"
End Sub

Module③
Sub 日時入力()
Range("A1").Value = Now
End Sub

Module④
Sub 上書き保存()
Dim wb As Workbook
Set wb = ActiveWorkbook
wb.Close
End Sub

上記、4つのVBAを下記の様にマクロ結合してます
Sub マクロの結合()
日時入力
ファイル日時上書き
フォルダ移動
上書き保存
End Sub


これで、3台のパソコンは問題なく作動して
ボタンを押すたびにﾌｧｲﾙ名は保存時の時間で保存され
古いファイルは"ﾊﾞｯｸｱｯﾌﾟ在庫ﾘｽﾄ"にたまっていきます。

ですが、なぜか
1台のパソコンだけが実行エラーをおこします。
実行ｴﾗｰ"5"　プロシージャの呼び出し、または引数が不正です

と、でてしまいます。

それが、毎回ｴﾗｰではなくできる、できないを交互に繰り返します。

そのパソコン以外だと問題なく作動してるので
ﾌｧｲﾙの原因ではないかと思うのですが

どこを修正すればいいでしょうか？

お手数おかけしますが
よろしくお願い致します。

質問者からの補足コメント

• ちなみに実行エラーで黄色く光るのは下記の部分です。
  
  
  objFSO.MoveFile strOldestFile, "\\Tx100s1-cad\d\ﾊﾞｯｸｱｯﾌﾟ在庫ﾘｽﾄ\"

    補足日時：2017/10/24 14:50

No.1 回答者： WindFaller 回答日時： 2017/10/29 02:53

>objFSO.MoveFile strOldestFile, "\\Tx100s1-cad\d\ﾊﾞｯｸｱｯﾌﾟ在庫ﾘｽﾄ\"

基本的なプログラミングのルールですが、リテラルな書き方を辞めてみたらどうでしょうか。

Const DEST As String ="\\Tx100s1-cad\d\ﾊﾞｯｸｱｯﾌﾟ在庫ﾘｽﾄ\"
ということと、

If Dir(DEST, vbDirectory) ="" Then
　　MsgBox "目的のフォルダーが見つかりません。", vbExclamation
End If

などとしてみるしかありませんね。

この回答へのお礼

ご回答ありがとうございます。
他の方法でやってみます。

ありがとうございます。

お礼日時：2017/10/31 09:48