如何在 VBA 中获得几个月的德语？

Question

我需要我的代码来创建一个以德国月份命名的文件夹：不是 05 March 而是 05 Mä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

所以也许这里有一些国家代码？MonthName(Month(Date) 请帮帮我!!! :)

Answer 1

如果您的语言环境设置为德语，我想Format(Date, "mmmm")应该做一些事情（对我有用）。否则，如果您只需要创建德语命名的文件夹，您可以结合使用语言代码 (LCID) WorksheetFunction.Text()：

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

返回德语月份[$-407]名称的语言代码在哪里！