更简单的解决方案：
直接点右下角wifi图标----隐藏的网络----输入设备id和密码，问题解决

好想说什么几把问题 但确实让我遇到了

原因分析：经综合各种回答和查阅资料发现，在Win10 18362版以后的版本，微软在连接网络后，注册表的返回值发生了改变，之前是每当连网后，系统会自动向微软的 http://dns.msftncsi.com​
dns.msftncsi.com
发出请求，然后返回一个NCSI.txt的值，这一值如果正确时，则确认为已连网。而Win10 18362版本之后，这个返回服务器和值有了新变化并反映为6个注册表项中。这些变化因国内部分运行商的网络重定向，不能得到正确的反馈，因此出现实际能上网确显示为无internet的问题。

解决方案：
按住WIN+R----输入regedit，回车。
1 找到注册表键值HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\NlaSvc\Parameters\Internet

2 双击ActiveWebProbeContent、ActiveWebProbeContentV6、ActiveWebProbeHost、ActiveWebProbeHostV6、ActiveWebProbePath、ActiveWebProbePathV6 各自修改他们的值，和图（2）保持一致，EnableActiveProbing仍恢复为1，重启系统后，网络即能恢复正常。

链接：https://www.zhihu.com/question/268072972/answer/2165203375

步骤1：单击开发工具选项卡下的“Visual Basic”命令，或者按“ALT + F11”快捷方式。
步骤2：然后将出现“Visual Basic编辑器”窗口。
步骤3：单击“插入” – >“模块”以创建新模块。
步骤4：将以下VBA代码粘贴到代码窗口中。然后单击“保存”按钮。
Public Sub SaveWorksheetsAsCsv()

Dim WS As Excel.Worksheet
Dim SaveToDirectory As String

Dim CurrentWorkbook As String
Dim CurrentFormat As Long

CurrentWorkbook = ThisWorkbook.FullName
CurrentFormat = ThisWorkbook.FileFormat
' Store current details for the workbook

SaveToDirectory = "D:\tmp\"
//可根据需要更改存储路径
For Each WS In ThisWorkbook.Worksheets
WS.SaveAs SaveToDirectory & WS.Name, xlCSV
Next

Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=CurrentWorkbook, FileFormat:=CurrentFormat
Application.DisplayAlerts = True
' Temporarily turn alerts off to prevent the user being prompted
' about overwriting the original file.

End Sub

步骤5：返回当前工作表，然后运行上面的excel宏。位置选择当前excel文件(····.xlsx) ，点击执行按钮。

步骤6：您将看到所有工作表已转换为指定目录中的单个CSV文件

链接：https://www.office26.com/excel/how-to-save-or-export-each-worksheet-as-.html