我使用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