領導找我對下屬的5000個左右的公司的網站進行驗證（市金融辦公室）
我想著做個EXCEL的VBA來完成，不過高中畢業就沒做過這種東西了。
百度了一會兒做了一個，但是運行以后一直顯示424沒有物件
Private Sub CommandButton2_Click()
Dim HangShu As Integer
HangShu = Sheets("sheet1").[B1].CurrentRegion.Rows.Count
For i = 1 To HangShu
If My.Computer.Network.Ping(Sheet1.Cells(i, 2)) Then
Sheet1.Cells(i, 3) = 1
Else
Sheet1.Cells(i, 3) = 2
End If
Next
End Sub
下面這是表格。
uj5u.com熱心網友回復：
這活適合用bat批處理干。uj5u.com熱心網友回復：
Sheets("sheet1").[B1]第一次看到這樣表示“單元格”的。
不過剛才試了一下，確實可行； 只是這個只能是“常量”。
My.Computer.Network.Ping(Sheet1.Cells(i, 2))
這個“My”是什么鬼…………
你的代碼運行錯誤肯定是這兒引起了。
你要Ping某網址，要找一個“能ping目標主機的功能模塊”，
或者用“管道操作”呼叫Ping.exe來操作、對它的結果進行處理，判斷“通”還是“不通”。
并不是所有功能，都有“系統實作”的，有一些東西，只能“自己做”。
相當于說，系統只提供一些基本的原料、元件、集成塊等，要做一個“產品（成品）”，你得自己設計、組裝。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/68552.html
標籤：VBA