PR

変数の型「Workbook」のプロパティの使い方 Excel(エクセル)マクロ(VBA)

エクセルマクロ(VBA)

変数の型「Workbook」の使い方についてはこちらのブログで紹介しております。

変数の型「Workbook」の使い方 Excel(エクセル)マクロ(VBA)

ここでは「Workbook」のプロパティについてもう少し詳しく解説していきます。

Workbookのプロパティ

Workbookのプロパティとはそのブックの各種情報のことです。このプロパティを使うことで対象のブックの情報を調べたり、情報を入れたりすることができます。

代表的なよく使うプロパティを紹介します。

プロパティ名使い方
nameブックの名前
Pathブックの保存パス
FullNameブックの保存パス+ブックの名前
ReadOnlyこのブックが読み取り専用かどうか
Saved最後に編集した後保存してあるかどうか

具体的に使い方を見ていきます。

.name

Sub ワークブックの使い方()
    Dim tb As Workbook
    Set tb = ThisWorkbook
    MsgBox tb.name
End Sub

このコードを実行すると

と表示されました。

「Dim tb As Workbook」で「tb」がワークブックであると宣言し

「Set tb = ThisWorkbook」で「tb」にマクロを実行しているブックを格納しています。

「MsgBox tb.name」でメッセージボックスにワークブック「tb」のファイル名を表示させています。

.Path

.nameの部分を.Pathに変えてみます。

Sub ワークブックの使い方()
    Dim tb As Workbook
    Set tb = ThisWorkbook
    MsgBox tb.Path
End Sub

このコードを実行すると

と表示されました。

このブックが保存されているフォルダが表示されています。

.FullName

.nameの部分を.FullNameに変えてみます。

Sub ワークブックの使い方()
    Dim tb As Workbook
    Set tb = ThisWorkbook
    MsgBox tb.FullName
End Sub

このコードを実行すると

と表示されました。

このブックが保存されているフォルダ名からファイル名までが表示されています。

.ReadOnly

.nameの部分を.ReadOnlyに変えてみます。

Sub ワークブックの使い方()
    Dim tb As Workbook
    Set tb = ThisWorkbook
    MsgBox tb.ReadOnly
End Sub

このコードを実行すると

と表示されました。

このブックは読み取り専用ではないため「False」が返されました。

試しに読み取り専用に変更して実行してみると

読み取り専用になったので「True」が返されました。

.Saved

.nameの部分を.Savedに変えてみます。

Sub ワークブックの使い方()
    Dim tb As Workbook
    Set tb = ThisWorkbook
    MsgBox tb.Saved
End Sub

このコードを実行すると

と表示されました。

これは最後に編集した後保存してあることを意味しています。

今度はセルの内容を少し編集してもう一度実行してみると

と表示されました。

これは最後に編集した後にまだ保存をしてないことを意味しています。

このほかにもプロパティはたくさんありますが、とりあえずこの辺りを押さえておけば十分かと思います。

コメント

タイトルとURLをコピーしました