VBA活动表

Question

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

tabellenblatt = ActiveSheet.Name

Answer 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