Excel VBA テクニック集
ファイル・プロパティの取得





Excel VBA テクニック集



ファイル・プロパティの取得方法です。日時項目・ファイルサイズ以外は、設定も可能です。

使い方は、ファイル一覧を使った応用の、「マクロ専用ファイル」によるマクロ実行に、下記コードを入れます。

なお、下記では「Debug.Print」を使いましたが、別の印字方法でもいいと思います。 
    Dim Size_Frm As Long

    Debug.Print "タイトル＝" & Excel_App.ActiveWorkbook.BuiltinDocumentProperties("Title").Value
    Debug.Print "サブタイトル＝" & Excel_App.ActiveWorkbook.BuiltinDocumentProperties("Subject").Value
    Debug.Print "作成者＝" & Excel_App.ActiveWorkbook.BuiltinDocumentProperties("Author").Value
    Debug.Print "管理者＝" & Excel_App.ActiveWorkbook.BuiltinDocumentProperties("Manager").Value
    Debug.Print "会社＝" & Excel_App.ActiveWorkbook.BuiltinDocumentProperties("Company").Value
    Debug.Print "作成日時＝" & Excel_App.ActiveWorkbook.BuiltinDocumentProperties("Creation date").Value
    Debug.Print "更新日時＝" & Excel_App.ActiveWorkbook.BuiltinDocumentProperties("Last save time").Value
    Debug.Print "最終更新者＝" & Excel_App.ActiveWorkbook.BuiltinDocumentProperties("Last author").Value
    Debug.Print "ファイルフォーマット・コード＝" & Excel_App.ActiveWorkbook.FileFormat
    Size_Frm = FileLen(ディレクトリ & ブック名)
    Debug.Print "ファイルサイズ＝" & Format(Size_Frm, "###,###,###,##0") & " Byte"

ファイルフォーマット一覧
コードファイルフォーマット拡張子
xlAddInMicrosoft Excel 97-2003 アドイン
xlAddIn8Microsoft Excel 97-2003 アドイン
xlCSVCSV(カンマ区切り)Csv
xlCSVMacMacintosh CSVCsv
xlCSVMSDOSMSDOS CSVCsv
xlCSVWindowsWindows CSVCsv
xlCurrentPlatformText現在のプラットフォームのテキスト
xlDBF2DBF2
xlDBF3DBF3
xlDBF4DBF4
xlDIFDif,DIF
xlExcel12Excel12 バイナリーブックXlsb
xlExcel2Excel2
xlExcel2FarEastExcel2 FarEast
xlExcel3Excel3
xlExcel4Excel4
xlExcel4WorkbookExcel4 ブック
xlExcel5Excel5 Excel95で作られたファイルXls
xlExcel7Excel7 Excel97で作られたファイルXls
xlExcel8Excel8 Exce97-2003ブック(Excel2007以降) Xls
xlExcel9795Excel9795 Excel97-2000及び5.0/95 ワークブック
xlHtmlHTML 形式Htm
xlHtmlHTML 形式Html
xlIntlAddInInternational Add-In
xlIntlMacroInternational Macro
xlOpenDocumentSpreadsheetOpenDocument スプレッドシート
xlOpenXMLAddInXML アドイン
xlOpenXMLStrictWorkbookXML ファイル
xlOpenXMLTemplateXML テンプレートXltx
xlOpenXMLTemplateMacroEnabledマクロを有効にした XML テンプレートXltm
xlOpenXMLWorkbookXML ブック Xlsx
xlOpenXMLWorkbookMacroEnabledマクロを有効にした XML ブックXlsm
xlSYLKSYLK シンボリックリンク形式Slk
xlTemplateテンプレート
xlTemplate8Excel97-2003 テンプレート 8Xlt
xlTextテキスト(タブ区切り)Txt
xlTextMacMacintosh テキストTxt
xlTextMSDOSMSDOS テキストTxt
xlTextPrinterプリンター テキストPrn
xlTextWindowsWindows テキストTxt
xlUnicodeTextUnicode テキストTxt
xlWebArchiveWeb アーカイブMht
xlWebArchiveWeb アーカイブMhtml
xlWJ2WD1WJ2WD1
xlWJ3WJ3
xlWJ3FJ3WJ3FJ3
xlWK1WK1
xlWK1ALLWK1ALL
xlWK1FMTWK1FMT
xlWK3WK3
xlWK3FM3WK3FM3
xlWK4WK4
xlWKSワークシート
xlWorkbookDefaultブックの既定
xlWorkbookNormalブックの標準
xlWorks2FarEastWorks2 FarEast
xlWQ1WQ1
xlXMLSpreadsheetXML スプレッドシートXml

「こだわりハウス」写真館| 数学公式集| ピンポイントストリートビュー| ＦａｃｅＢｏｏｋ| Excel Vba テクニック集| Excel 計算式解析・他解析| 富山の建築家| Excel 計算式解析・他解析| 積分の定義・積分の記号の意味の研究|