如何在VBA中获得数月的德语培训?

我需要我的代码来创建一个以德语月份命名的文件夹:  不是3月5日 但是05März

Dim strMonth  As String
 strMonth =  Format(Date, "mm")
 ' Check for month folder and create if needed
If Len(Dir("C:\Users\Luca\Desktop\TestDaty\" & client & "\" & Year(Date) & "\" & strMonth & " " & MonthName(Month(Date), False), vbDirectory)) = 0 Then
    MkDir "C:\Users\Luca\Desktop\TestDaty\" & client & "\" & Year(Date) & "\" & strMonth & " " & MonthName(Month(Date), False)
End If

所以这里可能有一些国家代码? 月名(月(日期) 请帮我!!! :)

评论
  • 简单旳爱
    简单旳爱 回复

    怎么样呢?

    WorksheetFunction.Text(Date, "[$-407]mmmm")
    

    Where [$-407] indicates you want to return the german monthname!