[已解决]读取同文件夹内[修改日期]最近工作簿部分文件名(排除自己的修改日期)

暗夜男

附件内详

读取同文件夹内[修改日期]最近工作簿部分文件名(排除自己的修改日期).rar (25.76 KB, 下载次数: 7)

2016-3-10 14:06 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-10 15:16

1. Sub test()
   
2.     Dim wb As Workbook, sh As Worksheet
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Set ff = fso.getfolder(ThisWorkbook.Path)
   
5.     xtime = 0
   
6.    For Each f In ff.Files
   
7.     If InStr(f, ThisWorkbook.Name) = 0 Then
   
8.         If f.datelastmodified > xtime Then
   
9.             xname = f
   
10.             x = f.Name
    
11.             xtime = f.datelastmodified
    
12.         End If
    
13.     End If
    
14.    Next
    
15.     x = Split(x, ".")(0)
    
16.    [a1] = Mid(x, InStr(x, "_") + 1)
    
17.    Set wb = Workbooks.Open(xname)
    
18.    For Each sh In wb.Sheets
    
19.     sh.PrintPreview
    
20.    Next
    
21.    wb.Close False
    
22. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub test()
   
2.     Dim wb As Workbook, sh As Worksheet
   
3.     Set fso = CreateObject("scripting.filesystemobject")
   
4.     Set ff = fso.getfolder(ThisWorkbook.Path)
   
5.     xtime = 0
   
6.    For Each f In ff.Files
   
7.     If InStr(f, ThisWorkbook.Name) = 0 Then
   
8.         If f.datelastmodified > xtime Then
   
9.             xname = f
   
10.             x = f.Name
    
11.             xtime = f.datelastmodified
    
12.         End If
    
13.     End If
    
14.    Next
    
15.     x = Split(x, ".")(0)
    
16.    [a1] = Mid(x, InStr(x, "_") + 1)
    
17.    Set wb = Workbooks.Open(xname)
    
18.    For Each sh In wb.Sheets
    
19.     sh.PrintPreview
    
20.    Next
    
21.    wb.Close False
    
22. End Sub
    

复制代码

暗夜男

grf1973 发表于 2016-3-10 15:16

感谢,读取正常

发现2个问题

1.本以为可以在代码里找到A1的字样自己修改,结果发现没有= =,目标单元格被我命名成"dww",请问代码里如何修改?
抱歉,找到A1了= =,我再研究下打印工作簿,谢谢

2.最后实现的是打印预览,可以直接后台打印工作簿吗? 这个工作簿我已经确认无误了

暗夜男

完成,把原代码的sh.PrintPreview改成sh.PrintOut就可以~感谢沙发