Foxtable(狐表)用户栏目专家坐堂 → 获取企业微信数据


  共有3072人关注过本帖树形打印复制链接

主题:获取企业微信数据

帅哥哟,离线,有人找我吗?
13968559581
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:185 积分:1526 威望:0 精华:0 注册:2017/7/23 17:17:00
获取企业微信数据  发帖心情 Post By:2020/7/30 22:18:00 [只看该作者]

你好我想获取企业微信考勤打卡的数据,我建了一个GetQYAccessTokenkqdk,但报错,什么原因
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token={0}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessTokenkqdk")))
Dim jo As JObject = JObject.Parse(hc.GetData())


图片点击可在新窗口打开查看此主题相关图片如下:打卡报错.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106089 积分:539550 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/30 22:51:00 [只看该作者]

需要提交数据的,类似创建、修改部门的用法:http://www.foxtable.com/mobilehelp/topics/0223.htm

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token={0}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessTokenkqdk")))
Dim jo As New JObject
jo
("opencheckindatatype") = 3
jo
("starttime") = 1492617600
……其它参数参考微信开发文档
hc.Content = jo.ToString()
Dim jo As JObject = JObject.Parse(hc.GetData())

 回到顶部
帅哥哟,离线,有人找我吗?
13968559581
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:185 积分:1526 威望:0 精华:0 注册:2017/7/23 17:17:00
  发帖心情 Post By:2020/7/31 8:24:00 [只看该作者]

我完整的代码是这样的呀,他现在是errcode这里就报错
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token={0}"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessTokenkqdk")))
Dim jo As JObject = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
    DataTables("企业微信打卡数据").DataRows.Clear

     Dim nms() As String = {"userid","checkin_time"} 
    For Each jt As JToken In jo("checkindata")
        Dim dr As DataRow = DataTables("企业微信打卡数据").AddNew()
        For Each nm As String In nms
            dr(nm) = jt(nm)
        Next
    Next
    DataTables("企业微信打卡数据").Save()
Else
    MessageBox.Show(jo.ToString)
End If

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106089 积分:539550 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/31 9:28:00 [只看该作者]

没有提交数据啊,请仔细认真看看2楼

 回到顶部
帅哥哟,离线,有人找我吗?
13968559581
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:185 积分:1526 威望:0 精华:0 注册:2017/7/23 17:17:00
  发帖心情 Post By:2020/7/31 10:35:00 [只看该作者]

不是呀,我不知道是你理解有误,还是我理解有误(创建,修改部门是需要提交数据,但我现在好比只获取部门信息呀,我要提交什么数据呢)
我现在不需要提交数据呀,我只是把企业微信里的打卡数据获取过来就行了呀
[此贴子已经被作者于2020/7/31 10:36:51编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106089 积分:539550 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/31 10:41:00 [只看该作者]

把企业微信里的打卡数据获取过来需要提交获取的条件数据,比如获取什么类型的打卡数据?获取谁的打开数据?麻烦先把企业微信的开发文档好好看一看

获取打卡数据

调试工具

请求方式:POST(HTTPS
请求地址:https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckindata?access_token=ACCESS_TOKEN

请求示例:

  1. {
  2. "opencheckindatatype": 3,
  3. "starttime": 1492617600,
  4. "endtime": 1492790400,
  5. "useridlist": ["james","paul"]
  6. }

参数说明:

参数必须说明
access_token调用接口凭证。企业必须使用打卡应用的Secret获取access_token
opencheckindatatype打卡类型。1:上下班打卡;2:外出打卡;3:全部打卡
starttime获取打卡记录的开始时间。Unix时间戳
endtime获取打卡记录的结束时间。Unix时间戳
useridlist需要获取打卡记录的用户列表

 回到顶部
帅哥哟,离线,有人找我吗?
13968559581
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:185 积分:1526 威望:0 精华:0 注册:2017/7/23 17:17:00
  发帖心情 Post By:2020/8/2 9:39:00 [只看该作者]

现在是这样的,我数据能读取过来了,但这里的时间是Unix时间戳,我实际使用的时候需要转换,这个在狐表里需要转换吗,怎么转换
还有,我取过来的数据,他要把那个设置的时间(见附件)也取过来,什么原因

图片点击可在新窗口打开查看此主题相关图片如下:565656.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106089 积分:539550 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/2 10:28:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
13968559581
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:185 积分:1526 威望:0 精华:0 注册:2017/7/23 17:17:00
  发帖心情 Post By:2020/8/3 10:04:00 [只看该作者]

你好,这个unix时间戳我还是转换不来
你可以指点一下代码吗
比如说我要获取昨天的打卡数据,
我代码应该怎么写

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106089 积分:539550 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/8/3 10:11:00 [只看该作者]

Dim st As New Date(1970,1,1,8,0,0)
dim 时间戳  as long = (Date.today.adddays(-1) - st).TotalSeconds()
msgbox(时间戳)

 回到顶部
总数 20 1 2 下一页