将工作表名称的一部分提取到单元格答案

【问题标题】：Extract part of sheet name to cell将工作表名称的一部分提取到单元格
【发布时间】：2018-05-07 13:26:09
【问题描述】：

我的工作表名称的一部分是日期（短划线之间的部分），我想创建一个宏，使用工作表名称在工作表的单元格 H1 中为我提供周数。

工作表名称：BO-D58C2_-20180507-13260132

我想在 weeknum 中提取到单元格 H1：20180507

您对 VBA 新手有什么建议吗？

【问题讨论】：

【解决方案1】：

使用下面的函数获取星期几

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

【讨论】：

【解决方案2】：

Range("H1").Value = ActiveSheet.Name

将为您获取工作表名称并将其放入单元格中。从那里，您可以任意数量的 RegEx 和 String 替换以仅提取连字符之间的代码，然后从那里将其转换为周数。

【讨论】：