返回列表 上一主題 發帖

[發問] 請問如何把超連結變成VBA指令

samtien

帖子
6 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
Win7 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2010-8-6 
最後登錄
2010-8-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-8-6 20:54 | 顯示全部帖子

[發問] 請問如何把超連結變成VBA指令

網路簡訊有提供API的使用方式
A1 = http://www.smsgo.com.tw/sms_gw/sendsms.asp?username=帳號&password=密碼&dstaddr=手機號碼,"&encoding=BIG5,&smbody=簡訊內容
我就用excel把我要傳的簡訊資料做成以上這行文字
B2 = =HYPERLINK(A1,"簡訊")

這樣我就完成了一個超連結，只要滑鼠點一下就會把我要發的簡訊發出去
可是當有很多連結的時候一直用滑鼠點很麻煩

請問各位先進，如何用VBA的語法達到送出http的指令，如果有10通簡訊要發我就寫一個迴圈一次發完
收藏 分享

samtien

帖子
6 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
Win7 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2010-8-6 
最後登錄
2010-8-19 
2#
發表於 2010-8-8 21:14 | 顯示全部帖子
kimbal 發表於 2010-8-6 22:27



感謝K大的回答
想請問URL裡面的內容可以用cell.value去代入嗎?
是直接打進去就好還是要怎麼設?

TOP

samtien

帖子
6 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
Win7 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2010-8-6 
最後登錄
2010-8-19 
3#
發表於 2010-8-9 14:20 | 顯示全部帖子
Sub SMSGO()

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = "http://www.smsgo.com.tw/sms_gw/sendsms.asp?username=*****&password=*****&dstaddr=" & Cell(S5).Value & "&encoding=BIG5&smbody=" & Cell(U5).Value
    objHTTP.Open "POST", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send ("")

End Sub

我把您的寫法寫到模組裡面
可是F5測試的時候他寫"編譯錯誤" "沒有定義這個Sub或Function"
我有哪裡寫錯嗎?

TOP

samtien

帖子
6 
主題
3 
精華
0 
積分
14 
點名
0  
作業系統
Win7 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2010-8-6 
最後登錄
2010-8-19 
4#
發表於 2010-8-9 14:29 | 顯示全部帖子
搞定了~會發出簡訊了
我再波一次我的程式碼

Sub smsgo()

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    Dim URL As String
    URL = Range("V5").Value
    objHTTP.Open "POST", URL, False
    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send ("")

End Sub

我用Excel的函式把http後面整串整理在V5這個欄位
可是送出後到我的手機一看所有的中文字都變成亂碼了，請問這是甚麼原因?

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題