- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- 7
- 閱讀權限
- 10
- 註冊時間
- 2016-5-6
- 最後登錄
- 2016-5-21
|
[發問] 自訂函數回傳原始碼字串,不知錯誤在哪(有程式碼)
請教各位大大,自己從網站找到範例,修改了一個自訂函數,看起來是有運作,但似乎字串的部份有誤,請高手指教錯誤在哪?3Q
Option Explicit
Function pno(Word As String) As String
Dim Url As String, Ar
Url = "http://yp.kocpc.com.tw/search/" & Word
If Word = "" Then pno = "??": Exit Function
With CreateObject("Microsoft.XMLHTTP")
.Open "get", Url, False
.send
Ar = Split(Split((.responseText), "電話:"), "'(")
pno = Ar(UBound(Ar))
End With
End Function |
|
發表於 2016-5-8 10:49
| 
