工作簿1从工作簿2复制内容，但是工作簿2的文件名前面几位是固定的，后面带随机数字.

chwj110

工作簿1从工作簿2复制内容，但是工作簿2的文件名前面几个是固定的，后面带随机数.字..我平时只有删除工作簿2后面的随机数字，才有办法直接从复制过来，代码应该如何完善一下可以实现？
附件如下。

工作簿2有时候是叫“复制报表_123456”，有时候又叫“复制报表_12345”，还有时候叫“7654321”。有没有什么办法，可以通过前面固定的几个文字，来打开复制工作簿的么？求大神帮忙完善下代码，十分感谢~




测试.rar (26.61 KB, 下载次数: 0)

2020-2-18 22:47 上传

点击文件名下载附件

chwj110

等待审核的过程，无聊就自己解决了。详细见附件。
就是有个机制要问一下，假设前面4个字符相同的2个文件，他系统优先是读取那个？


Dim myPath1 As String
    Dim myFile1 As String
    Dim Bb As String

   
   
    myPath1 = ThisWorkbook.Path & "/"
    myFile1 = Dir(myPath1 & "*.xls")
   
   
    Do
    myFile1 = Dir
    n = n + 1
    Loop Until Left(myFile1, 4) = "复制报表"
   
    Bb = myFile1
   
   
    copyFromFileName = Bb