优化低效UDF：仅启动一次IE批量获取美元兑多币种汇率

嘿，我懂你现在的困扰——下拉公式时48次启动又关闭IE，不仅速度慢，还容易导致Excel卡顿甚至报错。咱们来改造一下这个ConvertUSD函数，让它只初始化一次IE浏览器，用同一个实例完成所有币种的汇率查询，效率直接提升一大截！

原代码的核心问题 #

原函数每次被调用时，都会新建一个InternetExplorer实例、导航到OANDA网站、查询汇率后立即关闭IE。批量调用（比如下拉48行）就会重复执行48次“启动-导航-关闭”的流程，这就是低效的根源。

改造思路 #

1. 把IE实例声明为模块级变量，这样所有函数调用都能复用同一个实例，不用每次新建。
2. 第一次调用函数时初始化IE并保持打开状态，后续调用直接复用这个实例导航查询。
3. 新增一个手动关闭IE的过程，避免查询完成后IE一直后台运行。

修改后的完整代码 #

首先，在VBA模块的最顶部（所有函数之外）声明模块级IE变量：

' 模块级变量：所有函数共享同一个IE实例
Private IE As InternetExplorer

然后是改造后的ConvertUSD函数：

Public Function ConvertUSD(ConvertWhat As String) As Double
    ' 需提前引用以下库：
    ' - Microsoft XML, v6.0
    ' - Microsoft Internet Controls
    ' - Microsoft HTML Object Library
    
    ' 第一次调用时初始化IE实例
    If IE Is Nothing Then
        Set IE = New InternetExplorer
        ' 可选：如果需要看查询过程，把下面一行注释去掉
        ' IE.Visible = True
    End If
    
    ' 导航到目标币种的汇率页面
    IE.Navigate "https://www.oanda.com/currency/converter?quote_currency=USD&base_currency=" & ConvertWhat
    
    ' 等待页面加载完成（加入超时判断，避免无限等待）
    Dim startTime As Double
    startTime = Timer
    Do
        DoEvents
        ' 超时10秒就退出循环，避免卡住
        If Timer - startTime > 10 Then
            ConvertUSD = 0 ' 超时返回0，可根据需求调整
            Exit Function
        End If
    Loop Until IE.ReadyState = ReadyState_Complete And IE.Busy = False
    
    ' 提取汇率数据
    Dim Doc As HTMLDocument
    Set Doc = IE.Document
    Dim Ans As String
    Ans = Trim(Doc.getElementsByTagName("tbody")(2).innerText)
    Dim AnsExtract As Variant
    AnsExtract = Split(Ans, " ")
    
    ' 赋值返回结果，防止数组越界报错
    If UBound(AnsExtract) >= 4 Then
        ConvertUSD = AnsExtract(4)
    Else
        ConvertUSD = 0 ' 提取失败返回0，可根据需求调整
    End If
End Function

最后，新增一个手动关闭IE的过程（所有查询完成后运行）：

Public Sub CloseIEInstance()
    If Not IE Is Nothing Then
        IE.Quit
        Set IE = Nothing ' 释放内存
        MsgBox "IE实例已关闭", vbInformation
    End If
End Sub

使用说明 #

1. 在Excel中输入公式=ConvertUSD(A1)（A1为币种代码），下拉填充时只会启动一次IE。
2. 所有汇率查询完成后，按下Alt+F8运行CloseIEInstance过程，关闭IE并释放内存。
3. 如果中途出现页面加载超时，函数会返回0，你可以根据需求修改超时时间或返回值。

注意事项 #

• 确保已经添加了代码注释中提到的三个引用（VBA编辑器→工具→引用）。
• 如果OANDA网站的页面结构发生变化，可能需要调整getElementsByTagName("tbody")(2)这个节点定位的代码。

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