Sheet名を取得する【VBA】

環境

Windowsの仕様

エディション:Windows 10 Pro

バージョン:20H2

経緯

VBAのプログラムでファイル名を取得しようと思ったがうまくいかず、シート名がファイル名になっている

Excelファイルだったので、Sheet名を取得してみました。

やったこと

↓の感じでできました。

Dim sheetname As String

sheetname = Worksheets(1).Name 
sheetname = Left(sheetname, 2)

1行目は変数を宣言しています。

2行目はsheet1の名前を取得しています。「1」はsheetの左から1番目という意味です。なので、sheet3の名前を取得したい場合はここを「3」に変えるとよいです。

3行目は2行目で取得した名前を削る命令です。私の場合「左2文字だけ」取得したかったので、こんな感じになりました。LeftのほかにもMid(sheetname,4,2)とすれば、4文字目から2文字が取れるし、

また、Right(sheetname,3)とすれば、右から3文字目が取れますよ。

今後

できたはできたが、

本当はExcelファイルのプロパティの値から取得したかったので、その方法も勉強しようと思います。