標題: [發問] 自訂函數回傳原始碼字串,不知錯誤在哪(有程式碼) [打印本頁]

---

作者: alancc1228    時間: 2016-5-8 10:49     標題: 自訂函數回傳原始碼字串,不知錯誤在哪(有程式碼)

請教各位大大,自己從網站找到範例,修改了一個自訂函數,看起來是有運作,但似乎字串的部份有誤,請高手指教錯誤在哪?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

---

作者: alancc1228    時間: 2016-5-8 16:29

因為原始檔案沒有一筆查得到電話,所已重新上傳附件,第一筆公司是有電話的.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)