Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

macro per salvare foto da collegamento ipertestuale in desktop

Ultimo Aggiornamento: 04/09/2018 08:17
Post: 1
Registrato il: 03/09/2018
Città: AFFILE
Età: 55
Utente Junior
2007
OFFLINE
03/09/2018 19:21

chiedo una cortesia, mi servirebbe una macro in excel che "tirasse" fuori link ipertestuali e salvati in jpg con nome. esempio: cella A1 nome cella A2 collegamento ipertestuale, cliccando sulla macro dovrebbe uscire salvata la foto in jpg su cartella desktop avendo il nome della cella A1



range cella A1:10
1-2-3-4-5-6-7-8-9-10

cella B1
http://nomefilefoto.jpg
…….

risultato
salvataggio in cartella desktop con nome della cella 1, 2, etc

grazie
Post: 4.118
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
03/09/2018 19:41

puoi postare un link reale per fare delle prove ?

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Post: 1
Registrato il: 03/09/2018
Città: AFFILE
Età: 55
Utente Junior
2007
OFFLINE
03/09/2018 19:53

link, sono cartoline di roma
https://images-03.delcampe-static.net/img_large/auction/000/585/720/970_001.jpg
Post: 1.189
Registrato il: 27/06/2011
Utente Veteran
excel 2007
OFFLINE
03/09/2018 22:32

ahhoo,
mejo de così nun potevi fà

er mejo link a 'na jpg

a linkà...sei er mejo
[SM=x423028]


se poi te và de allegà un file pé fà delle prove, ne riparliamo

Noi semo sempre quà a disposizione



aho te saluto
io so
Frank
ciao Romà
[Modificato da tanimon 03/09/2018 22:39]







Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future...
Post: 2
Registrato il: 03/09/2018
Città: AFFILE
Età: 55
Utente Junior
2007
OFFLINE
03/09/2018 22:57

ciao frank, scusami....
Public Sub Tester()
Dim WB As Workbook
Dim sh As Worksheet
Dim Rng As Range
Dim rCell As Range

Set WB = Workbooks("LINK FOTO CLICCARE E SALVARE.xlsx")
Set sh = WB.Sheets("Foglio1")

Set Rng = sh.Range("B1") (è previsto il link da aprire)

For Each rCell In Rng.Cells
WB.FollowHyperlink Address:=rCell.Value, _
NewWindow:=True
ActiveWorkbook.SaveAs "C:\Users\Desktop\foto\1.jpg" (mi salva excel!!!!)


ci sto provando ma non riesce…..
una volta solo si è aperto paint salva con nome
aiuto [SM=x423025]
[Modificato da ROMANO1968 03/09/2018 22:59]
Post: 4.119
Registrato il: 13/03/2012
Città: LIVORNO
Età: 78
Utente Master
2010
OFFLINE
04/09/2018 08:17

Sub Download_Files()
Dim FileNum As Long
Dim FileData() As Byte
Dim MyFile As String
Dim WHTTP As Object
On Error Resume Next
Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5")
If Err.Number <> 0 Then Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")
Dim miorange As Range
Dim cll As Range
Set miorange = Range("a1:a10") '<--- Eventualmente da modificare
For Each cll In miorange
  MyFile = cll.Value
  fname = Right(MyFile, Len(MyFile) - InStrRev(MyFile, "/"))
  WHTTP.Open "GET", MyFile, False
  WHTTP.Send
  FileData = WHTTP.responseBody
  Set WHTTP = Nothing
  FileNum = FreeFile
  Open "C:\users\nome\desktop\" & fname For Binary Access Write As #FileNum
  Put #FileNum, 1, FileData
  Close #FileNum
Next

End Sub

----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 10:47. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com