No.2ベストアンサー
- 回答日時:
(1)エクセルVBA
(2)FSO
(3)API
でのやり方のうち(1)では
Sub test01()
For i = 1 To 9
x = ActiveWorkbook.BuiltinDocumentProperties(i).Value
Cells(i, 1) = x
Next i
End Sub
を見つけました。
http://www1.harenet.ne.jp/cgi-bin/cgiwrap/unaap/ …
そこに他に関連したことが多少書いてあるので見てください。
BuiltinDocumentPropertiesについては
http://www2.moug.net/cgi-bin/technic.cgi?exvba+T …
ほかこの語でWEB照会してください。
この語に行き当たるまでに苦労しました。
--------以下蛇足
(1)(2)は通常は、「作成日時とは違います」の作成日時のことを言及したものばかりでした。
Sub rest01()
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetDrive("c:\")
Set fldr = fso.GetFolder("c:\My Documents\")
MsgBox "フォルダ名: " & fldr.Name
MsgBox fldr.Attributes
MsgBox fldr.datecreated
MsgBox fldr.Parentfolder
Set fl = fso.Getfile("c:\My Documents\aaaXX.xls")
MsgBox "フォルダ名: " & fl.Name
MsgBox fl.Attributes
MsgBox fl.datecreated
MsgBox fl.Parentfolder
End Sub
や
Option Explicit
' ファイルの属性の取得
Sub GET_ATTRIBUTE()
Const cnsTITLE = "ファイルの属性の取得"
Const cnsATTR = "このファイルの属性は"
Dim xlAPP As Application
Dim strFILENAME As String
Dim intAttr As Integer
Dim strMSG As String
Set xlAPP = Application
' ファイル名の指定
strFILENAME = _
xlAPP.GetOpenFilename("全てのファイル (*.*),*.*", , _
cnsTITLE)
If StrConv(strFILENAME, vbUpperCase) = "FALSE" Then
Exit Sub
End If
' ファイル属性の取得
intAttr = GetAttr(strFILENAME)
' ファイル属性の判定
strMSG = cnsATTR
If (intAttr And vbReadOnly) <> 0 Then
strMSG = strMSG & vbCr & "読み取り専用"
End If
If (intAttr And vbHidden) <> 0 Then
strMSG = strMSG & vbCr & "隠しファイル"
End If
If (intAttr And vbSystem) <> 0 Then
strMSG = strMSG & vbCr & "システムファイル"
End If
If (intAttr And vbDirectory) <> 0 Then
strMSG = strMSG & vbCr & "フォルダ"
End If
If (intAttr And vbArchive) <> 0 Then
strMSG = strMSG & vbCr & "アーカイブ"
End If
If (intAttr And vbNormal) <> 0 Then
strMSG = strMSG & vbCr & "通常ファイル"
End If
If strMSG = cnsATTR Then
strMSG = strMSG & vbCr & "属性=" & intAttr
End If
strMSG = strMSG & vbCr & "です。"
' 更新日時
strMSG = strMSG & vbCr & "更新日時は" & _
FileDateTime(strFILENAME)
' ファイルサイズ
strMSG = strMSG & vbCr & "サイズは" & _
FileLen(strFILENAME) & "バイトです。"
' 処理結果を表示
MsgBox strMSG
End Sub
のような属性を問題にしている。(以上WEBページより引用)
仰っている「ファイルプロパティの[概要]タブに詳細なプロパティ」はエクセル・ワードの場合のファイルの特別情報か?
良く判らぬ者が書いているので、あとは宜しく。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Windows 10 Windows10のメタデータの「メディアの作成日時」は、タイムゾーンによって表示が変わりますか? 3 2022/06/21 02:30
- iPhone(アイフォーン) iphoneで撮影した写真、動画を連番のファイル名で保存したい。 1 2022/04/28 02:12
- Photoshop(フォトショップ) アプリ「フォト」と編集したファイルの紐づけを切り離したい。 1 2023/08/01 16:42
- 防犯カメラ・監視カメラ・小型カメラ Windowsのカメラ機能。設定した通りのfpsでの撮影ができず、コマ落ち動画になる。修正するには? 2 2023/01/29 09:50
- デジタルカメラ ファイルに入れた写真データを取り出せなくなりました 3 2022/09/28 00:12
- Excel(エクセル) CSVファイルでVBAを動かす方法 3 2023/04/04 10:22
- Photoshop(フォトショップ) 写真に日付を入れるのがそんなに大変か 9 2023/07/22 14:38
- コスプレ 何のコスプレか知らないのに写真を撮らせて欲しいというカメコって何考えてるの? 2 2022/10/10 16:37
- その他(映画) 昔の映画の3Dリメイク版。どうやって作るのか? 4 2023/02/16 10:17
- Excel(エクセル) 1つのファイルを3つのフォルダにファイル名を【明日の日付】にして、コピーをしたい 2 2022/12/21 17:43
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ACCESS VBA】アクセスからデ...
-
複数のワークブックのVBAを変更...
-
VBAでフォルダ内のhtmlファイル...
-
ffftpでファイル取得が0バイト...
-
エクセルのVBAで開いている...
-
VBからExcelファイルを開くとき...
-
仕事で使用するマクロのコード...
-
vbaサブフォルダーをワイルドカ...
-
WSHでテキストファイルを修正し...
-
ファイル番号の取得について
-
遅延バインディングの回避方法
-
excel マクロ PDF化の際のエラ...
-
FTP対応のアプリケーション
-
「エクセルファイルが開いてい...
-
タイムスタンプの更新の方法2
-
Long型で表現できないファイル...
-
「AccessViolationException」...
-
VB.Netソリューションでフォー...
-
vbsでのアスタリスクとファイル...
-
EXCEL VBA tif画像のプロパティ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
動かなくなってしまった古いVBA...
-
FileDialog オブジェクトでファ...
-
VBA ファイル名取得
-
VBAでフォルダ内のhtmlファイル...
-
excel マクロ PDF化の際のエラ...
-
vbsでのアスタリスクとファイル...
-
「エクセルファイルが開いてい...
-
ffftpでファイル取得が0バイト...
-
vbaサブフォルダーをワイルドカ...
-
ExcelVBA 文字コード変換
-
Accessのウインドウサイズの固定
-
サブフォルダ含むフォルダ内の...
-
VBからExcelファイルを開くとき...
-
VB6でUTF-8ファイルの読取りを
-
【VBAマクロ初心者】Excel VBA...
-
「AccessViolationException」...
-
エクセルのVBAで開いている...
-
Wordのプロパティ・総ページ数...
-
更新日が指定日以降のファイル取得
-
コモンダイアログでフォルダを...
おすすめ情報