如何从网站导入当前价格到excel？
目前我在excel中使用这个来导入股票价格： 
这是来自雅虎财经，使用简单，我可以按CTRL-ALT-F9自动更新所有单元格，并以最新的价格填充单元格。
我将如何从其他网站导入一个不断变化的号码？ 我曾尝试使用诸如“数据>获取和转换数据>从Web”方法没有成功。
我正在尝试的是有一个Excel单元格显示当前价格http://preev.com/和更新到最新的价格，当我按CTRL-ALT-F9
这里是用VBA编写的UDF来返回当前的硬币现货价格。 正如所写的，它将更新与Ctrl-Alt-F9。 默认回报是spot价格。 它也将以合适的论据返回buy或sell 。
不要忘记设置代码中显示的引用。
在工作表上：
=CurrBitCoinPrice()
常规模块
Option Explicit 'Set Reference to: Microsoft WinHTTP services, Version 5.1 ' Microsoft VBScript Regular Expressions 5.5 Function CurrBitCoinPrice(Optional BSSp As Long = 3) as Currency '1: Buy '2: Sell '3: Spot Application.Volatile Dim httpRequest As WinHttpRequest Dim sResponse(2) As String Dim RE As Object, MC As Object Dim sType Const sInfo As String = "?currency=USD" Dim vRes As Variant Dim I As Long sType = Array("buy", "sell", "spot") Const sUrl As String = "https://api.coinbase.com/v2/prices/" For I = 0 To 2 Set httpRequest = New WinHttpRequest With httpRequest .Open "Get", sUrl & sType(I) & sInfo .Send .WaitForResponse sResponse(I) = .ResponseText End With Set httpRequest = Nothing Next I Set RE = New RegExp With RE .Pattern = "\d*\.?\d+" .Global = False End With ReDim vRes(0 To 1, 1 To 3) vRes(0, 1) = "Buy" vRes(0, 2) = "Sell" vRes(0, 3) = "Spot" For I = 0 To 2 If RE.Test(sResponse(I)) = True Then Set MC = RE.Execute(sResponse(I)) vRes(1, I + 1) = MC(0) End If Next I CurrBitCoinPrice = vRes(1, BSSp) End Function
我看到了这个解决scheme，看起来和你的问题一样：
Excel的转换，外部链接到值
如果你不喜欢这种方法，我会search这样一种不同的方式