从网络驱动器（VBA）打开工作簿

Question

试图打开位于网络文件夹中的工作簿时，我曾经遇到过关于workbook.open功能的问题。 VBA宏利兹的

“1004错误”

没有任何具体的原因，只有文件路径是不可用的。

我用谷歌和这个社区很长的时间来解决这个问题，我下面的步骤，我想和我在最后唯一的解决办法。我的问题是：为什么Excel中那样做，我能做些什么，下一次？

• 最初，用户输入在源工作簿内的小区的文件路径，在计算机上本地保存。 VBA代码采取单元的输入（我试过范围（“K4”），也范围（“K4”）。值），并将其对齐的字符串，它是可见的（变量观察，同时调试），但failes当谈到到Workbook.open功能。
• 我试图用用户特定的网络路径（例如“G：/ ...”），而且在通用网络约定路径（“\\ xxx.xxx ...”），因为不是每个用户都已经制定了这是更准确网络文件夹相同的驱动器号。
• 在结束我唯一的工作解决办法是在VBA编辑器的UNC路径的硬编码路径。

为什么会这样？在这种情况下，networkpath不会改变，但是当涉及到的时刻，这是必要的，该文件夹必须在单元格中我将失去被写入。

感谢您的反馈意见！

编辑：基本上它是这个代码...我删除了不必要的部分...

'Variablen
Dim MA$, Monat$, Fehltag$, Ort$, Projekt$, FilePlanung$, MainString$, NeuerString$
Dim LastRowM&, StartZelleP&, ProjektP&
Dim wb, wbP As Workbook
Dim wsK, wsS, wsM As Worksheet
Dim StartDatumM As Date
Dim array_monate As Variant

'Arbeitsblätter
Set wb = ThisWorkbook
Set wsK = wb.Sheets("Kopfblatt")
Set wsS = wb.Sheets("Stammdaten")
Set wsM = wb.ActiveSheet

'Fix
MA = wsK.Range("D2")
Monat = wsM.Name
FilePlanung = wsS.Range("K4")

Application.ScreenUpdating = False
Set wbP = Workbooks.Open(fileName:=FilePlanung)
'Set wbP = Workbooks.Open(FilePlanung) --> Tried also this and many other ways...
Set wsP = wbP.Sheets("aktuell")

Answer 1

这是我使用的代码：

Dim wb As Workbook

Set wb = Workbooks.Open(Worksheets("Sheet1").Range("A1").Value)