Più che un problema di DDE riguarda le basi di VBA... ma per il momento riesco a leggere e capire il codice... ma ho difficoltà a scriverlo. Lo so lo ammetto... sono ignorante
- Codice: Seleziona tutto
Sub ProvaLink()
aLinks = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
MsgBox "Link " & i & ":" & Chr(13) & aLinks(i)
'il mio problema è questo... al posto del MSGBOX ho necessita di salvare
'i link nelle celle. per es.:
' ---------foglio3.cella(AX)="Link " & i & ":" & Chr(13) & aLinks(i)
' ---------X = X + 1
Next i
End If
End Sub
Grazie.
Vi auguro buon lavoro e una buona giornata. (anche se dalle mie parti il tempo è uno schifo... piove da stamattina).