開いているbookの情報の取得



The following two tabs change content below.
アバター

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

開いているbookの情報の取得

こんばんはtakaです、今回は【開いているbookの情報を取得する】方法についてご紹介します。

複数の情報を取得できるようにしてみましたので何かの役に立つとうれしいです(^^♪

今回取得できる情報

今回のコードで取得できるデータは以下の通りです。

  1. パスを含むファイル名
  2. パス
  3. ブック名
  4. ファイルサイズ(B)
  5. ファイルサイズ(KB)

の5つの項目を取得します。ファイルサイズの取得について最後の(KB)は四捨五入で出しているだけなので【おおよそ】と追加させていただいております(笑)

ファイルの情報を取得するコード

今回はあくまで開いている(アクティブな)Bookの情報を取得することを前提にしております。ですので開いていないBookの情報やアクティブでは無いBookの情報は取得できません。(今度またUPします)

※仕様結果は下記のようになります(パスは非公開させていただきました(笑))

Sub Sample()
  Dim file As String
    '----パスを含むファイル名---------
    file = ActiveWorkbook.FullName
    Range("B2") = "パスを含むファイル名"
    Range("C2") = file
    '---------パス---------
    file = ActiveWorkbook.Path
    Range("B3") = "パス"
    Range("C3") = file
    '---------ブック名---------
    file = ActiveWorkbook.Name
    Range("B4") = "ブック名"
    Range("C4") = file
     '---------ファイルサイズ---------
     'ファイルサイズはLOF関数を使用
    Open ActiveWorkbook.Path & "\" & ActiveWorkbook.Name For Input As #1
    
     Range("B5") = "ファイルサイズ(B)"
     Range("C5") = LOF(1) & "バイト"
     Range("B6") = "ファイルサイズ(KB)"
     Range("C6") = Format(LOF(1) / 1000, "おおよそ0.0KB")
     
    Close #1

End Sub

 

ダウンロード

当サイトの免責事項をお読みになってからお使いください。

フォロー・チャンネル登録お願いします

VBA以外についてのブログはこちら↓

https://yb-log.com/

■Twitterフォロー

■YouTubeチャンネル登録

ファイルやコードの利用、WEBサイトの利用について

サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。

Sponsored Link

 

WordPressでブログを始めるなら

WordPress簡単インストール&安心の安定性

レンタルサーバー Xserver

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です