Thực hiện các lệnh Dos từ VBA (1 người xem)

[levanduyet]

Thủ tục sau sẽ hướng dẫn các bạn thực hiện lệnh

ping -a <IPaddress/domain name)

từ VBA.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
   Dim sPingcmd As String 
   On Error GoTo ErrorTrap 
   If Intersect(Target, Range("C4:C7")).Address = Target.Address Then 
      sPingcmd = "ping -a " & Target.Value 
      Call Shell("cmd /K" & sPingcmd, vbNormalFocus) 
   End If 
ErrorTrap: 
End Sub

Nguồn từ:
http://scriptorium.serve-it.nl/view.php?sid=57


Lê Văn Duyệt