400 libros gratis por parte de Springer Nature

Kike_Knoxvil #1 Abr '20

Springer Nature está regalando 400 libros de carácter científico a la comunidad, el listado se encuentra en esta hoja de cálculo y posee un poco de todo por lo que no sabía si abrir el hilo en ciencia, estudios o incorporarlo al hilo de cursos

2

Popino #2 Abr '20 Le Connoisseur

Desactivad las macros antes de abrir un archivo de office descargado de internet.

1 1 respuesta

Kike_Knoxvil #3 Abr '20

#2 Es un xlsx, no debería tener código pero nunca está de más recordarlo

1 respuesta

Popino #4 Abr '20 Le Connoisseur

#3Kike_Knoxvil:
Es un xlsx, no debería tener código

~~Precisamente por ser un xlsx puede contener caca.~~

EDIT: Tienes razón

1 respuesta

Kike_Knoxvil #5 Abr '20

#4 Pues la verdad que no sé suficiente de informática para saber eso, pensaba que por fuerza las macros tienen que ir en xlsm por el hecho de que en los xlsx te borra el código. Tendré que mirarlo

Igneox #6 Abr '20

Parece que hay cosas interesantes, no??

Kike_Knoxvil #7 Abr '20

Hice un pequeño código en VBA ahora que descansaba para crear directamente los enlaces al archivo en la fila W, así sería simplemente copiar y pegar en el jdownloader o similares para descargar de un golpe

Código

Sub enlaces()
Dim link As Range
Dim ran As Range
Dim num As Integer
Dim lin As String

Set ran = Range("R2:R408") 'El rango de los enlaces
For Each link In ran
    num = InStrRev(link, "/") 'Busco a la inversa el primer slash para hacer la cadena del link
    If link.Row = 322 Then 'El de la linea 322 no es un 10.1007 sino un 10.1057. Al ser solo uno es mas facil asi
        lin = "https://link.springer.com/content/pdf/10.1057%2F978-1-349-95348-6.pdf"
    Else
        lin = "https://link.springer.com/content/pdf/10.1007%2F" + Right(link, Len(link) - num) + ".pdf"
    End If
    Range("W" & link.Row) = lin 'los meto en la columna W pero la fila que le corresponde
    

Next
End Sub

1 1 respuesta

DonDemencia #8 Abr '20

Parece tener mucho contenido para ámbitos como las matemáticas, la informática y la física. La pena es que no siga ningún orden.

Shake_406 #9 Abr '20

#7 Me has ahorrado horas. Manita para ti

400 libros gratis por parte de Springer Nature

Usuarios habituales

Tags