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.