お世話になります。
自分では解決できないのでお力をかして下さい。
ネットーワーク上に共有フォルダがあり、そのフォルダの中に"在庫リスト"のファイルと"バックアップ在庫リスト"のフォルダがあります。
下記の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" プロシージャの呼び出し、または引数が不正です
と、でてしまいます。
それが、毎回エラーではなくできる、できないを交互に繰り返します。
そのパソコン以外だと問題なく作動してるので
ファイルの原因ではないかと思うのですが
どこを修正すればいいでしょうか?
お手数おかけしますが
よろしくお願い致します。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
>objFSO.MoveFile strOldestFile, "\\Tx100s1-cad\d\バックアップ在庫リスト\"
基本的なプログラミングのルールですが、リテラルな書き方を辞めてみたらどうでしょうか。
Const DEST As String ="\\Tx100s1-cad\d\バックアップ在庫リスト\"
ということと、
If Dir(DEST, vbDirectory) ="" Then
MsgBox "目的のフォルダーが見つかりません。", vbExclamation
End If
などとしてみるしかありませんね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) vbaのエラー対応(実行時エラー7:メモリが不足しています) 4 2023/04/24 00:20
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) エクセル VBAについて教えてください 2 2023/04/26 13:25
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
VBAでネットワークコンピュータのファイルにアクセスできない(XL2000)
Access(アクセス)
-
VBAでサーバー上のファイルを開く
Excel(エクセル)
-
-
4
会社のネットワーク上のファイルを開けない こんにちわ 今大変困ってます 会社のネットワーク上のファイ
Visual Basic(VBA)
-
5
マクロでネットワーク上のコンピューターへの接続
Excel(エクセル)
-
6
ブックの共有でVBAエラー
Visual Basic(VBA)
-
7
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セックスする度に胸が大きくな...
-
週1ペースで会うカップルでデー...
-
恋人とセフレの違いはなんです...
-
セックスについて。 彼が正常位...
-
おじさんになってから若い女性に
-
彼氏が私の性格も見た目も褒め...
-
未成年同士でラブホに行った際...
-
セックスの2回目が無理
-
女性に質問です。 僕はセックス...
-
30代前半男性の性欲
-
セックス前にAV
-
週1ペースで彼女と会っている社...
-
彼女が噛んできます。 歯型がつ...
-
性欲と、人を好きになるって別...
-
一番多くて週に何回セックスし...
-
胸が揺れるくらい激しいセック...
-
セックスする時なぜ声出るの
-
彼氏がコロナで弱って意図的じ...
-
付き合って1ヶ月でヤった後別れ...
-
女子高生です。 寝起きの後に必...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セックスする度に胸が大きくな...
-
週1ペースで会うカップルでデー...
-
恋人とセフレの違いはなんです...
-
セックスについて。 彼が正常位...
-
初めて泊まりにきてくれる彼女...
-
おじさんになってから若い女性に
-
30代前半男性の性欲
-
彼女が噛んできます。 歯型がつ...
-
彼女とのセックスに新鮮味を感...
-
セックス前にAV
-
彼氏が私の性格も見た目も褒め...
-
セックスの2回目が無理
-
付き合って1ヶ月でヤった後別れ...
-
僕の心が狭いのでしょうか…?セ...
-
オナ禁中はセックスしてもいい...
-
セックスする時って会話します...
-
一番多くて週に何回セックスし...
-
性欲と、人を好きになるって別...
-
俗にいうセフレの定義を知りた...
-
やりもくなのか本当に付き合い...
おすすめ情報
ちなみに実行エラーで黄色く光るのは下記の部分です。
objFSO.MoveFile strOldestFile, "\\Tx100s1-cad\d\バックアップ在庫リスト\"