excel - plantillas - Cómo abrir un archivo en un sitio Sharepoint usando VBA

extraer datos de una pagina web a excel

Question

Estoy intentando abrir un archivo con un nombre de archivo que cambia todas las semanas. Esto significa que la parte de la fecha en el nombre del archivo varía. Además, este archivo es el ÚNICO archivo dentro de la carpeta. Pero su nombre de archivo está cambiando. Estoy usando el siguiente código, pero estaba arrojando el error ''Tiempo de ejecución 52: nombre y número de archivo incorrectos''. Necesito tu ayuda.

 Dim ThePath As String
Dim TheFile As String
ThePath = "https://ts.company.com/sites/folder1/folder2/folder3/folder4/"
TheFile = Dir(ThePath & "MANILA_ShiftRecord_*" & ".xlsx")
Workbooks.Open (ThePath & TheFile)

¡Gracias!

Answer 1

Si solo se trata de un archivo, puede usar este enfoque:

Dim sharepointFolder As String
Dim colDisks As Variant
Dim objWMIService As Object
Dim objDisk As Variant
Dim driveLetter As String
''Create FSO and network object
Set objNet = CreateObject("WScript.Network")
Set fs = CreateObject("Scripting.FileSystemObject")
''Get all used Drive-Letters
Set objWMIService = GetObject("winmgmts://" & "." & "/root/cimv2")
Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")
''Loop through used Drive-Letters
For Each objDisk In colDisks
For i = 65 To 90
''If letter is in use exit loop and remember letter.
If i = Asc(objDisk.DeviceID) Then
j = i
Exit For
''letters which are not checked yet are possible only
ElseIf i > j Then
driveLetter = Chr(i) & ":"
Exit For
End If
Next i
''If a Drive-Letter is found exit the loop
If driveLetter <> "" Then
Exit For
End If
Next
''define path to SharePoint
sharepointFolder = "https://spFolder/Sector Reports/"
''Map the sharePoint folder to the free Drive-Letter
objNet.MapNetworkDrive driveLetter, sharepointFolder
''set the folder to the mapped SharePoint-Path
Set folder = fs.GetFolder(driveLetter)

Luego puede manejar la carpeta con las funciones del sistema de archivos.