Option Explicit Sub GetFileList() Dim MyPath '自分のパスDim TargetPath '検索パスDim FolderDepth '検索深度 MyPath = ThisWorkbook.Path '検索パスのチェックTargetPath = Sheet1.Cells(1, 2)If Dir(TargetPath, vbDirectory) = "" Then '処理終了 Debu…

Public Declare Sub keybd_event Lib "user32" ( _ ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long) 'bVk： Keycode'bScan： Scancode、常に0'dwFlags： 0：キーを押す / 1：0xE0を追加 / 2:キーを放す'd…

Public Function SendKeys(InpKeys As String)'CreateObject("WScript.Shell").SendKeys InpKeys Dim o As ObjectSet o = CreateObject("WScript.Shell") ' インスタンス化o.SendKeys InpKeys ' オブジェクトを使った処理Set o = Nothing ' 最後に必ず Nothi…