投稿

2月, 2018の投稿を表示しています

ACCESSで自動スクショ

最近、業務自動化を研究していてその過程で Webのスクショ取る業務があってそれ自動化できないかと 思ってACCESS/VBAでやってみました。 IEしか対応していませんが・・・・・ IEShot という全画面キャプチャ取得できるコードがあり 有効活用させていただきました。ありがとうございます。 下記の構造でテーブルの準備が必要です seqNo targetURL targetSheetName startCol endCol statRow endRow targetComent エラーハンドリングも適当です。ご使用は自己責任で お願いします。 Option Compare Database 'Sleep関数用 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'Sleep関数用 'キャプチャ用 Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) '画面アクティブ制御 Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function ShowWindowAsync Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long '取得対象用構造体 Type RetVal SiteUrl As String ExcelsheetName As String ExcelComent As String