是否有可能改变互联网连接（例如从WiFi到电缆）与VBA？

为了便于报告，我将网上各种来源的数据导入到Excel工作簿中。

问题是：虽然我想要的一些东西是在我公司的专用networking上（需要连接电缆），但我想要连接的一些URL / Web服务不能由我公司的代理（通过电缆连接）进行。

因此，我必须使用另一个没有代理的连接（通过WiFi）来让这些工作。 这个WiFi连接总是在我的计算机上处​​于活动状态，但是这需要我手动拔掉一半导入电缆的电缆，并将其插回到我公司networking上的另一半的文件中。

我想知道是否有一种方式与VBA告诉电脑使用有线/ WiFi根据我所需要的。

我正在使用Excel 2010 / VBA在Windows XP Pro计算机上工作。 请帮忙！

Answer 1

find两种方式来启用或禁用，即从VBA更改互联网适配器连接：

'根据您的需要调整这些参数，例如更改适配器名称，更改启用或禁用参数，更改path，更改文件名等.VBS方法较长，但会给出更多的控制。 蝙蝠的方法是短暂的，但有限的IMO

1使用vbs 源码链接 ：

 'file name: asdf.vbs 'Get and disable all physical wired adapters (AdapterTypeID=0) (Ethernet 802.3) 'Wscript.Echo "test" Set wmi = GetObject("winmgmts:root\CIMV2") Set adapters = wmi.ExecQuery("Select * from Win32_NetworkAdapter where _ AdapterTypeId=0 AND NetConnectionID IS NOT NULL",,48) For Each adapter in adapters With adapter WScript.Echo "available: " & .Availability & " enabled: " & .NetEnabled & " netconStatus: " & .NetConnectionStatus & " status: " & .Status & " netconnID: " & .NetConnectionID & " adType: " & .AdapterType 'adapter.disable() 'adapter.enable() End With Next ' Get and disable all physical wireless adapters (AdapterTypeID=9) (wireless) 

2使用bat Ref link1和Ref link2 ：

 'file name: switch_lan6.bat @echo off start /MIN cmd.exe /c "netsh interface set interface name="Local Area Connection 6" admin=disabled" 

在excel vba中运行这些内容：

 Shell "wscript ""C:\Users\USER\Desktop\asdf.vbs""", vbNormalFocus 

要么，

 Call Shell(ThisWorkbook.Path & "\switch_lan6.bat", 0)