VBA 活动表

【问题标题】：VBA ActivesheetVBA 活动表
【发布时间】：2015-11-25 10:18:58
【问题描述】：

我正在尝试进行每月评估。我想读取工作表名称，然后将其转换为日期。各个工作表的名称为一月、二月等。当我想发出 0116、0216、0316 并获得此保存时。

tabellenblatt = ActiveSheet.Name

【问题讨论】：

我没有完全理解您的问题。你想拿一个月，例如一月从工作表名称更改为 0116 (month.year)？

标签： vba excel date

【解决方案1】：

看起来您的问题是您不知道如何将月份名称转换为数字（但作为字符串）。这是一个解决方案（待完成 - 我不会做你所有的工作:)

Function getMonth(mname As String) As String
'returns month number as string, from month name. Eg: returns "02" for "Feb"
    Dim a()
    Dim i As Integer
    a = Array("jan", "feb", "mar", "apr", "...")
    i = Application.Match(mname, a, False)
    getMonth = Format$(i, "00")
End Function

【讨论】：