访问SharePoint VBA时出错

时间:2014-07-14 15:17:34

标签: excel vba excel-vba sharepoint sharepoint-2010

我使用Microsoft Scriptime Runtime通过VBA访问客户的SharePoint,以便使用以下Sub和{{从存储在一堆SharePoint目录中的Excel工作簿中提取数据1}}。

出于某种原因,我本地计算机上的Function(登录到SharePoint)运行良好,但对其他人来说却很有效。机器,无法在最后一行找到路径:

Sub

作为参考,Excel文件存储在与客户SharePoint不同的网络驱动器上。

有人对为什么当宏在其他同事的机器上运行时没有填充目录时有任何想法,但是在我自己运行时有效吗?提前感谢帮助!

这是sub(以及我在同一行上声明变量的道歉):

Set trackerFolder = fs.GetFolder(Parse_Resource(baseDir & trackExtension))

函数Sub pullData() Dim folder, trackerFolder As folder Dim Fnum As Long Dim f, trackF As File Dim fs As New FileSystemObject Dim FSO As Scripting.FileSystemObject Dim folder2 As Scripting.folder Dim file2 As Scripting.File Dim trackExtension, appExtension, baseDir, FilesInPath, MyFiles(), array_example(), workbookName, trackerName As String Dim i, folderNameInt As Integer Dim folderNames As Variant Dim mybook, trackerBook As Workbook Dim sh, shtrackerAppDataEntry As Worksheet Dim ErrorYes As Boolean Dim intAppRow, totalScriptNum, scratchVar As Integer 'Set counter i = 1 'Name of tracking document trackerName = "Document Latest Macro.xlsm" 'Fill in with all app names, make sure it matches rows in Application Testing Data Entry 'At some point, fill in with app names from Config 'Must match SharePoint app structure folderNames = Array("Folder 1", "Folder 2") 'At some point, put in Config tab the SharePoint file structure appExtension = "Big Dir 1/Big Dir 2/" 'Ditto above baseDir = "https://WEBSITE.sharepoint.com/Integration/Shared Documents/" 'Ditto above trackExtension = "Project Management/" 'Basic Stuff With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False End With 'Setting variables for tracker book Set trackerFolder = fs.GetFolder(Parse_Resource(baseDir & trackExtension)) 是我从另一篇文章中找到的函数(此处:Open an Excel file from SharePoint site):

PARSE_RESOURCE

0 个答案:

没有答案