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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
vbs ブック共有を解除
-
ファイルを開く時間測定のスク...
-
Wordのプロパティ・総ページ数...
-
サブフォルダ含むフォルダ内の...
-
動かなくなってしまった古いVBA...
-
VBAでフォルダ内のhtmlファイル...
-
複数のワークブックのVBAを変更...
-
VBA、ファイル名検索から開く、...
-
EXCEL VBA tif画像のプロパティ...
-
vbaサブフォルダーをワイルドカ...
-
ffftpでファイル取得が0バイト...
-
EXCEL VBAを使ったファイル解析...
-
VBAでCSVファイルを読み込もう...
-
FileDialog オブジェクトでファ...
-
Excelファイルが存在するPC名が...
-
c# で作成したアプリをある拡張...
-
VBA:ファイルプロパティの一部...
-
エクセルのVBAで開いている...
-
VB.net XMLの作成方法 Iniの代替
-
VB6でUTF-8ファイルの読取りを
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォルダ含むフォルダ内の...
-
vbaサブフォルダーをワイルドカ...
-
FileDialog オブジェクトでファ...
-
動かなくなってしまった古いVBA...
-
ffftpでファイル取得が0バイト...
-
excel マクロ PDF化の際のエラ...
-
「エクセルファイルが開いてい...
-
VBAでCSVファイルを読み込もう...
-
VBからExcelファイルを開くとき...
-
vbsでのアスタリスクとファイル...
-
VBAでフォルダ内のhtmlファイル...
-
エクセルのVBAで開いている...
-
VB6でUTF-8ファイルの読取りを
-
EXCEL VBAを使ったファイル解析...
-
AccessからOLEオブジェクト型の...
-
タイムスタンプの更新の方法2
-
ExcelVBA 文字コード変換
-
ファイルを開く時間測定のスク...
-
VBAでのファイル名と更新日(作...
-
複数のワークブックのVBAを変更...
おすすめ情報