ZIP im Windows Explorer öffnen
09.04.2021 17:55:55
Waldi
Während ich unter Office 2013 mit dem folgenden VBA-Code JPG- und ZIP-Dateien öffnen konnte (nur die beiden kommen vor), öffnet Office 2002 mit "Open_File" bei ZIP-Dateien den Windows-Explorer nicht. JPG-Dateien kein Problem, aber bei ZIP tut sich gar nichts.
Weiß jemand eine Lösung?
Private Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal Operation As String, _
ByVal Filename As String, _
Optional ByVal Parameters As String, _
Optional ByVal Directory As String, _
Optional ByVal WindowStyle As Long = vbMinimizedFocus _
) As Long
Sub Open_File(strFileName As String, windowType As Integer)
ShellExecute 0, "Open", strFileName, "", "", windowType
End Sub
Sub DateiAufrufen()
Dim Pfad As String
Dim Datei As String
Dim PfadUndDatei As String
Dim AktiveZeile As Integer
Dim AktiveSpalte As Integer
Sheets("Tabelle1").Select
AktiveZeile = ActiveCell.Row
AktiveSpalte = ActiveCell.Column
Sheets("Tabelle3").Select
Cells(AktiveZeile, 2).Select
Range("Kalenderjahr") = ActiveCell
Application.ThisWorkbook.RefreshAll
If Range("Kalenderjahr") = 0 Then GoTo Ende1
Pfad = Range("Belegpfad")
Sheets("Tabelle2").Select
Cells(AktiveZeile, AktiveSpalte).Select
Datei = Cells(AktiveZeile, AktiveSpalte)
PfadUndDatei = Pfad & Datei
If Datei = "" Then GoTo Ende3
If Not FileExists(PfadUndDatei) Then GoTo Ende2
Open_File PfadUndDatei, 1
'Parameter Open_File:
'1 = vbNormalFocus
'2 = Minimized
'3 = Maximized
GoTo Ende4
Ende1:
MsgBox "Beleg-Datum fehlt, dadurch keine Zuordnung zum Kalenderjahr möglich"
GoTo Ende4
Ende2:
MsgBox "Keine Datei vorhanden oder Fehler"
GoTo Ende4
Ende3:
Sheets("Tabelle1").Select
MsgBox "Kein Dateiname in Exceltabelle eingetragen"
Ende4:
Sheets("Tabelle1").Select
End Sub
Anzeige