replace。 在雅虎金融提取的货币数量

我正在使用excel 2010 。 我有以下vba函数，它从雅虎财务检索我货币。 但是，我的问题是，我正在使用德语版本的Excel和. 在这个版本中, 。

因此，转换后的货币如下所示：

那是我正在使用的function：

 Function MYCURRENCYEXCHANGER(SourceCur As String, DestCur As String) As Variant Dim url As String ' http://quote.yahoo.com/d/quotes.csv?s=XXXYYY=X&f=l1 this is the link format where XXX is currency1 and YYY is currency2 ' url = "http://quote.yahoo.com/d/quotes.csv?s=" & SourceCur & DestCur & "=X&f=l1" Dim myHTTP As New WinHttp.WinHttpRequest myHTTP.Open "GET", url, False myHTTP.send "" If myHTTP.StatusText <> "OK" Then GoTo ServerErrorHandler If Not (WorksheetFunction.IsNumber(myHTTP.responseText)) Then MYCURRENCYEXCHANGER = 0 MYCURRENCYEXCHANGER = CDbl(myHTTP.responseText) Exit Function ServerErrorHandler: MsgBox "Error. Could not convert currency" End Function 

任何build议如何正确地转换货币，以便于. 从雅虎财务提取时被取代？

我apprecaite您的答复！

Answer 1

您可以使用“replace”function来实现这一点很简单。

 Function MYCURRENCYEXCHANGER(SourceCur As String, DestCur As String) As Variant Dim url As String ' http://quote.yahoo.com/d/quotes.csv?s=XXXYYY=X&f=l1 this is the link format where XXX is currency1 and YYY is currency2 ' url = "http://quote.yahoo.com/d/quotes.csv?s=" & SourceCur & DestCur & "=X&f=l1" Dim myHTTP As New WinHttp.WinHttpRequest myHTTP.Open "GET", url, False myHTTP.send "" If myHTTP.StatusText <> "OK" Then GoTo ServerErrorHandler Replace(myHTTP.StatusText, ".", ",") If Not (WorksheetFunction.IsNumber(myHTTP.responseText)) Then MYCURRENCYEXCHANGER = 0 MYCURRENCYEXCHANGER = CDbl(myHTTP.responseText) Exit Function ServerErrorHandler: MsgBox "Error. Could not convert currency" End Function 

Replace（string，searchtext，replacetext）函数将通过replacestring中的textreplacesearch文本的所有匹配项。

我没有testing过，但我相当确信这应该做的伎俩。