ExcelVBA怎么獲取IP與mac然后分別賦值給變量？Sub 按鈕1_Click()GetMyIPEnd SubPublic Sub GetMyIP()Dim strComputer As Stri

ExcelVBA怎么獲取IP與mac然后分別賦值給變量？

Sub 按鈕1_Click()GetMyIPEnd SubPublic Sub GetMyIP()Dim strComputer As StringDim objWMI As ObjectDim colIP As ObjectDim IP As ObjectDim i As IntegerDim LANstr As String， IPstr As String， MACstr As StringstrComputer = "."Set objWMI = GetObject("winmgmts:" & strComputer & "rootcimv2")Set colIP = objWMI.ExecQuery _("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")For Each IP In colIP If Not IsNull(IP.IPAddress) Then For i = LBound(IP.IPAddress) To UBound(IP.IPAddress) LANstr = IP.Description(i) "網(wǎng)卡名稱 IPstr = IP.IPAddress(i) "網(wǎng)卡IP地址 MACstr = IP.MacAddress "網(wǎng)卡的MAC地址 MsgBox "網(wǎng)卡名稱：" & LANstr & vbCrLf & "IP地址：" & IPstr & vbCrLf & "MAC地址：" & MACstr， vbInformation， LANstr Next End IfNextEnd Sub

Mac上怎么才能新建txt文檔，有什么軟件可以幫助嗎？

MAC有很多的編輯器都是可以的，保存的文件后綴為：txt即可。我就不說了。如果不想下載，可以使用Mac系統(tǒng)自帶軟：文本編輯器。

具體步驟如下：

1、打開Finder---點擊“應用程序”－－找到“文本編輯器”。

2、點擊打開文本編輯器，在彈出窗口中選擇“新建文稿”。

3、點擊頂部菜單欄中的“格式”，選擇“制作純文本”，然后隨便編輯點內(nèi)容什么的。

4、點擊上面的 文件=>存儲

這樣就可以正常創(chuàng)建txt文檔了。如果是編輯器工具比較簡單了，一般創(chuàng)建文件后，另存為即可選擇文件后綴進行創(chuàng)建txt文檔。