Explorer schliessen wenn datei geoeffnet
Rolandx
hab mal wieder ein kleines Problem(chen).
Ich muss in mehreren Tausend stromkereise die vorgaben mit den daten einer excel-datei vergleichen und auswerten. die vorgaben sind auf dem server in einer pdf-datei gespeichert. da die suche nach den dateien etwas verwirrend ist suche ich mir per makro den jeweiligen folder in dem ich die pdf-datei finden muesste. wenn der folder vorhanden ist oeffnet mir das makro den explorer mit dem zugehoerigen folder. nun wird der explorer aber nicht automatisch geschlossen sondern bei jeder suche ein neuer geoeffnet so dass ich dann den explorer zigmal geoefnet habe.
wie kann ich den explorer automatisch schliessen sobald ich per doppelklick auf eine datei diese oeffne ?
hier der schluss des makros auf das sich das problem bezieht.
If CBool(Len(Dir(SearchFolder & "\" & FAT, vbDirectory)) > 0) = True Then
SearchFolder = SearchFolder & FAT
' search for the folder where the ToolLife exists
Directory_Tree_Tool_Package SearchFolder ' Macro to search for the ToolLife-Folder
If Error70 = True Then
Error70 = False
MsgBox "FOLDER " & vbLf & SearchFolder & vbLf & " NOT FOUND"
End If
If FoundFolder <> "" Then
Shell "Explorer " & SearchFolder & "\" & FoundFolder, vbMaximizedFocus
' if the folder was not found then write into the file that the folder was not found
ElseIf FoundFolder = "" Then
Line = ChoosenCell(1).Row
Do While Range("I" & Line) = Tool
Range("O" & Line & ":P" & Line).Value = "No Package Found"
Line = Line + 1
Loop
End If
End If
End Sub
Waere nett wenn mir hier jemand helfen koennte.
Danke und schoenen Feierabend an Euch Alle.