این ماژول رو ببینید شاید کارتون رو راه بندازه
کد PHP:
Sub Ping_Import()
Call Shell("cmd.exe /s /k ipconfig >F:\ping.txt", vbHide)
Dim wbI As Workbook, wbO As Workbook
Dim wsI As Worksheet
Set wbI = ThisWorkbook
Set wsI = wbI.Sheets("Sheet1") 'sheeti ke mikhahid import dar an qarar begirad
Set wbO = Workbooks.Open("F:\ping.txt")
wbO.Sheets(1).Cells.Copy wsI.Cells
wbO.Close SaveChanges:=False
End Sub
کد پائین دستور پینگ رو اجرا کرده و در مسیر مربوطه فایل رو ذخیره میکنه
کد PHP:
Call Shell("cmd.exe /s /k ipconfig >F:\ping.txt", vbHide)
بقیه دستورات فایل متنی رو import میکنه
علاقه مندی ها (Bookmarks)