Sub GetSharepointData()
    Dim siteUrl As String
    Dim listName As String
    Dim query As String
    Dim conn As Object
    Dim rs As Object
 
    siteUrl = "https://sharepoint.com/sites/mysite"
    listName = "toolusers2"
     query = "select  * from toolusers2"
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=1;RetrieveIds=Yes; DATABASE=" & siteUrl & ";LIST=" & listName & ";"
    

    Set rs = CreateObject("ADODB.Recordset")

    rs.Open query, conn
    If Not rs.EOF Then

            Range("A1").CopyFromRecordset rs
    End If
    rs.Close
    conn.Close

    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub Macro3()
 
    ActiveWorkbook.Queries.Add Name:="toolusers2 (2)", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = SharePoint.Tables(""https://sharepoint.com/sites/mysite"", [Implementation=""2.0"", ViewMode=""Default""])," & Chr(13) & "" & Chr(10) & "    #""we7d5c52-4e98-4ttt5ttt333-e070b25755"" = Source{[Id=""we7d5c52-4e98-4ttt5ttt333-e070b25755""]}[Items]" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""we7d5c52-4e98-4ttt5ttt333-e070b25755"""
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""toolusers2"";Extended Properties=""""" _
        , Destination:=Range("$A$1")).queryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [toolusers2]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "toolusers2_2"
        .Refresh BackgroundQuery:=False
    End With
End Sub

       cast(mseg.[CPUTM_MKPF_SIMP_TM]AS nvarchar)[Time of entry], 

Function imprep(x)

    Set conn = New ADODB.connection
    Set rs = New ADODB.Recordset
    
sSql = "SELECT mseg.[EBELN] [PO],marm.[EAN11] [EAN IT],lips.[CHARG] [Lot Number],format(mch1.[ERSDA_SIMP_DT],'yyyy-MM-dd') [Production Date],format(mch1.[VFDAT_SIMP_DT],'yyyy-MM-dd') [Expiration Date], CASE WHEN mseg.[BWART]='102' " & _
"THEN cast(concat('-',lips.[LFIMG]*marm.[UMREN]) AS numeric) else lips.[LFIMG]*marm.[UMREN] END [IT QTY],mkpf.[BKTXT] [Customs Declaration Number],mkpf.[BKTXT] [Import Date],( SELECT [LANDA] FROM LIB_F6P_RTP.sap.[T005] t005 WHERE( " & _
"t005.[MANDT]='430') AND (t005.[LAND1]=lfa1.[LAND1])) [Country Code Import From],( SELECT [LANDA] FROM LIB_F6P_RTP.sap.[T005] t005 WHERE(t005.[MANDT]='430') AND(t005.[LAND1]=marc.[HERKL])) [Country Code Of Origin],'zzz' [sep],mseg. " & _
"[BUDAT_MKPF_SIMP_DT] [Posting date],mseg.[CPUTM_MKPF_SIMP_TM] [Time of entry],mseg.[MBLNR] [Material Document],mseg.[ERFME] [Entry UOM],mseg.[MEINS][Base UOM],marm.[UMREZ] [UMREZ Numerator],marm.[UMREN] [UMREN Denominator], " & _
"mseg.[BWART] [mvmtyp],ekko.[UNSEZ] [Delivery],mseg.[XBLNR_MKPF] [Invoice],mseg.[MATNR] [MSEG matnr],lips.[LFIMG] [LIPS QTY] FROM LIB_F6P_RTP.sap.[MSEG] mseg INNER JOIN LIB_F6P_RTP.sap.[MKPF] mkpf ON mkpf.[MANDT]=mseg.[MANDT] AND mkpf. " & _
"[MBLNR]=mseg.[MBLNR] INNER JOIN LIB_F6P_RTP.sap.[MARM] marm ON marm.[MANDT]=mkpf.[MANDT] AND marm.[MANDT]=mseg.[MANDT] AND marm.[MATNR]=mseg.[MATNR] INNER JOIN LIB_F6P_RTP.sap.[MARC] marc ON marc.[MANDT]=marm.[MANDT] AND marc.[WERKS]= " & _
"mseg.[WERKS] AND marc.[MATNR]=marm.[MATNR] AND mseg.[MATNR]=marc.[MATNR] INNER JOIN LIB_F6P_RTP.sap.[MARA] mara ON mara.[MANDT]=marc.[MANDT] AND mara.[MATNR]=mseg.[MATNR] AND marm.[MANDT]=mara.[MANDT] AND marc.[MATNR]=mara.[MATNR] AND " & _
"marm.[MATNR]=mara.[MATNR] INNER JOIN LIB_F6P_RTP.sap.[LFA1] lfa1 ON lfa1.[MANDT]=mseg.[MANDT] AND lfa1.[LIFNR]=mseg.[LIFNR] AND mara.[MANDT]=lfa1.[MANDT] AND marc.[MANDT]=lfa1.[MANDT] AND marm.[MANDT]=lfa1.[MANDT] AND mkpf. " & _
"[MANDT]=lfa1.[MANDT] INNER JOIN LIB_F6P_RTP.sap.[T005] t005 ON t005.[MANDT]=lfa1.[MANDT] AND t005.[LAND1]=lfa1.[LAND1] INNER JOIN LIB_F6P_RTP.sap.[EKKO] ekko ON ekko.[MANDT]=mseg.[MANDT] AND ekko.[EBELN]=mseg.[EBELN] INNER JOIN " & _
"LIB_F6P_RTP.sap.[LIPS] lips ON lips.[MANDT]=mseg.[MANDT] AND lips.[VBELN]=ekko.[UNSEZ] AND lips.[MATNR]=mseg.[MATNR] AND mara.[MANDT]=lips.[MANDT] AND mara.[MATNR]=lips.[MATNR] AND marc.[MANDT]=lips.[MANDT] AND marc.[MATNR]=lips. " & _
"[MATNR] INNER JOIN LIB_F6P_RTP.sap.[MCH1] mch1 ON mch1.[MANDT] COLLATE SQL_Latin1_General_CP1_CI_AS=mseg.[MANDT] AND mch1.[MANDT] COLLATE SQL_Latin1_General_CP1_CI_AS=mseg.[MANDT] AND mch1.[MATNR] COLLATE " & _
"SQL_Latin1_General_CP1_CI_AS=lips.[MATNR] AND mch1.[CHARG] COLLATE SQL_Latin1_General_CP1_CI_AS=lips.[CHARG] WHERE(mseg.[MANDT]='430') AND (mseg.[BWART] IN('101','102')) AND (mseg.[WERKS]='2751') AND (marm.[MEINH]='IT') AND " & _
"(mara.[MTART]='FERT') AND mseg.[MATNR] IN " & x & " AND (lips.[CHARG]<>'') AND (mseg.[BUDAT_MKPF]>='20201001' AND mseg.[BUDAT_MKPF]<='20201101') ORDER BY [Posting date], [Time of entry];"

  conn.Open ConnStr
    Set rs = conn.Execute(sSql)

    If Not rs.EOF Then
        imprep = rs.GetRows ' Здесь ошибка 
        rs.Close
    Else
        MsgBox "Error: No Records  returned.", vbCritical
        imprep = Empty
    End If
    If CBool(conn.State And adStateOpen) Then conn.Close
    Set conn = Nothing
    Set rs = Nothing
    
End Function

Private Sub ActiveControl.Name_Click()
'bla bla vla
End Sub

Sub sqldata()

    Set sq = ThisWorkbook.Worksheets("SQL")

    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
     Dim sqlrs As ADODB.Recordset
    Set sqlrs = New ADODB.Recordset
   cn.ConnectionString = "Provider=MSDASQL.1;Password=live3;Persist Security Info=True;User ID=live3_ro;Data Source=ord.rtcis"
    cn.Mode = adModeRead
    cn.Open
        i = 1
     While sq.Cells(i, 2) <> ""
    SqlString = sq.Cells(i, 2)
      sqlrs.Open SqlString, cn
      Dim arr()
      arr = sqlrs.GetRows  'Вот здесь  нужно создать масив с именем изячейки C,i
      'Stop
      sqlrs.Close
    i = i + 1
    Wend
End Sub