数据来自快表API提供的数据。

企业版、独立版API文件在程序目录Kuaibiao\ThinkPHP\kbwebapp\index\controller下

1. <?php
   
2. namespace app\index\controller;
   
3. use think\Db;
   
4. use think\Request;
   
5. use think\Session;
   
6. class Custom extends \think\Controller{
   
7.        
   
8.         //数据库调用方法
   
9.         public function logs(){
   
10.                 $data1 = Db::table('sys_log')
    
11.                                         ->field('lid,computername,username,logtype,logdate,logdetail')
    
12.                                         ->limit(10)
    
13.                                         ->select();
    
14.                 return json($data1);
    
15.         }
    
16. }
    
17. ?>

复制代码

VBA取得数据并填充

1.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                 If e.Shape.Name = "Button 1" Then                           
   
3.                            Dim client As New WebClient()
   
4.                            client.Encoding = Encoding.UTF8
   
5.                            client.Headers.Item("Content-Type") = "application/json"
   
6.                            Dim resulta As String = client.DownloadString("http://127.0.0.1:9385/index.php/index/custom/logs")
   
7.                            Dim result As String = JToken.Parse(resulta).ToString(Formatting.Indented)
   
8. '                           messagebox.show(result)
   
9.                            ' 解析 JSON 字符串为 JArray
   
10.                            Dim res As JArray = JArray.Parse(result)
    
11. '                           messagebox.show(res.Item(0).Item("lid"))
    
12.                           
    
13.                            Dim reslength As Integer = res.Count
    
14.                            Dim r As Integer
    
15.                            For r = 0 To reslength - 1
    
16.                                    ActiveWorkbook.Worksheets("Sheet1").Cells(r + 10, 1).Value = res.Item(r).Item("lid").ToString
    
17.                                    ActiveWorkbook.Worksheets("Sheet1").Cells(r + 10, 2).Value = res.Item(r).Item("computername").ToString
    
18.                                    ActiveWorkbook.Worksheets("Sheet1").Cells(r + 10, 3).Value = res.Item(r).Item("logtype").ToString
    
19.                            Next r
    
20.                 End If
    
21.                
    
22.        End Sub'按钮/标签点击事件

复制代码

数据来自快表API提供的数据。

企业版、独立版API文件在程序目录Kuaibiao\ThinkPHP\kbwebapp\index\controller下

1. <?php
   
2. namespace app\index\controller;
   
3. use think\Db;
   
4. use think\Request;
   
5. use think\Session;
   
6. class Custom extends \think\Controller{
   
7.        
   
8.         //数据库调用方法
   
9.         public function logs(){
   
10.                 $data1 = Db::table('sys_log')
    
11.                                         ->field('lid,computername,username,logtype,logdate,logdetail')
    
12.                                         ->limit(10)
    
13.                                         ->select();
    
14.                 return json($data1);
    
15.         }
    
16. }
    
17. ?>

复制代码

VBA取得数据并填充

1.        Public Sub ButtunClick(sender As Object,e As SpreadsheetGear.Windows.Controls.ShapeActionEventArgs)
   
2.                 If e.Shape.Name = "Button 1" Then                           
   
3.                            Dim client As New WebClient()
   
4.                            client.Encoding = Encoding.UTF8
   
5.                            client.Headers.Item("Content-Type") = "application/json"
   
6.                            Dim resulta As String = client.DownloadString("http://127.0.0.1:9385/index.php/index/custom/logs")
   
7.                            Dim result As String = JToken.Parse(resulta).ToString(Formatting.Indented)
   
8. '                           messagebox.show(result)
   
9.                            ' 解析 JSON 字符串为 JArray
   
10.                            Dim res As JArray = JArray.Parse(result)
    
11. '                           messagebox.show(res.Item(0).Item("lid"))
    
12.                           
    
13.                            Dim reslength As Integer = res.Count
    
14.                            Dim r As Integer
    
15.                            For r = 0 To reslength - 1
    
16.                                    ActiveWorkbook.Worksheets("Sheet1").Cells(r + 10, 1).Value = res.Item(r).Item("lid").ToString
    
17.                                    ActiveWorkbook.Worksheets("Sheet1").Cells(r + 10, 2).Value = res.Item(r).Item("computername").ToString
    
18.                                    ActiveWorkbook.Worksheets("Sheet1").Cells(r + 10, 3).Value = res.Item(r).Item("logtype").ToString
    
19.                            Next r
    
20.                 End If
    
21.                
    
22.        End Sub'按钮/标签点击事件

复制代码