指定した時間になったらファイルコピー

いつもお世話になっております。
指定した時間になったらファイルコピー
を実現するにはどうしたらよいのですか。

下記のｺｰﾄﾞは作成しましたが、だめです。
しかもExcelの標準モジュールに記載

ＡフォルダにあるTestBook.xlsxを
Ｂフォルダにコピーする

Sub kk()
Dim Fso As Object
Dim A As stirng
Dim B As stirng
Set Fso = CreateObject("FileSystemObject")
Dim jikan As Date
Dim str As String

A = "Desktop\A\TestBook.xlsx"
B = "Desktop\B"

'変数にシステム時刻を代入
jikan = Time

'9:00～12:00
If jikan >= "19:45" Then
If Fso.FileExist(A) = True Then
Fso.CopyFile A, B
End If
End If
End Sub


eいろいろ検索などしましたらバッチファイル
というものがたくさんでてきました。

やり方おしえてくれませんでしょうか


バッチファイル・ＶＢＡ・その他
おしえてくれませんでしょうか

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

• 

  Dim A As stirng
  Dim B As stirng
  
  スペルまちがえです。
  失礼いたしました。

    補足日時：2020/08/27 20:04

• 

  Sub kk()
  Dim Fso As Object
  Dim A As String
  Dim B As String
  Set Fso = CreateObject("Scripting.FileSystemObject") ' まちがえてました。
  Dim jikan As Date
  Dim str As String
  
  A = "Desktop\A\TestBook.xlsx"
  B = "Desktop\B\"
  '変数にシステム時刻を代入
  jikan = Time
  '9:00～12:00
  If jikan >= "20:32" Then
  Fso.CopyFile A, B
  End If
  End Sub
  このままじっこうするとファイルはコピーされますが、
  時間になっても全くです。

    補足日時：2020/08/27 20:34

• これはもしかしてVBSですか

    補足日時：2020/08/27 23:17

• 検索したらVBSで
  やる方法見つけましたが
  そなコードはたんにダブルクリックで
  実行するだけ

    補足日時：2020/08/27 23:19

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2020/08/27 23:22

こんばんは、

一回VBAから離れましょう。
windowsのタスクスケジューラに.batファイルを登録する方法が簡単です。

windowsのタスクスケジューラについては、こちらがわかり易いかな？
https://pc-automation.tech/wp/run-task-at-the-ti …

バッチファイルについては、
https://www.petitmonte.com/windows/auto_backup_b …

＞A = "Desktop\A\TestBook.xlsx"
＞B = "Desktop\B\"
＞Fso.CopyFile A, B

これは、

setlocal
copy /Y C:\Users\XXX\Desktop\A\testBook.xlsx C:\Users\XXX\Desktop\B\testBook.xlsx

endlocal

\XXXは、ユーザー名
メモ帳で作成し拡張子　.batで適当な場所に保存すればOK、このファイルをスケジューラに登録します。

登録前にテストする場合は、ダブルクリックで確認できます。

ちなみにVBAでも実行した状態を続ければ出来そうですが、、、他の事がExcelで出来なくなりますよね。

この回答へのお礼

一回VBAから離れましょう。
わたしもそう思いました。
調べると、ＶＢＳかバッチですね
ありがとうございました。

お礼日時：2020/08/28 18:47

No.4 回答者： GOMΛFU 回答日時： 2020/08/28 10:58

VBA出する意味がわからんが。

適当なbat作っておいてタスクスケジューラーで起動すればよいだけでは。

この回答へのお礼

ありがとうございました。参考に致します。

お礼日時：2020/08/28 18:46

No.3 回答者： Qchan1962 回答日時： 2020/08/27 23:34

＃２

Application.OnTime　
、ありましたね。。
＞ちなみにVBAでも実行した状態を続ければ出来そうですが、、、他の事がExcelで出来なくなりますよね。
正しくない内容ですので、撤回して、お詫びします。

No.1 回答者： よろずやkinchan 回答日時： 2020/08/27 23:10

OnTime を使います。

Option Explicit

Sub Test()
Application.OnTime #11:18:00 PM#, "kk"
End Sub

Sub kk()
Dim Desktop As String
With CreateObject("WScript.Shell")
Desktop = .SpecialFolders("Desktop")
End With
With CreateObject("Scripting.FileSystemObject")
.CopyFile Desktop & "\A\TestBook.xlsx", Desktop & "\B\"
End With
End Sub

この回答へのお礼

ありがとうございました。

お礼日時：2020/08/28 19:23