dimarts, 4 de juny del 2019

Scrape WEB - send to Excel

the link shows the function

QueryTables.Add method (Excel)

https://docs.microsoft.com/en-us/office/vba/api/excel.querytables.add

Save the Macro meanwhile executing the Data Connection from Web
Then modify the Macro in order to read each page.

http://calculationsolar.com/es/componentes_inversores_cargadores.php?pagina=4
http://calculationsolar.com/es/componentes_inversores_cargadores.php?pagina=5
http://calculationsolar.com/es/componentes_inversores_cargadores.php?pagina=6
http://calculationsolar.com/es/componentes_inversores_cargadores.php?pagina=7
http://calculationsolar.com/es/componentes_inversores_cargadores.php?pagina=8

Sub Macro2()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://calculationsolar.com/es/componentes_inversores_cargadores.php?pagina=4" _
        , Destination:=Range("$A$1"))
        .Name = "componentes_inversores_cargadores.php?pagina=4"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Same results

Sub Macro2()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://calculationsolar.com/es/componentes_inversores_cargadores.php?pagina=4" _
        , Destination:=Range("$A$1"))
    End With
End Sub


diumenge, 2 de juny del 2019

Potència Equip Elevador

càlcul del coeficient multiplicador que cal aplicar al càlcul de potència a partir de pes i velocitat, comparat amb els valors proposats per ITE-ITA.

dissabte, 25 de maig del 2019

Drenatge i ventil·lació contra la humitat

Un dels paràmetres que considero més importants al definir una casa és el drenatge del terreny i la ventil·lació de la casa.

A la web podem trobar solucions que han aplicat despatxos d'arquitectura.

divendres, 26 d’abril del 2019

La catenària

LA CATENARIA
Si pengem un cable dels seus extrems entre pals, aquest formarà una corba que respon a una fórmula. Originalment el problema s'hauria plantejat amb un cadena en comptes d'un cable.


es tracta d'una funció cosinus hiperbòlic


l'obtenció de la fórmula està desenvolupada en l'enllaç 

hi ha alguns RECALL al llarg del vídeo i arranjaments enginyosos que convé destacar.

  1. la fórmula per al càlcul de la longitud de la funció. es pot tenir més detall aquí
  2. la modelització de la catenària i els seu diagrama del cos lliure