ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨Ï¥Îexcel vba¤W¶Ç¹ÏÀɨìline

[µo°Ý] ¨Ï¥Îexcel vba¤W¶Ç¹ÏÀɨìline

Ãö©óline notifyÀ³¥Î, ½Ð°Ý­n«ç»ò§â¹ÏÀÉ°e¨ìlineªº¸s²Õ¸Ì­±¡H
¹ÏÀɸô®|¬OF:\test.png
§Ú°Ñ¦Òhttps://notify-bot.line.me/doc/en/ ©xºôªº»¡©ú,
¸Ì­±¦³´£¨ì­n¥Îimagefile, ¦ý¤´¤£ª¾¦p¦ó¤U¤â
½Ð¦U¦ì«e½ú«ü±Ð@@

ªþ¤W­ì©l½X
  1. Sub line_notify_¹Ï¤ù()   
  2.      '===================================
  3.     'Line°T®§
  4.     '===================================
  5.     Dim oXML As Object
  6.    
  7.     Dim Token As String
  8.    
  9.     Dim URL As String
  10.    
  11.     '«ü©wªºLine Notify Token
  12.    
  13.     Token = "§AªºTOKEN"
  14.    
  15.     'Line Notifyªº¶Ç°e°T®§ºô§}
  16.        
  17.         Line_Message = "str test"
  18.    
  19.     URL = "https://notify-api.line.me/api/notify"

  20.     Set oXML = CreateObject("Microsoft.XMLHTTP")
  21.    
  22.     With oXML
  23.    
  24.         '¨Ï¥Î¦P¨B¶Ç¿é
  25.    
  26.         .Open "POST", URL, 0
  27.    
  28.         '³]©w¶Ç°e«Ê¥]Header
  29.    
  30.         .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  31.    
  32.         .SetRequestHeader "Authorization", "Bearer " & Token
  33.    
  34.         '°õ¦æAjax¶Ç°e
  35.         .send "message=" & Chr(10) & Line_Message
  36.         Debug.Print oXML.responseText
  37.    
  38.     End With
  39.    
  40.     'ÄÀ©ñª«¥ó¸ê·½
  41.    
  42.     Set oXML = Nothing
  43. End Sub
½Æ»s¥N½X

¸ê®Æ¨Ó·½https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11237902231
  1. Sub Sample()
  2. Dim msg As String: msg = "Hello"
  3. Dim imgPath As String: imgPath = "C:\Users\hoge\Desktop\test.jpg"
  4. Shell "curl.exe" & _
  5. " -X POST https://notify-api.line.me/api/notify" & _
  6. " -H ""Authorization: Bearer 5Cx15az4Ka1Gl3idjF5kxYmHg13Ja1xOWsRPkzMaLPh""" & _
  7. " -F message=" & msg & _
  8. " -F imageFile=@" & imgPath, vbNormalFocus

  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# yws0915


    °ÝÃD¬O§Ú·Q±Nmsg="Hello"§ï¦¨¤¤¤å¡Amsg="§A¦n"´N¥X²{°ÝÃD¡A¥i¥HÀ°§Ú¸Ñ¨M°ÝÃD¶Ü?ÁÂÁÂ

Sub Sample()
Dim msg As String: msg = "§A¦n"
Dim imgPath As String: imgPath = "C:\Users\hoge\Desktop\test.jpg"
Shell "curl.exe" & _
" -X POST https://notify-api.line.me/api/notify" & _
" -H ""Authorization: Bearer 5Cx15az4Ka1Gl3idjF5kxYmHg13Ja1xOWsRPkzMaLPh""" & _
" -F message=" & msg & _
" -F imageFile=@" & imgPath, vbNormalFocus

End Sub
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 3# 7777


    " -F message=" & msg & _

§ï¦¨

" -F message=" & WorksheetFunction.EncodeURL(msg) & _

TOP

¦^´_ 4# singo1232001


    ·PÁÂ

­×§ï«á ¥X²{ ¹Ï1

§A¦n.jpg
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2023-2-11 07:36 ½s¿è

¦^´_ 5# 7777

http://white5168.blogspot.com/2017/01/line-notify-6-line-notify.html#.Y-bI8nZBxPY
§Ú¬d¤F¤@¤U


§Ú«Øij ¤À¬q¶Ç
¹Ï¤ù¥Îcurl ³o¬q ¦n¹³¥u¤ä´© ¤é Áú ­^

¶Ç§¹¹Ï¤ù
µ¥¤­¬í
¦A¥Î¥¿±`ªº¶Ç°T¤è¦¡¶Ç°T®§

¦ý¹Ï¤ùªº³¡¤À §ÚÁÙ¨S´ú¸Õ¦¨¥\
¬Ý¨ì­nserver¤~¯à¶Ç ¥Ø«e§Úªº¥\¤O¸ò°ò¦¤£°÷

¤£¹L ¬Ý¥L056 ³o¦æ ½T¹ê¥i¥H¥Î¤¤¤å¦r¶Ç°e    arr2 = Utf8BytesFromString("¤p¤Ñ¨Ï¹Ï¶Ç°e!!!LaLaLa~~~")
³Ì«á¤]¦³Åã¥Ü¤¤¤å

¦A°Ñ¦Ò¬Ý¬Ý

TOP

¦^´_ 5# 7777


§Ú¥Î§Aªºµ{¦¡½X´ú¤¤¤å¦r,¥¿±`¿é¥X
win10



TOP

¦^´_ 7# quickfixer


    ·PÁ¸ѻ¡~~

¤£À´!!
¸Õ¤F«Ü¦h¦¸¡AÁÙ¬O³£¤£¦¨¥\¡A
³o¸ò¹q¸£Àô¹Ò¦³®t¶Ü??
win10 ,2019 ª©¥»office  64¦ì¤¸ (À³¸ÓOK)
ÁÙ¬O»Ý­n¦w¸Ë¤°»ò ??
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 7# quickfixer


    ´ú¸Õªº¤T¥x¹q¸£¬Ò¤£¦æ¡A­^¤å³£OK
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 9# 7777

¸Õ¤Fwin7 office2016
Win10 office2019,³£¥¿±`,¥u装curl
¨ä¥¦³£¬O­è­«Äé¦n

´ú¸Õ¥Î¤â¾÷¬Oandroid¨t²Î

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD