dimecres, 5 de juny del 2019
dimarts, 4 de juny del 2019
Scrape WEB - send to Excel
the link shows the function
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
QueryTables.Add method (Excel)
https://docs.microsoft.com/en-us/office/vba/api/excel.querytables.addSave 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
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.
A la web podem trobar solucions que han aplicat despatxos d'arquitectura.
divendres, 3 de maig del 2019
dijous, 2 de maig del 2019
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
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.
- la fórmula per al càlcul de la longitud de la funció. es pot tenir més detall aquí
- la modelització de la catenària i els seu diagrama del cos lliure
Subscriure's a:
Missatges (Atom)