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
chanel 香奈兒中文官方網站,香奈兒女人幫時尚,香奈兒中文官方網站,香奈兒香水,香奈兒包包文章標籤
全站熱搜
