快表VBA通过钉钉API获取花名册

1. Imports System.Windows
   
2. Imports System.Windows.Controls
   
3. Imports C1.Silverlight
   
4. Imports C1.Silverlight.C1MessageBoxButton
   
5. Imports C1.Silverlight.C1MessageBoxIcon
   
6. Imports Newtonsoft.Json
   
7. Imports Newtonsoft.Json.Linq
   
8. Imports System.IO
   
9. Imports System.Text
   
10. 
    
11. 
    
12. Namespace ExcelViewVBDotnet
    
13.     Public Class StandardInterface '自定义名称
    
14.         Implements Interfaces.IExcelWorkBook
    
15.         Public Property ActiveWorkbook() As IWorkbook Implements Interfaces.IExcelWorkBook.Workbook
    
16.         Dim EV As SpreadsheetGear.Windows.Controls.WorkbookView
    
17.         Dim Range As SpreadsheetGear.IRange
    
18.         Dim CF, VW As Object
    
19.         Dim TS As StackPanel
    
20.         Dim kb_access_token As String
    
21.         Dim kb_next_cursor As Integer
    
22.         
    
23. 
    
24.         Public Sub Workbook_Open(OldRoot As Grid, NewRoot As Grid, Excel As SpreadsheetGear.Windows.Controls.WorkbookView) Implements Interfaces.IExcelWorkBook.Workbook_Open
    
25.             EV = Excel
    
26.             Excel.GetLock()
    
27.             Range = ActiveWorkbook.ActiveWorksheet.Range
    
28.             Excel.ReleaseLock()
    
29. 
    
30.             CF = OldRoot.Children(1)  '绑定工具条触发，不能测试运行
    
31.             TS = CType(OldRoot.Children(5), StackPanel)
    
32.             '工具条添加第一个按钮
    
33.             Dim BT1 As New Button
    
34.             BT1.Name = "BT_AN1"       '按钮名，不能与其他按钮名称重复，下同。
    
35.             BT1.Content = "获取数据"     '按钮显示的名称，自定义写入欲显示的名称。下同
    
36.             BT1.Margin = New Thickness(0, 2, 0, 2)
    
37.             BT1.Padding = New Thickness(13, 3, 13, 3)
    
38.             BT1.Style = CType(Application.Current.Resources("ButtonStyle3"), Style)
    
39.             BT1.Foreground = CType(Application.Current.Resources("Foreground1"), System.Windows.Media.Brush)
    
40.             AddHandler BT1.Click, Sub()
    
41.                                       ActiveWorkbook.WorkbookSet.GetLock()
    
42.                                       kb_next_cursor = ActiveWorkbook.Worksheets("SheetSet").Range("A3").Value
    
43.                                       'MessageBox.Show(kb_next_cursor)
    
44.                                       If kb_next_cursor = 0 And ActiveWorkbook.ActiveWorksheet.Range("B2").Text <> "" Then
    
45.                                           If MessageBox.Show("是否清空内容并重新获取", "提示", MessageBoxButton.OKCancel) = MessageBoxResult.OK Then
    
46.                                               ActiveWorkbook.ActiveWorksheet.ProtectContents = False
    
47.                                               ActiveWorkbook.ActiveWorksheet.UsedRange.Offset(3, 0).EntireRow.Delete()
    
48.                                               ActiveWorkbook.ActiveWorksheet.UsedRange.Offset(1, 0).ClearContents()
    
49.                                           End If
    
50.                                       Else
    
51.                                           Dim wc As New WebClient
    
52.                                           wc.Encoding = Encoding.UTF8
    
53.                                           wc.Headers.Item("Content-Type") = "application/json"
    
54.                                           Dim address As String = "https://oapi.dingtalk.com/topapi/smartwork/hrm/employee/queryonjob?access_token=" + kb_access_token

复制代码

所有内容请回复后下载

游客，如果您要查看本帖隐藏内容请回复

回复学习下

学习一下，可能会用到

感谢分享，学习了

一直在找的东东

谁有在详细一点的教程呀求分享

对VBA版本有要求不？

zczwjh 发表于 2024-1-16 16:52
对VBA版本有要求不？

企业版支持

回复学习下

学习一下，可能会用到

感谢分享，学习了

一直在找的东东

谁有在详细一点的教程呀求分享

对VBA版本有要求不？

zczwjh 发表于 2024-1-16 16:52
对VBA版本有要求不？

企业版支持