VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Arbeitsmappe öffnen und nach Beenden des Mausklicks schließen

Gruppe

Ereignis

Bereich

Open

Thema

Arbeitsmappe öffnen und nach Beenden des Mausklicks schließen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open