帖子: 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

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: Win7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-8-6
最後登錄: 2010-8-19

6^#

發表於 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

samtien

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: Win7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-8-6
最後登錄: 2010-8-19

5^#

發表於 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

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

4^#

發表於 2010-8-9 00:38 | 只看該作者

如下面頭4句
把帳號,密碼,手機號碼,簡訊內容分別輸入a1,a2,a3,a4

帳號 = [A1]
密碼 = [A2]
手機號碼=[A3]
簡訊內容=[A4]
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://www.smsgo.com.tw/sms_gw/sendsms.asp?username=" & 帳號 & _
"&password=" & 密碼 & "&dstaddr=" & 手機號碼 & "&encoding=BIG5&smbody=" & 簡訊內容
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ("")

複製代碼

看來你是vba新手~
這個網站可以學習一下如何用vba
http://yuan.yocjh.kh.edu.tw/%B1%D0%A7%F7/vba/index.htm

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

samtien

小學生 Rank: 1

帖子: 6
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: Win7
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-8-6
最後登錄: 2010-8-19

3^#

發表於 2010-8-8 21:14 | 只看該作者

kimbal 發表於 2010-8-6 22:27

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

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2010-8-6 22:27 | 只看該作者

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://www.smsgo.com.tw/sms_gw/sendsms.asp?username=" & 帳號 & _
"&password=" & 密碼 & "&dstaddr=" & 手機號碼 & "&encoding=BIG5&smbody=" & 簡訊內容
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ("")

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP