各位高手好
小弟現有一需求
需要用EXCEL FOR MAC 2016的VBA 來取得電腦的MAC ADDRESS
不知要程式要如何寫
我有經網友的協助用WINDOWS版完成程式碼如下：
Dim strcomputer$, objwmiservice As Object, coldevices As Object, coldevice
Dim MacNum&
strcomputer = "."
Set objwmiservice = GetObject("winmgmts:\\" & strcomputer & "\root\cimv2")
Set coldevices = objwmiservice.ExecQuery _
("SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))")
For Each coldevice In coldevices
Sheets("SHEET1").Range("A1").Value = coldevice.macaddress
Next
END SUB
但運用MAC在版完全無反應.....
不知該如何修正,請高手協助...
感恩
，再等看看有沒有其它高手幫您brabus1518 wrote:
另外再請教如果想增進這個方面的知識
有什麼書籍可以參考???...(恕刪)
看書是學基本函數、指令的用法，每本都大同小異
進階一點的，我認為上網看範例學比較容易
我大部份都是看 微軟MSDN 開發者人員的資料，上面很多範例可參考
英文不錯的話，也可以去看看國外的程式設計論壇，資料更豐富
補上另一種pc版使用 script方式的vba
至於轉成字串輸出的方法，蘋果版的請參考下面pc版程式碼稍作修改就可以了
(列出電腦所有網路卡的實體位址)
Sub test()
Dim ipdata() As String
Set obj = CreateObject("WScript.Shell").exec("cmd /c ipconfig /all")
'MsgBox obj.stdout.readall()
ipdata = Split(obj.stdout.readall(), Chr(10))
For i = 0 To UBound(ipdata)
If InStr(ipdata(i), "實體位址") > 0 Then
j = j + 1: Cells(j, 1) = ipdata(i - 1) & ipdata(i)
End If
Next
End Sub
內文搜尋
從 APP 打開
X