必须先把工作簿保存后公式才能生效
0102
B1=INDIRECT(TEXT((--REPLACE(CELL("filename",A1),1,FIND("]",CELL("filename",A1)),"")&T(NOW()))-1,"0000")&"!B4")
公式可以复制到0103、0104使用（提取表名减1,用text求得4位数表名再用indirect指定单元格）
复制没那么智能。。。
