一个判断xlsx表格指定区域是否为空的MATA函数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

最近在编写适合日常工作数据集格式化输出的命令，其中需要解决在已有xlsx表格中连续输入且不覆盖原来内容，没有找到更好的方法，自己按照理解编写了一个MATA函数实现，现与Stata爱好者分享。自己水平有限，如果有更好的思路请各位不吝赐教，谢谢。


以下是代码和测试用的xlsx表格
table.xlsx (6.6 KB)

2018-9-20 12:00:48 上传

测试用xlsx表格

1. /*********************************************************
   
2. row_emptyrange 函数
   
3. 用途：检测某个当前目录下xlsx表中某个sheet指定区域是否为空，
   
4.           并返回与指定区域大小相同且为空的起始行数，
   
5.           可以用于读取已有的xlsx表，在不覆盖原有内容的基础上，
   
6.           寻找合适的位置输出新的内容，类似于append的作用
   
7. *********************************************************/
   
8. 
   
9. mata: mata clear
   
10. mata:
    
11. real scalar row_emptyrange(string scalar tablename, string scalar sheetname, /// //指定的表格名称和sheet名称
    
12.                                  real scalar row1, real scalar row2, /// //指定区域的行范围 第row1行至第row2行 row1>=row2
    
13.                                  real scalar col1, real scalar col2)     //指定区域的列范围 第col1列至第col2列 col1>=col2
    
14. {
    
15.         class xl scalar   b                 // 初始化xl()类
    
16.         string vector     cells     // 声明字符串向量 用于存储指定的区域
    
17.         real scalar       i                        // 判断指定区域的长度
    
18.         real vector       rowrange  // 声明实数向量 行范围
    
19.         real vector       colrange  // 声明实数向量 列范围
    
20.         
    
21.         i=0
    
22.         rowrange=(row1\row2)
    
23.         colrange=(col1,col2)
    
24. 
    
25.         b.load_book(tablename)                // 加载表名
    
26.         b.set_sheet(sheetname)      // 加载sheet名
    
27.         cells=b.get_string(rowrange,colrange) // 获取指定位置的内容
    
28. 
    
29.         printf("The first specified range is:  row[%f,%f] and col[%f,%f]\n", row1,row2,col1,col2)
    
30.         cells                                                // 显示指定区域大小的内容
    
31.         i=rowsum(colsum(ustrlen(cells)))    // 判断指定区域的长度
    
32.         printf("The length of initially specified range is: %f\n",i)
    
33. 
    
34.         while (i) {                                                        // 如果长度不为0
    
35.                 row1=row1+1                                                // 则行范围递增1 此处可以修改进行快速判断
    
36.                 row2=row2+1                                                // 同上
    
37.             rowrange=(row1\row2)
    
38.                 cells=b.get_string(rowrange,colrange) // 列范围不变
    
39.             i=rowsum(colsum(ustrlen(cells)))      // 判断指定区域的长度
    
40.                 cells                           // 显示指定区域大小的内容
    
41.             printf("The length of the new range with the same size as the initially specified range is: %f\n",i)
    
42.         }
    
43.         printf("The row of the new range with same size is: %f\n", row1)
    
44. 
    
45.         return(row1)                                         // 返回输出新表的起始行数 可以修改
    
46.         
    
47. }
    
48. end
    
49. 
    
50. mata: row_emptyrange("table.xlsx","Sheet1",1,6,1,4)

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖