aiuto hyperlink

Hai un problema con Excel?

Nuova discussione

aiuto hyperlink
di biagicus (utente non iscritto) data: 10/11/2016 13:19:09
Salve
In una cartella con collegment ipertestuali nell'evento workbook_beforeclose utilizzo il codice savecopyas per creare una copia della cartella.
Quando però uso il comando mi perdo in entrambi i file (origine e copia) i collegamenti ipertestuali. Il codice utilizzato lo posto sotto.
Vorrei mantenerli i collegamenti mi aiutereste?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
back = ThisWorkbook.Path & "ackup" & Format(Date, "dd-mm") & " " & Format(Now, "Hh-Nn") & ".xlsm"
ThisWorkbook.SaveCopyAs (back)
ThisWorkbook.Save
end sub

di patel data: 10/11/2016 16:13:57
allega un file di esempio da testare

di biagio formisano (utente non iscritto) data: 11/11/2016 09:06:06
ho risolto così

sub copythatfile
Dim xlobj as object
Set xlobj = CreateObject("Scripting.FileSystemObject")
'object.copyfile,source,destination,file overright(True is default)
xlobj.CopyFile "c:obob3.xls", "c:obcopybob3.xls", True
Set xlobj = Nothing
end sub

Vuoi Approfondire?