jiong0818的博客

Function weixinAPI(data As String) As String Dim tt$, access_token$, url$ '获取access_token链接 AccessTokenURL = "https://qyapi.weixin.qq.com/cgi-bin/gettoken" '获取打卡数据链接 simURL = "https://qyapi.weixin.qq.com/cgi-bin/checkin/getcheckin_month

之前用得好好的， 突然间用不了， 点击也没反应。首先检查代码，没有异常，但是奇怪得很是debug也进不了，检查按钮命名什么的都没问题。我用的是WPS，回忆一下是否之前WPS好像有崩溃过，会出现莫名其妙的错误，我试着把这个工作表复制一份出来，改成之前的名称，把之前的工作表做个备份。竟然点击正常了，可以正常运行代码。确定没问题之后，把之前备份的工作表删除掉。所以可以试着用这个办法来解决：复制一份按钮异常所在的工作表，并把之前的工作表重新命名备份起来，复制出来的新工作表取回之前的名称，再点击下试试看， 说