荖葉莖部病害(細菌、真菌)

 

上圖係黑骨受細菌感染

上圖係炭疽病(受真菌感染)

上圖係受真菌感染後期產生孢子

荖葉莖部受病害感染初期看不出來係細菌還是真菌感染，真菌感染的後期會產生孢子。所以要防治要二種藥(細菌與真菌 )一起施用。

照片來源：農試所

99-110年荖葉種植面積與進口量圖表

  

  99年1871.57公頃，年進口量35.3噸

100年1881.72公頃，年進口量111.7噸

101年1912.75公頃，年進口量68.8噸

102年1798.65公頃，年進口量55.7噸

103年1781.96公頃，年進口量73.0噸

104年1747.32公頃，年進口量47.7噸

105年1124.80公頃，年進口量1702.4噸

106年1119.65公頃，年進口量1914.3噸

107年1122.98公頃，年進口量1192.5噸

108年1092.26公頃，年進口量733.3噸

109年1101.07公頃，年進口量1200.4噸

110年1074.84公頃，年進口量1114.9噸

111年目前無資料，年進口量1180.8噸

資料來源：農糧署農情報告資源網

88~104年種植面積

VBA傳送本機圖檔與訊息給Line

 參考：http://white5168.blogspot.com/2017/01/line-notify-6-line-notify.html#.Yh63k09BzX4

 只需修改sToken 與 sFilepath填入你自已的Token與圖檔放置的位置就可以直接執行。

利用VBA傳送訊息給Line

Token取得可以方式可參考"https://tomyam-yang.blogspot.com/2022/02/google-apps-scripline.html

Sub line_notify()
     '===================================
    'Line訊息
    '===================================
    Dim oXML As Object
   
    Dim Token As String
   
    Dim URL As String
   
    '指定的Line Notify Token
   
    Token = "你的TOKEN"
   
    'Line Notify的傳送訊息網址
       
    Line_Message = "利用VBA傳訊息"
   
    URL = "https://notify-api.line.me/api/notify"

    Set oXML = CreateObject("Microsoft.XMLHTTP")
   
    With oXML
   
        '使用同步傳輸
   
        .Open "POST", URL, 0
   
        '設定傳送封包Header
   
        .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   
        .setRequestHeader "Authorization", "Bearer " & Token
   
        '執行Ajax傳送
        .send "message=" & Chr(10) & Line_Message
        Debug.Print oXML.responseText
   
    End With
   
    '釋放物件資源
   
    Set oXML = Nothing
End Sub

參考資料：http://forum.twbts.com/thread-22487-1-1.html

利用Google Apps Scrip傳訊息到Line

 參考https://lifewth.com/google-apps-script-line/

依參考資料第一次實作一直出現status":401," message":" Invalid access token

手機重開機一樣失敗、後來重新申請發行權杖儲存後重新執行就可以順利收到訊息。

延伸利用:可以透過簡單單晶片發送訊息給Google Apps Script然後在透過Google Apps Script傳訊息給Line通知使用者。

或者功能強一點的開發版直接跟 LINE Notify連結。