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""" ...
Suscripción
acceso ilimitado a todos los libros de ENI sin compromiso de permanencia
libro impreso o digital online