VBA_选择Folder_读取特定文件

1.调用msofiledialogfolderpicker文件对话框，然后获取路径Path.

2.如果需要打开的文件有“life”的关键字，可以使用遍历函数+通配符*进行模糊查找。

3.然后打开该文件，选择需要复制的部分进行复制，由于此时激活的是目标文件，所以需要激活代码所在的Thisworkbook, 然后选一个目标位置进行粘贴。

4.最后再关闭目标csv即可。

Sub folfer_pick_file_write()
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Folder Picker~"
If .Show = True Then
Path = .SelectedItems(1)
End If
End With

target_csv = Dir(Path & "\*Life*")
Workbooks.Open Path & "\" & target_csv

    Range("D7:E9").Select
    Selection.Copy
    
ThisWorkbook.Activate
    Range("C294:D296").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Windows(target_csv).Close
End Sub
   
   End Sub