從 EXCEL 到 SharePoint（SQL 數據庫）的 ACCESS 文件連接

Question

我有一個訪問連接文件 (.accdb)，它允許我使用 EXCEL (Office 365) 查詢 SharePoint 庫。 除了添加到該 SharePoint 庫的新文件外，這一切都很好。 我可以查詢並返回這些新文件/條目的所有數據，但由於某種原因無法獲取這些新條目的文件名。 非常感激任何的幫助。

常量 SQLIMSSHAREPOINTCONNECTION = "Provider=Microsoft.ACE.OLEDB.12.0；數據源 = C:\MORGAN\MACROS\IMS_SHAREPOINT_db.accdb"

子程序：

Dim i As Long
Dim cn As Object
Dim rs As Object
Dim StrSql As String
Dim thePieces1() As String
Dim thePieces2() As String
Dim theFullFilename As String
Dim theShortFilename As String
       
StrSql = "SELECT [Name], [ID], [PartNumber(s)], [DateCompleted], [DocumentType], " & _
        "[WorkOrder(s)], [PurchaseOrder(s)], [SalesOrder(s)], [CustomerName(s)], [WorkCenter]" & _
        " FROM [Inspection Reports]"

Set cn = CreateObject("ADODB.Connection")
cn.Open SQLIMSSHAREPOINTCONNECTION
Set rs = CreateObject("ADODB.RECORDSET")
rs.ActiveConnection = cn
rs.Open StrSql
If Not (rs.BOF And rs.EOF) Then

    i = 1

    On Error Resume Next
    Do While Not rs.EOF

        i = i + 1
        theFullFilename = ""
        theShortFilename = ""
        ReDim thePieces1(10)

        thePieces1 = Split(rs.Fields(0), "#")
        theFullFilename = thePieces1(1)
        thePieces1() = Split(theFullFilename, "/")
        theShortFilename = thePieces1(UBound(thePieces1))

        Range("A" & i).Value = rs.Fields(1)      ' ID
        Range("B" & i).Value = theShortFilename  ' Filename
        Range("C" & i).Value = rs.Fields(2)      ' PartNumber(s)
        Range("D" & i).Value = rs.Fields(3)      ' DateCompleted
        Range("E" & i).Value = rs.Fields(4)      ' DocumentType
        Range("F" & i).Value = rs.Fields(5)      ' WorkOrder(s)
        Range("G" & i).Value = rs.Fields(6)      ' PurchaseOrder(s)
        Range("H" & i).Value = rs.Fields(7)      ' CustomerName
        Range("I" & i).Value = rs.Fields(8)      ' WorkCenter

        rs.MoveNext
        
    Loop

Answer 1

我不清楚您的共享點訪問 Excel 連接是如何工作的，但您的記錄集 (rs) 在更新共享點數據后可能需要刷新或重新查詢。