在网上找了一个小的数据源，大的来源分析复杂'更新港币汇率        Cells(1,10)="0"'现值        strUrl="https://chl.cn/huilv/?hkd-2024"  '按年更新        xmlobject.Open"GET",strUrl,False        xmlobject.send