VBA - faili kohta teabe hankimine

Sissejuhatus

  • Avage uus töövihik
  • Lisage moodul

Moodul

 'Tuvastage viisardile muutujad. Avalik balloon1 Balloon Avalik balloon2 Balloonina Avalik balloon3 Balloonina „Mitme avalduse asemel on võimalik tabelit kasutada, valides mitu koodi, et kood oleks selgem„ Avalik BalloonMultipl (3) kui balloon ”Avalik pealkiri String Avalik sõnum kui string Sub openMessage () 'Deklareerige muutujad. Dim WizardName nagu string Dim IsVisible nagu loogiline Dim Tulemus kui bait 'Määra vead selgeid On Error Resume Next Err.Clear' Mäleta viisardi praegune nimi. WizardName = Wizard.Name 'Kui Wizard ei ole nähtav, seadke see nähtavaks. Kui Wizard.Visible = False Then Wizard.Visible = True IsVisible = False Else IsVisible = True End Kui loote Wizard ballooni. Set balloon2 = Wizard.NewBalloon Ballooniga 2 'pange pealkiri ja küsimused. .Heading = Title .Text = Message 'Määrab viisardi omadused. .BalloonType = msoBalloonTypeButton režiim, vaikimisi. .Mode = msoModeModal 'määra tühistatud valik nupp, OK on vaikimisi. .Button = msoButtonSetOK Lõpeta „Oodake valiku tegemist Tehke valik Valitud Tulemus = balloon2.Show 'Kui on valitud nupp, lõpetage makro. Kui Err 0 siis kui IsVisible = False siis Wizard.Visible = False End Kui lõpp-lõpp Kui Loop End Sub Sub DisplayInfoAccessFile (specfile) 'Peame, et töövihik on juba kõvakettal. "------------------------------------------------- --- Dim fs, f, s Set fs = CreateObject ("Scripting.FileSystemObject") Set f = fs.GetFile (specfile) s = UCase (specfile) & vbCrLf s = s & "Loodud:" & f.DateCreated & vbCrLf s = s & "Viimane acess:" & f.DateLastAccessed & vbCrLf s = s & "Viimati muudetud:" & f.DateLastModified & vbCrLf s = s & "Suurus" & f.Size & "baitid." & vbCrLf s = s & "Drive" & f.Drive & vbCrLf s = s & "Kataloog" & f.ParentFolder Title = "Faili andmed:" & specfile Message = s openMessage End Sub 

Tabelis 1 moodulis

 Private Sub Worksheet_Activate () vahemik ("B5"). Value = "faili info kuvamine" ActiveSheet.Range ("B5"). Font .Name = "Arial". Suurus = 16 .ColorIndex = 5 .Bold = True Lõpeta veergudega ("B") ColumnWidth = 48 End Sub Private Sub Worksheet_SelectionChange (ByVal Target kui vahemik) Dim a $, b $ a $ = ActiveWorkbook.Path & "& ActiveWorkbook.Name b $ = ActiveWorkbook.Name If ActiveCell.Address = "$ B $ 5" Seejärel AfficheInfoAccesFile (ActiveWorkbook.Name) Lõpeta, kui lõppu 

Eelmine Artikkel Järgmine Artikkel

Top Näpunäited