Ciao. Da buon ultimo arrivato non perdo tempo a stufare chi è più esperto di me (ci vuole molto poco, in verità... )

Registro una macro su foglio Excel: apertura pag con colleg. ipertestuale, copia di un dato e incolla su cella del foglio, successivi copia e incolla con celle aventi funzioni varie.
Fine registrazione.
Esecuzione macro. Fallisce con finestra di Visual Basic errore di run time.
Qualsiasi variazione di copia e incolla dalla pag aperta con collegamento ipertestuale non cambia la musica.
Allego contenuto di finestra Visual Basic e contenuto del Debug.

Microsoft Visual BasicErrore di run time 1004
Errore nel metodo PasteSpecial per la classe WorkSheet

Debug
Sub Dia()
'
' Dia Macro
' Macro registrata il 22/02/2011 da '

'
Range("A4").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("CY4").Select
ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False

Quale sistema si può usare per copiare i dati che mi interessano da pagina aperta con link ipertestuale e incollarli su celle del foglio di lavoro in funzione Macro?
Senza l'uso della macro non ci sono problemi ma il lavoro diventa molto lungo.
Grazie per l'eventuale aiuto.

salve
mi pare di capire che la tua macro debba incollare dei dati copiati da un'altra applicazione ( sito internet??)
il comando che utilizzi, prevede che i dati da incollare siano appoggiati negli appunti tramite il comando copia.
Dato che nella macro non si vede cosa vuoi copiare, si evince che sia tu che esegui manualmente Ctrl+C
Registrando la macro il codice è corretto, ma lanciandolo successivamente gli manca l'oggetto per concludere l'operazione (Il Ctrl+C ) quindi non trova nulla da incollare.
Se quello che devi copiare è una tabella di un sito bisogna che assegni l'operazione di copia alla macro.
saluti
Giap

---

salve
il motivo è quello che ti ho detto sopra.
Una soluzione più pratica sarebbe quella di utilizzare una queryweb. quello che segue è un esempio
di una queryweb effettuata sul sito di Borsa Italiana che preleva la tabella del titolo Generali.
(modifica l'indirizzo e la tabella da prelevare in base alle tue necessità)

Sub Generali()
Range("A1:M50").ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.borsaitaliana.it/borsa/azioni/dati-completi.html?isin=IT0000062072&lang=it" _
, Destination:=Range("A1"))
.Name = "dati-completi.html?isin=IT0000062072&lang=it_3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

saluti
Giap

---