Notice
Recent Posts
Recent Comments
목록셀스크립트 (1)
rand(life)
cmd 명령의 결과를 텍스트파일로 받기
cmd 명령의 결과를 텍스트파일로 받기아래는 ping의 결과 Option Explicit Sub checkping() Dim cmd As String Dim res, goWSH, aRet Dim s As String, e As String Set goWSH = CreateObject("WScript.Shell") cmd = "ping -n 1 " & [a1] Set aRet = goWSH.exec(cmd) res = CStr(aRet.stdout.readall()) s = InStr(res, "(") e = InStr(res, "),")[b1] = Mid(res, s + 1, e - s - 1)End Sub
컴퓨터/엑셀
2017. 7. 3. 15:55