Excel VBA中如何存储API返回的坐标元组？

你的问题核心是Double是单值数据类型，无法容纳包含两个数值的元组，以下是几种可行的存储方案：

方案1：使用Variant数组接收元组 #

Variant类型可以兼容外部API返回的元组结构，接收后可拆分为单独的坐标值：

Sub GetCoor()
    Dim coor As Variant
    Dim x As Double, y As Double
    
    ' 接收元组
    coor = ProgAPI.getcoordinate(map1, point1)
    
    ' 拆分出x、y坐标（注意索引可能是0或1，根据API返回结构调整）
    x = coor(0)
    y = coor(1)
    
    ' 后续使用x、y即可
    MsgBox "X坐标：" & x & vbCrLf & "Y坐标：" & y
End Sub

方案2：自定义Type类型存储 #

提前定义一个专门的坐标类型，直接匹配元组的结构（需确保API返回的元组与自定义Type的字段顺序、类型一致）：

' 先在模块顶部（所有Sub/Function之外）定义自定义类型
Type Coordinate
    X As Double
    Y As Double
End Type

Sub GetCoor()
    Dim coor As Coordinate
    
    ' 直接将元组赋值给自定义类型变量
    coor = ProgAPI.getcoordinate(map1, point1)
    
    ' 使用时直接调用字段
    MsgBox "X坐标：" & coor.X & vbCrLf & "Y坐标：" & coor.Y
End Sub

方案3：直接拆分到单独变量 #

如果API返回的元组支持索引访问，也可以跳过中间变量，直接将两个值分别存入Double变量：

Sub GetCoor()
    Dim x As Double, y As Double
    
    ' 直接提取元组的两个元素
    x = ProgAPI.getcoordinate(map1, point1)(0)
    y = ProgAPI.getcoordinate(map1, point1)(1)
    
    ' 后续使用x、y
End Sub

补充：如果API返回的是COM对象形式的元组，可能需要通过属性访问，比如：x = ProgAPI.getcoordinate(map1, point1).X

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