2020年7月24日
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龙 阅读(1098) 评论(0) 推荐(0) 编辑