Excel在宏中找不到路徑

Question

我為提取* .xml-創建要在網站上繪制圖表的excel表而創建的宏遇到了問題。 它一直在工作，但是過了一段時間我無法運行它。

問題在於下面的行：

 Open path & "\xml_js\" & fileName For Output As 1

例如，當文件本地存儲在桌面上時，宏工作得很好，但是問題是當我嘗試從映射驅動器（SharePoint 2010）打開它時。 當我使用同事計算機（W7 + O2007）而不是在我的同事計算機（W7 + O2013）上可以正常工作。

我在下面出現錯誤：

運行時錯誤“ 52”：
錯誤的文件名或編號

52正好是Open path & (...) As 1行

其余代碼：

Sub generateRegionsFile()

  Dim fileName As String: fileName = "XXXXXX_Regions.xml"
  Dim path As String: path = ThisWorkbook.path

  ThisWorkbook.Sheets(1).Select
  Dim rowNum As Long: rowNum = 2
  Dim jsIndex As Long: jsIndex = 0

  Open path & "\xml_js\" & fileName For Output As 1

  Cells(15, 16).Select

  Do Until ActiveCell.Value = ""
    NoOfStatuses = NoOfStatuses + 1
    ActiveCell.Offset(1, 0).Select
  Loop
'Chart header
  Print #1, "<chart caption='No. of Items' subcaption='per Region' xaxisname='Region' yaxisname='Number of Region' showsum='0' numberprefix='' palette='3' rotatenames='0' animation='1'  basefont='Arial' basefontsize='12' useroundedges='' legendborderalpha='0' canvasbgalpha='0' bgcolor='#fffefe' bgalpha='50' plotgradientcolor='' showplotborder='0' showborder='0' showlegend='0'>"
  Print #1, ""
  Print #1, "   <categories>"

  Cells(15, 16).Select

    For x = 1 To NoOfStatuses
    Print #1, "       <category label='" & ActiveCell.Value & "' />"
    ActiveCell.Offset(1, 0).Select

    Next

  Print #1, "   </categories>"
  Print #1, "   <dataset seriesname='Number of items'>"
  Cells(15, 17).Select
  For x = 1 To NoOfStatuses
  Print #1, "       <set value='" & ActiveCell.Value & "' />"
        ActiveCell.Offset(1, 0).Select
        Next

  Print #1, "   </dataset>"

  Print #1, "</chart>"

  Close #1

End Sub

Answer 1

在錯誤之前寫這個：

debug.print  path & "\xml_js\" & fileName

您會看到要打開的內容。 您的path可能是錯誤的，或者您缺少\\\\或其他東西。