シート名の一部をcell-excel、vba、excel-vba、extract、week-numberに抽出する

私のシート名の一部は日付（ダッシュの間の部分）で、シート名を使用してシートのセルH1の週の番号を指定するマクロを作成します。

シート名： BO-D58C2_-20180507-13260132

週H1にセルH1に抽出したいと思います。 20180507

VBAの初心者に何かアドバイスはありますか？

回答：

平日を取得するには、以下の関数を使用してください。

Function dydate() As String
sname = ActiveSheet.Name
dydate = Mid(sname, InStr(sname, "_-") + 2, 8)
End Function

範囲（ "H1"）値= ActiveSheet.Name

シート名を取得してセルに入れますあなたのために。そこから、任意の数のRegExとStringを置き換えてハイフンの間のコードのみを抽出し、そこからWeek番号に変換できます。