使用excel vba上傳圖檔到line - Excel程式區

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

11^# 跳轉到 »

發表於 2023-2-12 20:28 | 只看該作者

回復 10# quickfixer

https://www.jack168.com/download/curl/curl.html
照做
安裝好curl
重開機後，興奮的執行
結果仍然不行

依舊感謝

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

TOP

quickfixer

中學生 Rank: 2

帖子: 153
主題: 1
精華: 0
積分: 199
點名: 18
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-5-17

10^#

發表於 2023-2-12 15:08 | 只看該作者

回復 9# 7777

試了win7 office2016
Win10 office2019,都正常,只装curl
其它都是剛重灌好

測試用手機是android系統

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

9^#

發表於 2023-2-12 12:42 | 只看該作者

回復 7# quickfixer

測試的三台電腦皆不行，英文都OK

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

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

8^#

發表於 2023-2-12 12:03 | 只看該作者

回復 7# quickfixer

感謝解說~~

不懂!!
試了很多次，還是都不成功，
這跟電腦環境有差嗎??
win10 ,2019 版本office 64位元 (應該OK)
還是需要安裝什麼 ??

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

TOP

quickfixer

中學生 Rank: 2

帖子: 153
主題: 1
精華: 0
積分: 199
點名: 18
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-5-17

7^#

發表於 2023-2-12 06:01 | 只看該作者

回復 5# 7777

我用你的程式碼測中文字,正常輸出
win10

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2023-2-11 07:32 | 只看該作者

本帖最後由 singo1232001 於 2023-2-11 07:36 編輯

回復 5# 7777

http://white5168.blogspot.com/2017/01/line-notify-6-line-notify.html#.Y-bI8nZBxPY
我查了一下

我建議分段傳
圖片用curl 這段好像只支援日韓英

傳完圖片
等五秒
再用正常的傳訊方式傳訊息

但圖片的部分我還沒測試成功
看到要server才能傳目前我的功力跟基礎不夠

不過看他056 這行確實可以用中文字傳送 arr2 = Utf8BytesFromString("小天使圖傳送!!!LaLaLa~~~")
最後也有顯示中文

再參考看看

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

5^#

發表於 2023-2-10 15:12 | 只看該作者

回復 4# singo1232001

感謝

修改後出現圖1

你好.jpg

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

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

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

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2023-2-10 14:14 | 只看該作者

回復 3# 7777

" -F message=" & msg & _

改成

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

TOP

7777

中學生 Rank: 2

帖子: 125
主題: 33
精華: 0
積分: 223
點名: 0
作業系統: XP
軟體版本: Excel 2003
閱讀權限: 20
性別: 男
來自: 台北市
註冊時間: 2010-9-6
最後登錄: 2024-6-8

3^#

發表於 2023-2-10 12:08 | 只看該作者

回復 2# yws0915

問題是我想將msg="Hello"改成中文，msg="你好"就出現問題，可以幫我解決問題嗎?謝謝

Sub Sample()
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 5Cx15az4Ka1Gl3idjF5kxYmHg13Ja1xOWsRPkzMaLPh""" & _
" -F message=" & msg & _
" -F imageFile=@" & imgPath, vbNormalFocus

End Sub

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

TOP

yws0915

中學生 Rank: 2

帖子: 11
主題: 2
精華: 0
積分: 60
點名: 79
作業系統: WIN7
軟體版本: SP2
閱讀權限: 20
註冊時間: 2016-8-30
最後登錄: 2024-6-17

2022虎年全勤獎章

2^#

發表於 2022-3-2 11:50 | 只看該作者

資料來源https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11237902231

Sub Sample()
Dim msg As String: msg = "Hello"
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

複製代碼

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]