提取路径下所有指定后缀文件夹到指定文件夹下

您可以使用以下 Python 代码来实现这个功能：

import os
import shutil

# 指定要搜索的文件夹路径和后缀名
folder_path = "/path/to/search/folder"
target_extension = ".txt"

# 指定要复制到的目标文件夹路径
target_folder = "/path/to/target/folder"

# 遍历指定文件夹下的所有文件和文件夹
for root, dirs, files in os.walk(folder_path):
    # 遍历每个文件
    for file in files:
        # 检查文件是否是指定后缀名
        if file.endswith(target_extension):
            # 构建文件夹路径
            file_path = os.path.join(root, file)
            # 复制文件夹到目标文件夹下
            shutil.copy(file_path, target_folder)

这个代码会遍历指定文件夹路径下的所有文件和文件夹，检查每个文件是否是指定后缀名，如果是则复制到指定目标文件夹下。您只需要将 `folder_path`、`target_extension` 和 `target_folder` 替换为您自己的路径即可。

相关问题

bat提取所有目录下指定后缀文件复制到指定文件夹

在Windows批处理（BAT）脚本中，你可以通过`for /r`命令递归搜索指定目录及其子目录，并利用`dir`命令筛选出特定后缀的文件，然后使用`copy`命令将它们复制到目标文件夹。这里是一个基本的例子：

@echo off
setlocal enabledelayedexpansion

:: 设置源目录、目标目录和文件后缀
set src_dir=C:\source\directory
set dest_dir=C:\destination\folder
set file_ext=".txt"   :: 更改为你需要的文件后缀

:: 使用for /r命令查找指定目录下的指定后缀文件
for /r %src_dir% %%f in (*.%file_ext%) do (
    set file_path=%%f
    :: 将文件路径转换为完整的目标路径
    set target_file=%dest_dir%\!file_path:~(%src_dir%.len()!,)!
    echo Copying !file_path! to !target_file!

    rem 这里可以添加实际的复制操作，如果需要跳过确认，替换下面两行
    copy "!file_path!" "!target_file!"
)

rem 如果有错误，这里可以追加错误日志处理或其他逻辑
endlocal

这个脚本会遍历`src_dir`中的所有`.txt`文件，并尝试复制到`dest_dir`内相应的位置。`enabledelayedexpansion`用于在循环内部修改变量值，`~()`用于字符串裁剪。

注意：在实际运行批量文件前，记得检查其权限，特别是复制文件时，可能会因为权限不足导致失败。另外，批处理命令行不支持直接处理用户交互，所以这里的确认复制操作仅显示了消息。

利用VBA提取一个文件夹下面所有子文件夹内的后缀名为.xlsx文件的d1到d13和e1到e13单元格内的所有内容，并按照文件路径分类，组合到一个新的xlsx文件内，并将该文件放置到当前文件夹下的代码

在VBA中，你可以使用`Dir`, `Fso`, 和 `CreateObject("Excel.Application")`等对象来实现这个功能。以下是一个基本的示例代码，用于遍历指定文件夹及其子文件夹，提取`.xlsx`文件中的特定单元格数据并将其合并到新的工作簿中：

Sub CombineXLSXData()
    Dim folderPath As String
    Dim excelApp As Object
    Dim workbook As Workbook
    Dim subWorkbook As Workbook
    Dim ws As Worksheet
    Dim file As String
    Dim startRow As Long
    Dim endRow As Long
    Dim rng As Range
    
    ' 设置文件夹路径
    folderPath = "你的文件夹路径" ' 请替换为你需要处理的实际文件夹路径

    ' 创建Excel应用实例
    Set excelApp = CreateObject("Excel.Application")
    
    ' 新建工作簿保存结果
    Set workbook = excelApp.Workbooks.Add
    
    ' 开始行和结束行
    startRow = 1
    endRow = 13
    
    ' 遍历文件夹和子文件夹
    For Each file In Dir(folderPath & "\*.xlsx", vbNormal)
        If Right(file, 4) = ".xlsx" Then
            ' 打开每个Excel文件
            Set subWorkbook = excelApp.Workbooks.Open(folderPath & "\" & file)
            
            ' 检查是否包含所需范围
            On Error Resume Next
            Set ws = subWorkbook.Sheets(1).Range("d1:e13")
            On Error GoTo 0
            
            ' 如果找到了范围，则提取数据并添加到新工作簿
            If Not ws Is Nothing Then
                ws.Copy Destination:=workbook.Worksheets(workbook.Worksheets.Count + 1)
                
                ' 获取目标工作表的引用
                Set ws = workbook.Worksheets(workbook.Worksheets.Count)
                
                ' 将行数累加到endRow
                endRow = endRow + 1
            End If
            
            ' 关闭打开的工作簿
            subWorkbook.Close False
        End If
    Next file
    
    ' 保存结果到新工作簿
    workbook.SaveAs Filename:="结果.xlsx", FileFormat:=xlOpenXMLWorkbook
    ' 关闭Excel应用
    excelApp.Quit
    
    ' 清理内存
    Set workbook = Nothing
    Set ws = Nothing
    Set excelApp = Nothing
End Sub

记得把"你的文件夹路径"替换为实际的文件夹路径。运行这段代码后，它会在指定文件夹下创建一个名为"结果.xlsx"的新文件，包含了所有子文件夹中`.xlsx`文件的"D1:E13"范围的数据。