\u6267\u884c\u7ed3\u679c\u6f14\u793a\uff0c\u5de6\u8fb9\u662fexcel\u8868\uff0c\u53f3\u8fb9\u662f\u9489\u9489\u6536\u5230\u7684\u5de5\u4f5c\u901a\u77e5\u3002<\/p>\n\n\n\n \u4ee5\u4e0b\u662f\u793a\u4f8b\u4ee3\u7801\uff1a<\/p>\n\n\n\n \u57fa\u4e8e\u9489\u9489\u5f00\u653e\u5e73\u53f0\uff0c\u521b\u5efa\u5e94\u7528\uff0c\u6388\u6743\u6210\u5458\u4fe1\u606f\u8bfb\u6743\u9650\uff0c\u8c03\u7528\u4f01\u4e1aAPI\u57fa\u7840\u6743\u9650\uff0c\u901a\u8fc7Excel VBA\u8c03\u7528api\u63a5\u53e3\u5b9e […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"site-container-style":"default","site-container-layout":"default","site-sidebar-layout":"default","site-transparent-header":"default","disable-article-header":"default","disable-site-header":"default","disable-site-footer":"default","disable-content-area-spacing":"default","footnotes":""},"categories":[19],"tags":[],"class_list":["post-633","post","type-post","status-publish","format-standard","hentry","category-19"],"_links":{"self":[{"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/posts\/633","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=633"}],"version-history":[{"count":1,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/posts\/633\/revisions"}],"predecessor-version":[{"id":986,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=\/wp\/v2\/posts\/633\/revisions\/986"}],"wp:attachment":[{"href":"https:\/\/www.jumoon.top\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=633"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=633"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.jumoon.top\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=633"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}![\"\"](\"https:\/\/www.jumoon.top\/wp-content\/uploads\/2025\/05\/excel\u63a8\u90011-1024x505.png\")
<\/figure>\n\n\n\nOption Explicit\n\n' \u9489\u9489\u914d\u7f6e\uff08\u66ff\u6362\u4e3a\u4f60\u81ea\u5df1\u7684\u503c\uff09\nPrivate Const APP_KEY As String = \"\u4f60\u7684AppKey\"\nPrivate Const APP_SECRET As String = \"\u4f60\u7684AppSecret\"\nPrivate Const AGENT_ID As String = \"\u4f60\u7684AgentId\" \n\nPrivate Function GetAccessToken() As String\n Dim url As String\n Dim http As Object\n Dim response As String\n Dim json As Object\n \n On Error GoTo ErrorHandler\n \n Set http = CreateObject(\"MSXML2.XMLHTTP\")\n url = \"https:\/\/oapi.dingtalk.com\/gettoken?appkey=\" & APP_KEY & \"&appsecret=\" & APP_SECRET\n \n With http\n .Open \"GET\", url, False\n .send\n response = .responseText\n End With\n \n Set json = ParseJson(response)\n \n If json.Exists(\"access_token\") Then\n GetAccessToken = json(\"access_token\")\n Else\n MsgBox \"\u83b7\u53d6access_token\u5931\u8d25: \" & response, vbExclamation\n GetAccessToken = \"\"\n End If\n \n Exit Function\n \nErrorHandler:\n MsgBox \"\u83b7\u53d6access_token\u65f6\u51fa\u9519: \" & Err.Description, vbExclamation\n GetAccessToken = \"\"\nEnd Function\n\nPrivate Function SendDingTalkMessage(userid As String, content As String, token As String) As String\n Dim url As String\n Dim http As Object\n Dim requestBody As String\n Dim response As String\n \n On Error GoTo ErrorHandler\n \n Set http = CreateObject(\"MSXML2.XMLHTTP\")\n url = \"https:\/\/oapi.dingtalk.com\/topapi\/message\/corpconversation\/asyncsend_v2?access_token=\" & token\n \n requestBody = \"{\"\n requestBody = requestBody & \"\"\"agent_id\"\": \"\"\" & AGENT_ID & \"\"\",\"\n requestBody = requestBody & \"\"\"userid_list\"\": \"\"\" & userid & \"\"\",\"\n requestBody = requestBody & \"\"\"msg\"\": {\"\n requestBody = requestBody & \"\"\"msgtype\"\": \"\"text\"\",\"\n requestBody = requestBody & \"\"\"text\"\": {\"\"content\"\": \"\"\" & content & \"\"\"}\"\n requestBody = requestBody & \"}\"\n requestBody = requestBody & \"}\"\n \n With http\n .Open \"POST\", url, False\n .setRequestHeader \"Content-Type\", \"application\/json\"\n .send requestBody\n response = .responseText\n End With\n \n SendDingTalkMessage = response\n Exit Function\n \nErrorHandler:\n MsgBox \"\u53d1\u9001\u6d88\u606f\u65f6\u51fa\u9519: \" & Err.Description, vbExclamation\n SendDingTalkMessage = \"{\"\"errcode\"\": -1, \"\"errmsg\"\": \"\"\" & Err.Description & \"\"\"}\"\nEnd Function\n\nPublic Sub PushFromExcel()\n Dim ws As Worksheet\n Dim lastRow As Long\n Dim i As Long\n Dim userid As String\n Dim content As String\n Dim token As String\n Dim result As String\n \n On Error GoTo ErrorHandler\n \n Application.ScreenUpdating = False\n Application.DisplayAlerts = False\n \n Set ws = ActiveSheet\n \n lastRow = ws.Cells(ws.Rows.Count, \"A\").End(xlUp).Row\n \n token = GetAccessToken()\n If token = \"\" Then Exit Sub\n \n For i = 2 To lastRow\n userid = CStr(ws.Cells(i, 1).Value)\n content = CStr(ws.Cells(i, 2).Value)\n \n If content = \"\" Then content = \"\uff08\u7a7a\u5185\u5bb9\uff09\"\n \n Debug.Print \"\u51c6\u5907\u63a8\u9001 -> UserID: '\" & userid & \"', \u5185\u5bb9: '\" & content & \"'\"\n \n result = SendDingTalkMessage(userid, content, token)\n ws.Cells(i, 3).Value = result\n \n Application.Wait Now + TimeValue(\"00:00:01\")\n Next i\n \n MsgBox \"\u5904\u7406\u5b8c\u6210\uff01\u5171\u63a8\u9001 \" & lastRow - 1 & \" \u6761\u6d88\u606f\u3002\", vbInformation\n \n Exit Sub\n \nErrorHandler:\n Application.ScreenUpdating = True\n Application.DisplayAlerts = True\n MsgBox \"\u5904\u7406\u8fc7\u7a0b\u4e2d\u51fa\u9519: \" & Err.Description, vbExclamation\nEnd Sub\n\nPrivate Function ParseJson(ByVal JsonString As String) As Object\n Set ParseJson = JsonConverter.ParseJson(JsonString)\nEnd Function\n\n<\/code><\/pre>\n","protected":false},"excerpt":{"rendered":"