With CreateObject("MSXML2.ServerXMLHTTP.6.0")
  .SetProxy 2, "999.999.999.999:9999"
  .Open "GET", "https://yandex.ru/internet/", False
  .setProxyCredentials "user", "passwd"
  .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:24.0) Gecko/20100101 Firefox/24.0"
  .send ("") 
  txt = .responseText
End With

While ie.ReadyState <> 4
    DoEvents
Wend

Sub ImportData()
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    sURL = "https://www.walmart.ca/en/ip/coffee-table-rustic-oak/6000199108427"
    ie.Navigate sURL
    
    While ie.ReadyState <> 4
        DoEvents
    Wend
    
    Strh = ie.Document.body.innerText
    
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True
    objRegExp.Pattern = "(<span class=""css-2vqe5n esdkp3p0"".*?>)(.*?)(</span>)"
    
    If objRegExp.Execute(Strh).Count <> 0 Then
        MsgBox objRegExp.Execute(Strh).Item(0).submatches.Item(1)
    End If
End Sub  

Option Explicit
 
Sub xlsm_csv()
    Dim a_path As String
    Dim csvF As String
    Dim shb As Worksheet
    Dim sh As Worksheet
    Dim WB As Workbook
    
    Dim lcol_from As Long
    Dim lrow_insert As Long
    
    Set shb = ActiveSheet
    a_path = ActiveWorkbook.Path & "\"
    
    csvF = Dir(a_path & "*.csv", vbNormal)
    
    Application.ScreenUpdating = False
    Do Until csvF = ""

        Set WB = Nothing
        Set sh = Nothing

        Set WB = Workbooks.Open(Filename:=a_path & csvF, ReadOnly:=True, Local:=True)
        Set sh = WB.Worksheets(1)
        lcol_from = sh.Cells(1, sh.Columns.Count).End(xlToLeft).Column
        lrow_insert = shb.Cells(shb.Rows.Count, 1).End(xlUp).Row + 1
        shb.Range(shb.Cells(lrow_insert, 1), shb.Cells(lrow_insert, lcol_from)) = _
            sh.Range(sh.Cells(1, 1), sh.Cells(1, lcol_from)).Value
        WB.Close False
        csvF = Dir()
    Loop
    Application.ScreenUpdating = True
End Sub

Private Const FTP_TRANSFER_TYPE_UNKNOWN     As Long = 0
Private Const INTERNET_FLAG_RELOAD          As Long = &H80000000
 
Private Declare Function InternetOpenA Lib "wininet.dll" ( _
    ByVal sAgent As String, _
    ByVal lAccessType As Long, _
    ByVal sProxyName As String, _
    ByVal sProxyBypass As String, _
    ByVal lFlags As Long) As Long
 
Private Declare Function InternetConnectA Lib "wininet.dll" ( _
    ByVal hInternetSession As Long, _
    ByVal sServerName As String, _
    ByVal nServerPort As Long, _
    ByVal sUsername As String, _
    ByVal sPassword As String, _
    ByVal lService As Long, _
    ByVal lFlags As Long, _
    ByVal lContext As Long) As Long
 
Private Declare Function FtpGetFileA Lib "wininet" ( _
    ByVal hConnect As Long, _
    ByVal lpszRemoteFile As String, _
    ByVal lpszNewFile As String, _
    ByVal fFailIfExists As Long, _
    ByVal dwFlagsAndAttributes As Long, _
    ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Long
    
Private Declare Function InternetCloseHandle Lib "wininet" ( _
    ByVal hInet As Long) As Long
 
Sub FtpDownload(ByVal strRemoteFile As String, ByVal strLocalFile As String, ByVal strHost As String, ByVal lngPort As Long, ByVal strUser As String, ByVal strPass As String)
    Dim hOpen   As Long
    Dim hConn   As Long
 
    hOpen = InternetOpenA("FTPGET", 1, vbNullString, vbNullString, 1)
    hConn = InternetConnectA(hOpen, strHost, lngPort, strUser, strPass, 1, 0, 2)
 
    If FtpGetFileA(hConn, strRemoteFile, strLocalFile, 1, 0, FTP_TRANSFER_TYPE_UNKNOWN Or INTERNET_FLAG_RELOAD, 0) Then
        Debug.Print "Success"
    Else
        Debug.Print "Fail"
    End If
 
    'Close connections
    InternetCloseHandle hConn
    InternetCloseHandle hOpen
End Sub

Sub TestDownload()
    localFolder = "C:\rr.txt"
    HostName = "91.122.30.115"
    port = 21
    Username = ""
    Password = ""
    remoteMatchFile = "robots.txt"
   FtpDownload remoteMatchFile, localFolder, HostName, 21, Username, Password
End Sub

sub nn()
    book_path="C:\boook.xls"
    Workbooks.Open book_path

    Dim sh As New Worksheet
    Set sh = ActiveWorkbook.Sheets(1) 'все прекрасно, лист из открытой книги присвоился переменной

    ActiveWorkbook.Close False 'переменная sh пустая

end sub

Sub StrtoDate()
    s = [a2:b5]
    Range("D2:E5").ClearFormats
    Range("D2:E5") = s
    For i = 2 To 5
        For j = 4 To 5
            Cells(i, j).Value = DateValue(Cells(i, j).Value)
        Next
    Next
End Sub

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   <ribbon>
      <tabs>
         <tab id="tab_id" label="Test">
            <group id="id_test" label="test">                  
                  <dropDown id="id_drop" sizeString="namename" onAction="getnamew">
                  <item id="id1" label="name1" />
                  <item id="id2" label="name2" />
                  <item id="id3" label="name3" />
                  <item id="id4" label="name4" />
                  <item id="id5" label="name5" />
                  <item id="id6" label="name6" />
                  <item id="id7" label="name7" />      
               </dropDown>
               <button id="id_but" label="нажать" onAction="remember" />
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Public need_name as Variant

Sub getnamew(control As IRibbonControl, id As String, index As Integer)
    need_name = id 'пытаюсь обратиться к выбранному элементу из dropdown`a, но получаю лишь id элемента, а надо имя
End Sub

Sub remember(control As IRibbonControl)
    MsgBox (need_name)
End Sub