Salve a tutti
Sto cercando di realizzare una macro per leggere un CD masterizzato con file.pdf contenuti in una cartella.rar protetta da chiave.
Quello che vorrei realizzare in sintesi è:
Esempio ; scrivendo in una cella carico1 in altra cella se trovato il collegamento ipertestuale lampeggia e premendolo mi va a LEGGERE un file pdf contenuto in un CD all'interno di una cartella.rar con chiave critografata.
In modo da leggere i file contenuti nella cartella.rar protetta, solo dal file excel d'interesse evitando letture dirette dal CD.
Se qualcuno volesse aiutarmi grazie !!
Ecco a che punto sono ....
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(5, 3) = "carico1" Then
Range("G2") = "Documento visionabile"
Foglio1.Hyperlinks.Add anchor:=Range("G2"), Address:="D:\ARCHIVIO CARICHI ANNO 2011\CONTENITORE CARICHI 2011/1 CM di carico.pdf"
ElseIf Cells(5, 3) = "carico2" Then
Range("G2") = "Documento visionabile"
Foglio1.Hyperlinks.Add anchor:=Range("G2"), Address:="D:\ARCHIVIO CARICHI ANNO 2011\CONTENITORE CARICHI 2011/2 CM di carico.pdf"
ElseIf Cells(5, 3) = "carico3" Then
Range("G2") = "Documento visionabile"
Foglio1.Hyperlinks.Add anchor:=Range("G2"), Address:="D:\ARCHIVIO CARICHI ANNO 2011\CONTENITORE CARICHI 2011/3 CM di carico.pdf"
Else
Hyperlinks.Delete
Range("G2") = "DOCUMENTO NON ELABORATO"
End If
If Range("C5").Value >= "carico1" Then
On Error Resume Next
lampeggiaON "carico", "G2"
Else
On Error Resume Next
lampeggiaOFF "carico", "G2"
End If
End Sub
Ho provato anche questo riportato sotto ad inserirlo ma alla fine mi estrae solo il file .rar lasciandolo estratto mentre a me occorre solo che lo legga
Dim WinRarPath As String 'WinRar.exe location
Dim RarIt As String 'Command line instruction
Dim SourceDir As String 'The source directory
Dim SourceRarFile As String 'The source file
Dim Source As String 'The combined Rar from path(s)(FROM)
Dim Dest As String 'The combined unRar to path (TO)
WinRarPath = "C:\Program Files\WinRar\"
If Dir(WinRarPath, vbDirectory) = "" Then
MsgBox "WinRar is not installed in the default directory." _
& Chr$(13) & "Archiving of files will not be possible."
Exit Sub
End If
SourceDir = "D:\ARCHIVIO CARICHI ANNO 2011"
SourceRarFile = "CONTENITORE CARICHI 2011.Rar"
Source = SourceDir & "\" & SourceRarFile
If InStr(1, Source, " ", vbTextCompare) <> 0 Then Source = Chr(34) & Source & Chr(34)
Dest = "D:\ARCHIVIO CARICHI ANNO 2011\"
If Dir(Dest, vbDirectory) = "" Then MkDir Dest
If InStr(1, Dest, " ", vbTextCompare) <> 0 Then Dest = Chr(34) & Dest & Chr(34)
RarIt = Shell _
(WinRarPath & "WinRar.exe e " & Source & " " & Dest, vbNormalFocus)