07 2020 档案

excel批量提取文件的作者和最后的保存者
摘要：Sub xixixixi() Dim dDate As DocumentProperty Dim wb As Workbook Dim str As String For i = 1 To 2 str = Sheet1.Cells(i, 3) Set wb = GetObject(ThisWorkb 阅读全文
posted @ 2020-07-24 15:07 龙7龙 阅读(1348) 评论(0) 推荐(0)