Condividi:        

LinkSources DDE

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

LinkSources DDE

Postdi s3ss » 16/11/10 13:36

Leggendo i topic sul DDE avrei necessita di modificare questo codice.
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).
s3ss
Utente Junior
 
Post: 25
Iscritto il: 11/11/10 14:19

Sponsor
 

Re: LinkSources DDE

Postdi Anthony47 » 17/11/10 02:11

Basta questa in sostituzione della (o in aggiunta alla) riga MsgBox:
Codice: Seleziona tutto
Sheets("foglio3").Cells(i, 1).Value="Link " & i & ": " & aLinks(i)

Scrive in Col A di Foglio3 del file corrente, da riga 1 in avanti.
Puo' essere utile inserire, subito dopo il titolo
Codice: Seleziona tutto
Sheets("foglio3").Range("A:A").Clear
che azzera tutta la col A di Foglio3

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19181
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: LinkSources DDE

Postdi s3ss » 17/11/10 09:59

:') grazie. Ieri sembrava tutto così difficile.
Buona giornata Anthony.
s3ss
Utente Junior
 
Post: 25
Iscritto il: 11/11/10 14:19


Torna a Applicazioni Office Windows

Chi c’è in linea

Visitano il forum: Nessuno e 59 ospiti