Solución 21.6 Fusionar dos consultas

Sub Consulta_Excel()  
  
    ’ Creación de una consulta sobre la primera hoja del fichero Excel
Pedidos.xlsx  
      
    Dim qtPedidos As QueryTable  
    Dim strFormula As String  
  
    strFormula = "let" & vbCrLf & _  
    "    Source = Excel.Workbook(File.Contents(""" & ThisWorkbook.Path &   
"\Recursos\Pedidos.xlsx""), null, true)," & vbCrLf & _  
    "    Hoja1_Sheet =   
Source{[Item=""Hoja1"",Kind=""Sheet""]}[Data]," & vbCrLf & _  
    "    #""Encabezados movidos"" =   
Table.PromoteHeaders(Hoja1_Sheet)," & vbCrLf & _  
    "    #""Tipo modificado"" = Table.TransformColumnTypes(#""Encabezados " & _
        "movidos"",{{""Idclient"", Int64.Type}, {""NumPed"", type text},   
{""FechaPed"", type date}, {""Importe"", Int64.Type}})" & vbCrLf & _  
        "in" & vbCrLf & "    #""Tipo modificado"""  
       ...