VBA - Abrufen aller Informationen zu einer Datei

Vorbereitungen

• Öffnen Sie eine neue Arbeitsmappe
• Fügen Sie ein Modul hinzu

Im Modul

 'Variablen für Assistenten deklarieren. Öffentliche Sprechblase1 Als Sprechblase Öffentliche Sprechblase2 Als Sprechblase Öffentliche Sprechblase3 Als Sprechblase 'Es ist möglich, eine Tabelle anstelle von mehreren Anweisungen zu verwenden. Ich habe die Mehrfachoption für den expliziteren Code Public BalloonMultipl (3) als Sprechblase ausgewählt Als String Öffentliche Nachricht Als String Sub openMessage () 'Variablen deklarieren. Dim WizardName As String Dim IsVisible As Boolean Dim Ergebnis As Byte 'Setzen Sie die Fehler auf clear On Error Resume Next Err.Clear' Merken Sie sich den aktuellen Namen des Assistenten. WizardName = Wizard.Name 'Wenn der Assistent nicht sichtbar ist, legen Sie ihn als sichtbar fest. Set balloon2 = Wizard.NewBalloon Mit balloon2 'Titel und Fragen eingeben. .Heading = Title .Text = Message 'Legt die Eigenschaften des Assistenten fest. .BalloonType = msoBalloonTypeButtons ist standardmäßig der modale Modus. .Mode = msoModeModal 'Abgebrochene Option der Schaltfläche zuweisen, OK ist Standard. .Button = msoButtonSetOK End With 'wait for selection Do' Auswahl abgeschlossen Result = balloon2.Show 'Wenn die Schaltfläche ausgewählt ist, wird das Makro beendet. Wenn Err 0, dann wenn IsVisible = False, dann Wizard.Visible = False. '------------------------------------------------- --- Dim fs, f, s Set fs = CreateObject ("Scripting.FileSystemObject") Set f = fs.GetFile (specfile) s = UCase (specfile) & vbCrLf s = s & "Erstellt das:" & f.DateCreated & vbCrLf s = s & "Letzter Zugriff:" & f.DateLastAccessed & vbCrLf s = s & "Letzte Änderung:" & f.DateLastModified & vbCrLf s = s & "Größe" & f.Size & "Bytes." & vbCrLf s = s & "Laufwerk" & f.Drive & vbCrLf s = s & "Verzeichnis" & f.ParentFolder Title = "Informationen zur Datei:" & specfile Message = s openMessage End Sub 

Im Modul sheet1

 Private Sub Worksheet_Activate () Range ("B5"). Value = "Informationen zur Datei anzeigen" With ActiveSheet.Range ("B5"). Font .Name = "Arial" .Size = 16 .ColorIndex = 5 .Bold = True Ende mit Spalten ("B"). ColumnWidth = 48 End Sub Private Sub Worksheet_SelectionChange (ByVal-Ziel als Bereich) Dim a $, b $ a $ = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name b $ = ActiveWorkbook.Name If ActiveCell.Address = "$ B $ 5" Dann AfficheInfoAccesFile (ActiveWorkbook.Name) End If End Sub