Question

背景：

我一直在研究将公司报告发布到SharePoint网站的宏。代码在Access 2016的实例中运行。如果我将文件位置更改为我的本地驱动器之一，而不是Sharepoint站点，则它可以工作。我花了几天时间研究错误，但没有一个结果适用，并且没有一个修复工作。

代码：

Function CopySJIToWeb()


Dim fileLocation As String, fileName As String
Dim counter As Integer, i As Integer, store As Integer
Dim nstores(4) As Integer

nstores(0) = 31
nstores(1) = 37
nstores(2) = 41
nstores(3) = 44
nstores(4) = 57

FileName = "12 Dec 2015 Sales Journal.pdf"
counter = 1
store = 1

Do While counter < 59
     FileLocation = "http://192.168.100.12/holiday store " & store & "/holiday " & store & " sales journals/"
     DoCmd.OutputTo acOutputReport, "Sales Journal", acFormatPDF, FileLocation & FileName, True, "", 0, acExportQualityPrint
     SendKeys counter
     SendKeys "{ENTER}"
     counter = counter + 1
          If counter > 2 Then
               store = store + 1
          End If
          If store > 30 Then
               For i = 0 To 4
                    If store = nstores(i) Then
                    store = store + 1
                    End If
               Next i
           End If    
Loop

End Function

运行此命令会抛出错误：“运行时错误2501.将取消OutputTo操作。”

我的办公室帐户拥有必要的权限，在我的浏览器中我以所述帐户登录，因此我看不到权限问题。网络位置是正确的，我已尝试在文件位置使用IP地址和站点名称。我已经确定没有不存在的空格或其他字符。我也尝试在文件名中使用％20而不是空格，以防这些空格被剥离。微软2501运行时错误的文档非常无益。

那么是什么导致了这个错误？在这一切下面具体发生了什么？还有什么方法可以解决它？

是什么导致“错误2501 OuputTo动作取消”？

0 个答案: