如何通过VBA将Excel日期导入PPT并强制使用英文格式（不受本地设置影响）

你的代码中Format函数依赖系统区域设置，因此葡萄牙语环境下会输出葡萄牙语月份（março 21）。以下是两种无需修改Windows全局区域设置的解决方案：

方法一：自定义英文月份数组（最稳妥，完全不受区域影响） #

直接定义固定的英文月份数组，根据日期的月份索引匹配对应名称，彻底规避系统区域限制：

Sub ExportToPPT()
    Dim ppt As Object
    Dim pptpres As Object
    Dim presentationDate As Date
    ' 定义12个英文月份的数组（索引从0开始）
    Dim englishMonths As Variant
    englishMonths = Array("January", "February", "March", "April", "May", "June", _
                         "July", "August", "September", "October", "November", "December")
    
    presentationDate = #3/21/2024#

    Set ppt = CreateObject("PowerPoint.Application")

    Root = "C:\PPT_REPORTS\"
    template = Root & "ppt_template.pptx"
    Set pptpres = ppt.Presentations.Open(Filename:=template)
    
    ' 拼接英文月份和日期
    pptpres.Slides(1).Shapes.Item(2).TextFrame.TextRange.Text = _
        englishMonths(Month(presentationDate) - 1) & " " & Day(presentationDate)
End Sub

说明：数组索引从0开始，因此用Month(presentationDate)-1匹配正确的月份，无论系统语言是什么，都能稳定输出英文月份。

方法二：临时切换VBA线程区域（修正SetThreadLocale用法） #

若坚持使用Format函数，可通过Windows API临时将当前VBA线程的区域切换为英文（美国英语LCID为1033），执行完格式转换后再恢复原区域：

' 声明Windows API函数（64位Office需加PtrSafe）
Declare PtrSafe Function SetThreadLocale Lib "kernel32" (ByVal Locale As Long) As Long
Declare PtrSafe Function GetThreadLocale Lib "kernel32" () As Long

Sub ExportToPPT()
    Dim ppt As Object
    Dim pptpres As Object
    Dim presentationDate As Date
    Dim originalLocale As Long
    Dim englishLocale As Long
    
    englishLocale = 1033 ' 美国英语的区域ID
    originalLocale = GetThreadLocale() ' 保存当前线程的原区域设置
    
    ' 切换线程区域为英文
    SetThreadLocale englishLocale
    
    presentationDate = #3/21/2024#

    Set ppt = CreateObject("PowerPoint.Application")

    Root = "C:\PPT_REPORTS\"
    template = Root & "ppt_template.pptx"
    Set pptpres = ppt.Presentations.Open(Filename:=template)
    
    pptpres.Slides(1).Shapes.Item(2).TextFrame.TextRange.Text = Format(presentationDate, "mmmm dd")
    
    ' 恢复原线程区域，避免影响后续代码
    SetThreadLocale originalLocale
End Sub

说明：之前使用SetThreadLocale无效，大概率是因为没有保存原区域或调用时机错误，此方法仅修改当前VBA线程的区域，不会改变Windows全局设置。

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