Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-soubory » BuiltinDocumentProperties-Informace-souboru-Excel-VBA
Microsoft Excel logo

BuiltinDocumentProperties - Informace o souboru - Excel VBA

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak zjistit informace o souboru využitím BuiltinDocumentProperties - Excel VBA. Datum vytvoření, poslední změny, titulek, autor.

Úvodem

Potřebujete-li získávat informace o souboru (sešitu). Můžete využít metodu BuiltinDocumentProperties. V tomto článku se zaměřím na použití této metody. Možnosti zjišťování přes FSO atd. si nechám do jiných článků. Co se v článku dozvíte.


Základní použití

Potřebuji zjistit čas posledního uložení aktivního sešitu (za předpokladu, že již byl sešit uložen). Vypíše se do MsgBoxu (dialogového okna):

MsgBox (ActiveWorkbook.BuiltinDocumentProperties("Last Save Time"))

nebo se podívm na autora a vypíši využitím Debud Print:

Debug.Print ActiveWorkbook.BuiltinDocumentProperties("Author")

nebo využitím čísla (1 - 34)

MsgBox (ActiveWorkbook.BuiltinDocumentProperties(3))

Zjištění vlastnosti z externího sešitu

Zjistí Poslední uložení ze souboru Demodata02.xlsx v adresáři (složce) D:\smaz\. Samozřejmě předpokládám, že složka i soubor existují.

Dim Wb As Workbook Set Wb = Workbooks.Open("D:\smaz\Demodata02.xlsx") MsgBox Wb.BuiltinDocumentProperties("Last save time") Wb.Close

Seznam všeho, co můžete zjistit

Může vás napadnout otázka, co vše může metoda zjistit za informace o souboru (sešitu)? Stačí si vše vypsat:

For Each NameOfProperty In ActiveWorkbook.BuiltinDocumentProperties Debug.Print NameOfProperty.Name Next NameOfProperty

Výsledek pokud nechcete zjišťovat sami. Vše 34 vlastností a informací o souboru (sešitu).

  • Title - 1
  • Subject - 1
  • Author
  • Keywords
  • Comments
  • Template
  • Last author
  • Revision number
  • Application name
  • Last print date
  • Creation date
  • Last save time
  • Total editing time
  • Number of pages
  • Number of words
  • Number of characters
  • Security
  • Category
  • Format
  • Manager
  • Company
  • Number of bytes
  • Number of lines
  • Number of paragraphs
  • Number of slides
  • Number of notes
  • Number of hidden Slides
  • Number of multimedia clips
  • Hyperlink base
  • Number of characters (with spaces)
  • Content type
  • Content status
  • Language
  • Document version

Případně zjišťovanou vlastnost a její hodnotu (za předpokladu, že všechny informace jsou k dispozici), pokud ne musíte ošetřit, co je popsáno v následující kapitole:

For Each NameOfProperty In ActiveWorkbook.BuiltinDocumentProperties Debug.Print NameOfProperty.Name & " " & ActiveWorkbook.BuiltinDocumentProperties(NameOfProperty.Name) Next NameOfProperty

V praxi si nebudete vypisovat vše, ale jde o ukázku.

Ošetření chyb

Ošetření chyb, je vhodné pokud testujete soubor a některé vlastnost není vyplněná.

On Error Resume Next For Each fNameOfProperty In ActiveWorkbook.BuiltinDocumentProperties Debug.Print NameOfProperty.Name & " " & ActiveWorkbook.BuiltinDocumentProperties(NameOfProperty) If Err.Number <> 0 Then Debug.Print NameOfProperty & " nevyplněno" End If Next fileProperty On Error GoTo 0

Opět si vypisuje přes Debug.Print, ale klidně si vlastnosti vypište do buňky, nebo do MsgBoxu (dialogového okna).

Tipy

Zde si odkládám pár tipů.

Pozor na Volatile:

Application.Volatile

Jak zjistit vlasstnoti využitím FSO FileSystemObject

Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(ThisWorkbook.FullName) s = UCase(ThisWorkbook.FullName) & vbCrLf s = s & "Created: " & f.DateCreated & vbCrLf s = s & "Poslední přístup: " & f.DateLastAccessed & vbCrLf s = s & "Podlení změny: " & f.DateLastModified MsgBox s, 0, "Info o souboru"

Související články

Další související informace:


Microsoft Excel VBA - stahuj logo

Ke stažení

Soubor ke stažení zdarma v přípravě. Soubor využívá makra.


Závěrem

Narazili jste na nějaké problémy, máte tip, můžete se zmínit v komentářích.

Článek byl aktualizován: 06.07.2019 13:44

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Reklama


TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2019 | 197

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.