[已解决]帮忙根据需求修改代码,根据查找路径范围，可按关键字搜索查找文件并打开文件复制内容

楚雪飞扬

需求：根据查找路径范围，可按关键字搜索查找文件并打开文件复制内容
1.查询条件（文件类，文件类型）：可按关键字进行查找，当不使用关键字时可放空或用*号代替
2.查询条件（访问日期）：可按从起始日期至截止日期查找之间范围的数据，当不使用日期搜索时可放空或用*号代替
3.将当查找到满足文件时，自动按日期依次打开文件并复制内容到另一个工作表中(每个文件格式一样）复制文件内容时，只保留第一个文件的表头
4.序号：将当前格式改为数值格式

最佳答案

月排行榜 / 总排行榜

sam-wang

2022-1-14 12:44

楚雪飞扬 发表于 2022-1-14 12:02
老师你好，帮忙抽空看下，不知道是不是我设置的条件有问题
执行后，复制数据至数据源时，还是没有显示表 ...

不好意思，請更新如下，請再測試看看，謝謝

             With Sheet2
                R = .[a65536].End(3).Row + 1
                If .[a1] = "" Then
                    .Range("a1").Resize(UBound(Crr), 10) = Crr
                Else
                    .Range("a" & R).Resize(UBound(Crr), 10) = Crr
                End If
            End With

跳转到最佳答案楼层

林木水

好像之前写过一个超链接的，这又换新花样了么

楚雪飞扬

林木水 发表于 2022-1-13 16:33
好像之前写过一个超链接的，这又换新花样了么

领导要的数据查询方式变了，哎，搞死人了！

sam-wang

請測試看看，謝謝

楚雪飞扬

sam-wang 发表于 2022-1-14 08:00
請測試看看，謝謝

老师您好，感谢您的帮忙，代码实际运行了，基本上没有什么大问题，
目前现有存在问题是，表2（数据源）复制过来的数据，第一个文件没有保留表头


有个小小的问题，如果我的查询条件如果要改成，按修时间来查询数据时，要修改哪行代码？或能你能帮我加句代码，当我有需要的，我就另一句代码比例注释掉

sam-wang

楚雪飞扬 发表于 2022-1-14 08:33
老师您好，感谢您的帮忙，代码实际运行了，基本上没有什么大问题，
目前现有存在问题是，表2（数据源） ...

目前现有存在问题是，表2（数据源）复制过来的数据，第一个文件没有保留表头

>> 沒問題如圖片1，請再確認，如果還有問題請提供檔案測試，謝謝

按修时间来查询数据时，要修改哪行代码？

>> 修改如圖片2(有2個地方要改)，SD = f1.Datelastaccessed-->SD = f1.Datelastmodified

sam-wang

楚雪飞扬 发表于 2022-1-14 08:33
老师您好，感谢您的帮忙，代码实际运行了，基本上没有什么大问题，
目前现有存在问题是，表2（数据源） ...

修改後執行的結果如圖3,4，請測試看看，謝謝

楚雪飞扬

sam-wang 发表于 2022-1-14 10:13
修改後執行的結果如圖3,4，請測試看看，謝謝

老师你好，帮忙抽空看下，不知道是不是我设置的条件有问题
执行后，复制数据至数据源时，还是没有显示表头

sam-wang

楚雪飞扬 发表于 2022-1-14 12:02
老师你好，帮忙抽空看下，不知道是不是我设置的条件有问题
执行后，复制数据至数据源时，还是没有显示表 ...

不好意思，請更新如下，請再測試看看，謝謝

             With Sheet2
                R = .[a65536].End(3).Row + 1
                If .[a1] = "" Then
                    .Range("a1").Resize(UBound(Crr), 10) = Crr
                Else
                    .Range("a" & R).Resize(UBound(Crr), 10) = Crr
                End If
            End With

楚雪飞扬

sam-wang 发表于 2022-1-14 12:44
不好意思，請更新如下，請再測試看看，謝謝

             With Sheet2

可以了，非常您的帮忙！