|
|
| 查看权限： |
需要 [年费会员] 级别以上才能查看。 |
| 发布时间： |
2022-11-13 17:41:46 |
| 信息简介： |
Sub 获取台账()
Dim rrr, r, i, aa, j
Worksheets("台账").Select
Worksheets("台账").Rows("2:10000").ClearContents
[a2] = "序号": [b2] = "检测内容": [c2] = "报告编号": [d2] = "数据"
On Error Resume Next
j = 0
Set rrr = CreateObject("scripting.filesystemobje |
|
