Option Explicit
Dim x : x = 1000 'x座標を指定
Dim y : y = 500 'y座標を指定
Dim Excel, Command
Set Excel = WScript.CreateObject("Excel.Application")
Command = "CALL(""user32.dll"", ""SetCursorPos"", ""JJJ"", "& x &", "& y &")"
Excel.ExecuteExcel4Macro(command)
※注1
利用するコンピュータにExcelが入っていることが条件
※注2
Windows10でも動作する
2019年08月02日
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/9030765
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック