Vba 如果我没有'；你不能上网吗？

我有一个宏可以在Onedrive上打开文件。如果我当前连接到Internet，宏运行得非常好。当我与internet断开连接时，宏无法打开文件，即使我引用的是本地驱动器的路径。比如说

Set wdApp = New Word.Application
'make word Visible'
wdApp.Visible = True
wdApp.Activate
'open File'
wdApp.Documents.Open (D:\OneDrive\file.dotx")

---

使用环境检索当前用户文件夹或本地OneDrive文件夹

Set wdApp = New Word.Application
'make word Visible'
wdApp.Visible = True
wdApp.Activate
'open File'
wdApp.Documents.Open environ("OneDrive") & "\file.dotx"

默认情况下，本地OneDrive文件夹应该是用户文件夹中的顶级文件夹

Set wdApp = New Word.Application
'make word Visible'
wdApp.Visible = True
wdApp.Activate
'open File'
wdApp.Documents.Open environ("USERPROFILE") & "\OneDrive\file.dotx"

---

打开命令窗口，在命令提示下键入SET以查看当前环境变量。系统小程序中的“系统摘要”、“软件环境”、“环境变量”下还提供了环境变量的完整列表。

使用环境检索当前用户文件夹或本地OneDrive文件夹

Set wdApp = New Word.Application
'make word Visible'
wdApp.Visible = True
wdApp.Activate
'open File'
wdApp.Documents.Open environ("OneDrive") & "\file.dotx"

默认情况下，本地OneDrive文件夹应该是用户文件夹中的顶级文件夹

Set wdApp = New Word.Application
'make word Visible'
wdApp.Visible = True
wdApp.Activate
'open File'
wdApp.Documents.Open environ("USERPROFILE") & "\OneDrive\file.dotx"

---

打开命令窗口，在命令提示下键入SET以查看当前环境变量。系统小程序中的“系统摘要”、“软件环境”、“环境变量”下还提供了环境变量的完整列表。

“宏无法打开文件”-发生了什么？它是否超时，或者您是否收到特定错误？（虽然我在这方面已经达到了一定程度——我不希望我们能够帮助您解决该错误，但值得一试。）“宏无法打开文件”-发生了什么？它是否超时，或者您是否收到特定错误？（虽然我在这方面有所进展——我不希望我们能够帮助您解决该错误，但值得一试。）它（在我的情况下）只有在存在互联网连接的情况下才能工作。否则，它会发送一个错误信息：“网络不存在或未启动。请检查您是否已连接…”只有在存在internet连接的情况下（在我的情况下），它才会工作。否则，它会发送一条错误消息：“网络不存在或未启动。请检查您是否已连接…”