VBA - visos informacijos apie failą gavimas

Preliminarūs

• Atidarykite naują darbo knygą
• Pridėti modulį

Modulyje

 „Atskleisti vedlio kintamuosius. Viešas balionas1 Kaip balionas Viešas balionas2 Kaip balionas Viešas balionas3 Galima naudoti lentelę vietoj „keleto pareiškimų, pasirinkau kelis variantus, kad„ kodas būtų aiškesnis “Viešasis balionas (3) kaip balionas“ Viešoji antraštė Kaip eilinis viešasis pranešimas kaip eilutė Sub openMessage () 'Atskleisti kintamuosius. „Dim WizardName“ kaip eilutė „Dim IsVisible“ kaip loginis „Dim“ rezultatas Kaip baitas „Nustatykite klaidas kaip aiškias“ Klaida Atnaujinti Kitas Err.Clear „Prisiminkite dabartinį vedlio pavadinimą. WizardName = Wizard.Name 'Jei vedlys nėra matomas, nustatykite jį kaip matomą Jei Wizard.Visible = False Then Wizard.Visible = True IsVis = False Else IsVisible = True End Jei' sukurkite Wizard balioną. Set balloon2 = Wizard.NewBalloon Su balionu2 'įdėkite pavadinimą ir klausimus. .Heading = Title .Text = Pranešimas „Nustato vedlio ypatybes. .BalloonType = msoBalloonTypeButtons režimas, kaip numatytasis. .Mode = msoModeModal 'priskirti Atšaukta parinktis mygtukui, OK yra numatytasis. .Button = msoButtonSetOK Pabaiga „Laukite pasirinkimo“ Atlikta parinktis Rezultatas = balionas2.Show 'Jei pasirinktas mygtukas, baigite makrokomandą. Jei Err 0 Tada Jei IsVisible = False Tada Wizard.Visible = False End Jei End End Jei Loop End Sub Sub DisplayInfoAccessFile (specfile) „Mums reikia, kad darbaknygė jau būtų standžiajame diske. „------------------------------------------------- --- Dim fs, f, s Nustatyti fs = CreateObject („Scripting.FileSystemObject“) Nustatyti f = fs.GetFile (specfile) s = UCase (specfile) & vbCrLf s = s & „Sukurta:“ & f.DateCreated & vbCrLf s = s & „Paskutinis aktualumas:“ & f.DateLastAccessed & vbCrLf s = s & „Paskutinis pakeitimas:“ & f.DateLastModified & vbCrLf s = s & „Dydis“ & f.Size & „baitai“. & vbCrLf s = s & "Diskas" & f.Drive & vbCrLf s = s & "Katalogas" & f.ParentFolder Title = "Informacija apie failą:" ir specfile Message = s openMessage End Sub 

1 lapo modulyje

 Private Sub Worksheet_Activate () Range ("B5"). Value = "rodyti informaciją apie failą" su ActiveSheet.Range ("B5"). Font .Name = "Arial" .Size = 16 .ColorIndex = 5 .Bold = True Baigti stulpeliais („B“). ColumnWidth = 48 Galutinio sub privataus sub darblapio_pasirinkimo keitimas (ByVal taikinys kaip diapazonas) Dim $, b $ a $ = ActiveWorkbook.Path & „& ActiveWorkbook.Name b $ = ActiveWorkbook.Name ActiveCell.Address = "$ B $ 5" Tada AfficheInfoAccesFile (ActiveWorkbook.Name) Baigti, jei baigsite