Jump to content

angelsdoz

Members
  • Posts

    8
  • Joined

  • Last visited

About angelsdoz

  • Birthday June 29

Profile information

  • Gender
    Hombre
  • Localización:
    Madrid

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

angelsdoz's Achievements

  1. El office 365 que compré no me deja entrar en la tienda de add ons de excel. Me dic que: La Tienda Office no está disponible. Desgraciadamente, su organización deshabilitó el acceso a la tienda de Office. Póngase en contacto con el administrador para solicitar acceso. ¿hay alguna manera, aunque sea poco ortodoxa, de poder hacerme administrador del office que tengo? Si no ¿Cómo puedo conseguir ese add on? Gracias de antemano
  2. Fran2021: Muchas gracias por tu ayuda. He estado unas semanas fuera y por eso no he seguido requiriendo tu ayuda. Si no quieres seguir, no puedes o por cualquier otra causa, lo entiendo y gracias por todo, pero si puedes y quieres, por favor podrías seguir con este tema, creo que pudiera ser interesante para muchos otros adaptándolo a otras circunstancias y páginas de donde descargar información-
  3. ·He realizado los pasos que comentas u sí me salen las páginas que incluyes, al pulsar en "Actualizar Todo" aparecen unos puntos en la línea superior a "Table:.RemoveCplum......." como si se estuviera actualizando pero aparece lo mismo. He cambiado el valor a descargar para ver si lo actualiza pero permanece igual.
  4. Gracias por tu ayuda pero sigo igual-. En relsción con tus preguntas: 1.- La versión de Office que tengo es la 365 2.- La versión de Power Query que me descargo del enlace que me mandas es para 32bits y no me deja instalarla, por lo que veo por internet solo hablan de esa versión y para Office distinta de la 365. 3.- He probado la nueva versión que me mandas pero me da el mismo error: "Error definido porla aplicacion o el objeto 4.- Te adjunto los pantallazos que me cpides, em el de Excel no aparece ni la pantalla de la consulta ni la editable. Gracias
  5. Como comenta Janlui evita que con cada dato que introduzcas recalcule todo. eso se puede hacer incluyendo Application.Calculation = xlCalculationManual pero tendrás que incluir Calculate cada vez que quieras utilizar los valores modificados. Si tu macro trabaja con varias hojas y muchos datos en ella cada vez que incluyes un nuevo dato recalcula todo, lo que lleva cierto tiempo, por ello solo utilices"Calculate" solo cuando tu macro utilice un valor modificado por los uktimos datos , esto reduce el tiempo de cálculo dráasticamente Si quiere que al final quede en forma de cálculo automático deberças incluir Application.Calculation = xlCalculationAutomatic
  6. Antes de nada gracias por tu rçapida respiesta. Como me indicas he puesto los dos ficheros en un mismo directorio y me da un "error definido porla aplicacion o el objeto" en la última línea: wbq.Refresh.. Gracias de antemano
  7. Soy Ángel, usuario de Excel para uso particular, cuenta domésticas, gestión ahorros etc. Me defiendo incluso he creado algunas macros. Me incorporo a este foro para poder ayudar en lo que pueda y que me ayudéis en mis dudas. saludos a todos
  8. Bueanas tardes. El otro día vi un woutube https://www.youtube.com/watch?v=qLieIhUFMAk donde esplicaban como descargar el histórico de unas cotizaciones. Funciona muy bien pero lo que quiero ahora es generar una macro que barra una tabla de valores y decargar sus históricos. La solucion que propone para pocos valores es editar la consulta y cambiar el tiker anterior "BTCUSDT" por el nuevo, pero creo que eso no se puede hacer automaticamente. Si se pudiera hacer sería un forma perfecta pues es mucha mnás rápida y solo requiere el cambio de unas pocas letras. La otra solución sería relanzar la macro para cada uno de los valores. generando para cada valor el nobre, la fórmula y varios puntos en los que aparece el valor.. Me surgen dudas antes de ponerme a ello. 1.- Funcionará cambiando eos valores, fórmuals.... con otros en los que el valor "BCTUSDT" se cambie por el nuevo? 2.- El nombre no es gran problema pero la fórmula está plagada de """" ¿Habría alguna forma de generar la fórmula de una forme más facil? 3.- en la líne "With ActiveSheet.... entiendo que "Location" también se podría generar xon una variable 4.- ¿Que hacer con .CommandText= Array(.... en la que también aparece el valor 5.- por último en la 5ª líne por el final aparece denuevo el valor Gracias de antemano Adjunto el macro generado en el que entre la línea 3 y 11 se encuentra el nobre y la formula Sub Macro7() ' Macro7 Macro ActiveWorkbook.Queries.Add Name:= _ "klines?symbol=BTCUSDT&interval=5m&limit=1000&startTime=1609459200000&endTime=164" _ , Formula:= _ "let" & Chr(13) & "" & Chr(10) & " Origen = Json.Document(Web.Contents(""https://api.binance.com/api/v3/klines?symbol=BTCUSDT&interval=5m&limit=1000&startTime=1609459200000&endTime=1644969600000""))," & Chr(13) & "" & Chr(10) & " #""Convertida en tabla"" = Table.FromList(Origen, Splitter.SplitByNothing(), null, null, ExtraValues.Error)," & Chr(13) & "" & Chr(10) & " #""Valores extraídos"" = Table.TransformColumns(#""Convertida en tabla"", {" & _ """Column1"", each Text.Combine(List.Transform(_, Text.From), "";""), type text})," & Chr(13) & "" & Chr(10) & " #""Valor reemplazado"" = Table.ReplaceValue(#""Valores extraídos"",""."","","",Replacer.ReplaceText,{""Column1""})," & Chr(13) & "" & Chr(10) & " #""Dividir columna por delimitador"" = Table.SplitColumn(#""Valor reemplazado"", ""Column1"", Splitter.SplitTextByDelimiter("";"", QuoteStyle.Csv), {""Column1.1" & _ """, ""Column1.2"", ""Column1.3"", ""Column1.4"", ""Column1.5"", ""Column1.6"", ""Column1.7"", ""Column1.8"", ""Column1.9"", ""Column1.10"", ""Column1.11"", ""Column1.12""})," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado"" = Table.TransformColumnTypes(#""Dividir columna por delimitador"",{{""Column1.1"", Int64.Type}, {""Column1.2"", type number}, {""Column1.3"", type number}, {""Column1.4""" & _ ", type number}, {""Column1.5"", type number}, {""Column1.6"", type number}, {""Column1.7"", Int64.Type}, {""Column1.8"", type number}, {""Column1.9"", Int64.Type}, {""Column1.10"", type number}, {""Column1.11"", type number}, {""Column1.12"", Int64.Type}})," & Chr(13) & "" & Chr(10) & " #""Columnas con nombre cambiado"" = Table.RenameColumns(#""Tipo cambiado"",{{""Column1.1"", ""ts""}})," & Chr(13) & "" & Chr(10) & " " & _ " #""Personalizada agregada"" = Table.AddColumn(#""Columnas con nombre cambiado"", ""Fechas"", each [ts]/ 86400000+ 25569)," & Chr(13) & "" & Chr(10) & " #""Columnas quitadas"" = Table.RemoveColumns(#""Personalizada agregada"",{""Column1.7"", ""Column1.8"", ""Column1.9"", ""Column1.10"", ""Column1.11"", ""Column1.12""})," & Chr(13) & "" & Chr(10) & " #""Columnas reordenadas"" = Table.ReorderColumns(#""Columnas qui" & _ "tadas"",{""Fechas"", ""ts"", ""Column1.2"", ""Column1.3"", ""Column1.4"", ""Column1.5"", ""Column1.6""})," & Chr(13) & "" & Chr(10) & " #""Tipo cambiado1"" = Table.TransformColumnTypes(#""Columnas reordenadas"",{{""Fechas"", type datetime}})," & Chr(13) & "" & Chr(10) & " #""Columnas quitadas1"" = Table.RemoveColumns(#""Tipo cambiado1"",{""ts""})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Columnas quitadas1""" ActiveWorkbook.Worksheets.Add With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _ "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""klines?symbol=BTCUSDT&interval=5m&limit=1000&startTime=160945" _ , "9200000&endTime=164"";Extended Properties="""""), Destination:=Range("$A$1" _ )).QueryTable .CommandType = xlCmdSql .CommandText = Array( _ "SELECT * FROM [klines?symbol=BTCUSDT&interval=5m&limit=1000&startTime=1609459200000&endTime=164]" _ ) .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .ListObject.DisplayName = _ "klines_symbol_BTCUSDT_interval_5m_limit_1000_startTime_1609459200000_endTime_164" .Refresh BackgroundQuery:=False End With End Sub
×
×
  • Create New...

Important Information

Privacy Policy