VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aufruf von Textdateien protokollieren

Gruppe

Extern

Bereich

Grafikimport

Thema

Aufruf von Textdateien protokollieren

Problem

Bei Doppelklick auf die Zellen in A1:A3 werden die dort genannten Dateien im Explorer aufgerufen. Der Vorgang wird in einer Log-Datei dokumentiert.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




ClassModule: Tabelle1

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Cancel = True
   If Dir(Target.Value) = "" Then Exit Sub
   Close
   Open Application.DefaultFilePath & "\hyp.log" For Append As #1
   Print #1, Target.Value & vbTab & Now
   Close
   Shell "explorer " & Target.Value, vbMaximizedFocus
End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   Close
   Open Application.DefaultFilePath & "\hyp.log" For Append As #1
   Print #1, Target.Address & vbTab & Now
   Close
End Sub
StandardModule: Modul1

Sub WriteLog()
   
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Grafikimport