12
返回列表 上一主題 發帖

[發問] 使用excel vba上傳圖檔到line

s13983037

帖子
60 
主題
26 
精華
0 
積分
93 
點名
0  
作業系統
Windows 
軟體版本
Windows 7 
閱讀權限
20 
註冊時間
2014-9-8 
最後登錄
2020-4-15 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2020-4-15 21:55 | 只看該作者

[發問] 使用excel vba上傳圖檔到line

關於line notify應用, 請問要怎麼把圖檔送到line的群組裡面？
圖檔路徑是F:\test.png
我參考https://notify-bot.line.me/doc/en/ 官網的說明,
裡面有提到要用imagefile, 但仍不知如何下手
請各位前輩指教@@

附上原始碼
  1. Sub line_notify_圖片()   
  2.      '===================================
  3.     'Line訊息
  4.     '===================================
  5.     Dim oXML As Object
  6.    
  7.     Dim Token As String
  8.    
  9.     Dim URL As String
  10.    
  11.     '指定的Line Notify Token
  12.    
  13.     Token = "你的TOKEN"
  14.    
  15.     'Line Notify的傳送訊息網址
  16.        
  17.         Line_Message = "str test"
  18.    
  19.     URL = "https://notify-api.line.me/api/notify"

  21.     Set oXML = CreateObject("Microsoft.XMLHTTP")
  22.    
  23.     With oXML
  24.    
  25.         '使用同步傳輸
  26.    
  27.         .Open "POST", URL, 0
  28.    
  29.         '設定傳送封包Header
  30.    
  31.         .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  32.    
  33.         .SetRequestHeader "Authorization", "Bearer " & Token
  34.    
  35.         '執行Ajax傳送
  36.         .send "message=" & Chr(10) & Line_Message
  37.         Debug.Print oXML.responseText
  38.    
  39.     End With
  40.    
  41.     '釋放物件資源
  42.    
  43.     Set oXML = Nothing
  44. End Sub
複製代碼
收藏 分享

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-5-4 

論壇榮譽勳章論壇贊助勳章
20#
發表於 2023-2-15 22:19 | 只看該作者
本帖最後由 singo1232001 於 2023-2-15 22:21 編輯

回復 18# 7777


    我也覺得要跑兩次

要寫迴圈  代入圖片位置變數

而且 大量傳送 要記得放等待緩衝時間  不然傳太快 會被line notify 的API ban 30分鐘

我自己測試 是每傳一次 會設定等待5秒     可以用application.wait now+timevalue("00:00:05") 的方式

要是沒寫等待

測到沒反應 基本上就是直接猜 被ban了  只能等30分鐘

TOP

quickfixer

帖子
151 
主題
1 
精華
0 
積分
197 
點名
15  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-4-29 
19#
發表於 2023-2-15 21:58 | 只看該作者
回復 18# 7777


https://notify-bot.line.me/doc/en/
LINE Notify API 沒這個功能吧,我想到的只有跑2次curl
我沒研究line api,其它的我不會

TOP

7777

帖子
124 
主題
32 
精華
0 
積分
221 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-3-21 
18#
發表於 2023-2-15 20:44 | 只看該作者
本帖最後由 7777 於 2023-2-15 20:49 編輯

回復 16# quickfixer


    再請教
一次傳送兩個圖片

Sub Sample()
Dim msg As String: msg = "你好"
Dim imgPath1 As String: imgPath1 = "C:\Users\hoge\Desktop\test.jpg"
Dim imgPath2 As String: imgPath2 = "C:\Users\hoge\Desktop\testa1.jpg"
Dim cmd As String: cmd = "C:\installations\curl.exe" & _                  ' or    cmd = "curl.exe" & _       '目前的 curl.exe 放在C:\installations\
" -X POST https://notify-api.line.me/api/notify" & _
" -H ""Authorization: Bearer 5Cx15az4Ka1Gl3idjF5kxYmHg13Ja1xOWsRPkzMaLPh""" & _
" -F message=" & msg & _
" -F imageFile1=@" & imgPath1 & _
" -F imageFile2=@" & imgPath2
Shell cmd, vbNormalFocus
End Sub


試了幾次都無法動作，還可以怎麼修改?

謝謝
50 字節以內
不支持自定義 Discuz! 代碼

TOP

7777

帖子
124 
主題
32 
精華
0 
積分
221 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-3-21 
17#
發表於 2023-2-13 22:46 | 只看該作者
回復 16# quickfixer


    收到~
         感恩
50 字節以內
不支持自定義 Discuz! 代碼

TOP

quickfixer

帖子
151 
主題
1 
精華
0 
積分
197 
點名
15  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-4-29 
16#
發表於 2023-2-13 20:30 | 只看該作者
回復 15# 7777


    變數不能放在雙引號裡面,會變字串
"wwwwww   變數  wwwwww"

要放在外面用 & 連接
"wwwwww" & 變數 & "wwwwww"

TOP

7777

帖子
124 
主題
32 
精華
0 
積分
221 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-3-21 
15#
發表於 2023-2-13 10:51 | 只看該作者
本帖最後由 7777 於 2023-2-13 10:53 編輯

回復 13# quickfixer


        再問我想將 "LINE權杖"改成 a1储存格，就出現問題無作業，可以幫我解決問題嗎?謝謝

Sub Sample()

Dim AccessToken As String :AccessToken = Sheets("工作表1").Range("a1")

Dim msg As String: msg = "你好"
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 AccessToken""" & _
" -F message=" & msg & _
" -F imageFile=@" & imgPath, vbNormalFocus

End Sub




' 這是ok的 沒圖
Dim AccessToken As String :AccessToken = Sheets("工作表1").Range("a1")     'LINE權杖
Dim msgString As String :msgString = Sheets("工作表1").Range("a2")         'LINE訊息
                        
    '建立Ajax物件
    Set oXML = CreateObject("Microsoft.XMLHTTP")
    With oXML
        '使用同步傳輸
        .Open "POST", "https://notify-api.line.me/api/notify", 0

        '設定傳送封包Header
        .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        .SetRequestHeader "Authorization", "Bearer " & AccessToken
        '執行Ajax傳送
        .send "message=" & msgString
        
        '顯示回報內容
        Debug.Print oXML.responseText
    End With
50 字節以內
不支持自定義 Discuz! 代碼

TOP

7777

帖子
124 
主題
32 
精華
0 
積分
221 
點名
0  
作業系統
XP 
軟體版本
Excel 2003 
閱讀權限
20 
性別
男 
來自
台北市 
註冊時間
2010-9-6 
最後登錄
2024-3-21 
14#
發表於 2023-2-12 23:36 | 只看該作者
回復 13# quickfixer


    感恩
這版~~~
確實可以 秀出中文了
50 字節以內
不支持自定義 Discuz! 代碼

TOP

quickfixer

帖子
151 
主題
1 
精華
0 
積分
197 
點名
15  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-4-29 
13#
發表於 2023-2-12 23:12 | 只看該作者
回復 11# 7777

這個版本正常傳中文
    https://github.com/tim-lebedkov/packages/releases/download/2020_12/se.haxx.curl.CURL64-7.74-curl-7.74.0-win64-mingw.zip

TOP

quickfixer

帖子
151 
主題
1 
精華
0 
積分
197 
點名
15  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-4-29 
12#
發表於 2023-2-12 20:52 | 只看該作者
回復 11# 7777


    找到原因了，新版的curl會亂碼
舊版的不會

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
12
返回列表 上一主題