VBA新手求助：提取工作表名称中日期并计算周数至H1单元格

Hey there! 作为VBA新手，这个需求其实很好实现，我给你一步步拆解，附上易懂的代码和说明，保证你能快速上手~

1. 拆解工作表名称，提取日期字符串 #

你的工作表名称是用短横线-分隔的，我们可以用VBA的Split函数把名称拆成数组，直接取出中间的20180507。看你的表名结构：BO-D58C2_-20180507-13260132，拆分后数组的第3个元素（下标从0开始算的话是arr(2)）就是我们要的日期文本。

2. 把文本转成真正的日期格式 #

提取到的20180507是纯文本，得转成VBA能识别的日期类型，才能计算周数。我们可以拆分年、月、日，再用CDate函数转换。

3. 计算周数并写入H1 #

用VBA的DatePart函数就能直接算出指定日期的周数，最后把结果写入H1单元格就行。

完整可运行的VBA代码 #

Sub GetWeekNumberFromSheetName()
    ' 声明需要用到的变量
    Dim sheetName As String
    Dim splitArr As Variant
    Dim dateStr As String
    Dim targetDate As Date
    Dim weekNum As Integer
    
    ' 获取当前活动工作表的名称
    sheetName = ActiveSheet.Name
    
    ' 用短横线作为分隔符，把工作表名称拆分成数组
    splitArr = Split(sheetName, "-")
    
    ' 从数组中提取日期字符串（对应第3段内容）
    dateStr = splitArr(2)
    
    ' 将8位的日期字符串转换成VBA可识别的日期格式
    targetDate = CDate(Mid(dateStr, 5, 2) & "/" & Right(dateStr, 2) & "/" & Left(dateStr, 4))
    
    ' 计算周数：这里指定vbMonday表示周一为一周的第一天，习惯周日开头的话改成vbSunday即可
    weekNum = DatePart("ww", targetDate, vbMonday)
    
    ' 把周数写入H1单元格，如果你只想显示数字，就删掉前面的"周数："
    Range("H1").Value = "周数：" & weekNum
End Sub

操作步骤（新手友好版） #

• 打开你的Excel文件，按下Alt + F11打开VBA编辑器
• 在左侧的「项目资源管理器」里找到你的工作表，右键点击它，选择「插入」→「模块」
• 把上面的代码粘贴到弹出的模块窗口里
• 按下F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」，选择GetWeekNumberFromSheetName这个宏运行

额外小贴士（避免踩坑） #

• 如果你的工作表名称格式变了（比如分隔符不是短横线，或者日期位置挪了），记得调整splitArr(2)里的下标数字
• 担心日期格式出错？可以加个错误处理，防止宏崩溃：

  On Error Resume Next
  targetDate = CDate(Mid(dateStr, 5, 2) & "/" & Right(dateStr, 2) & "/" & Left(dateStr, 4))
  If Err.Number <> 0 Then
      MsgBox "哎呀，从工作表名称里提取不到有效日期哦！"
      Exit Sub
  End If
  On Error GoTo 0
  

内容的提问来源于stack exchange，提问作者Jthomson