Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Arbeitsmappe öffnen und nach Beenden des Mausklicks schließen

Gruppe

Open

Problem

Bei Mausklick auf die Schaltfläche soll eine Datei geöffnet, über den Maushaltezeitraum angezeigt und nach Beenden des Haltens wieder geschlossen werden.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

ClassModule: Tabelle1

Private Sub cmdLoadFile_MouseDown( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, _
   ByVal Y As Single)
   Dim sFile As String
   sFile = Range("B1").Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Datei wurde nicht gefunden!"
      Exit Sub
   End If
   Workbooks.Open sFile, False, True
End Sub

Private Sub cmdLoadFile_MouseUp( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, _
   ByVal Y As Single)
   ActiveWorkbook.Close savechanges:=False
End Sub