Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


34119 / 76732 ←次へ | 前へ→

【47827】Re:ファイルプロパティの取得
発言  ウッシ  - 07/3/23(金) 10:27 -

引用なし
パスワード
   こんにちは

ActiveWorkbookのプロパティでいいのでしょうか?

Sub test1()
  Dim mDp As DocumentProperty
  Dim i  As Long
  
  For Each mDp In ActiveWorkbook.CustomDocumentProperties
    i = i + 1
    With Cells(i, 1)
      .Value = mDp.Name
      On Error Resume Next
        .Offset(, 1).Value = mDp.Value
        If Err Then .Offset(, 1).Value = "設定なし"
      On Error GoTo 0
    End With
  Next
End Sub

1 hits

【47826】ファイルプロパティの取得 kanae 07/3/23(金) 9:55 質問
【47827】Re:ファイルプロパティの取得 ウッシ 07/3/23(金) 10:27 発言
【47829】Re:ファイルプロパティの取得 kanae 07/3/23(金) 10:32 質問
【47831】Re:ファイルプロパティの取得 ウッシ 07/3/23(金) 11:48 発言
【47832】Re:ファイルプロパティの取得 りん 07/3/23(金) 12:39 発言
【47833】Re:ファイルプロパティの取得 Kein 07/3/23(金) 12:54 回答
【47835】Re:ファイルプロパティの取得 kanae 07/3/23(金) 14:11 お礼

34119 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free