close
Sub 取得IP位址虛無00()
Shell "YOUR PATH\WIN7抓與紀錄IP.EXE"
'============ 延時10秒非常重要.不然無法完成查詢與複製
Application.Wait Now + TimeValue("00:00:10")
Call 寫入EXCELA1欄
Call 關WIN7抓與紀錄IP
End Sub
Sub 關WIN7抓與紀錄IP()
'Application.Wait Now + TimeValue("00:00:10")
Shell " YOUR PATH \關WIN7抓與紀錄IP.BAT"
'Application.Wait Now + TimeValue("00:00:10")
End Sub
'關WIN7抓與紀錄IP.BAT
'@echo off
'taskkill /f /im WIN7抓與紀錄IP.exe
'EXIT
Sub 寫入EXCELA1欄()
Sheets("您的工作表").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
桃園醫美,桃園醫美診所,桃園醫美推薦,桃園醫美中心,桃園醫美診所推薦全站熱搜
留言列表