【python】【excel】获取文件夹中所有子文件的文件名，填写在一个excel中，对文件超级链接

step1

code

import os
import csv
from openpyxl import Workbook

def list_files(directory, file_paths):
    for entry in os.scandir(directory):
        if entry.is_dir():
            file_paths = list_files(entry.path, file_paths)
        else:
            file_paths.append(entry.path)
    return file_paths

source_folder = "替换为自己的文件夹"
output_file = "file_list.xlsx"

file_list = list_files(source_folder, [])

wb = Workbook()
ws = wb.active
ws.title = "File List"

ws.cell(row=1, column=1, value="文件名")
ws.cell(row=1, column=2, value="文件链接")

for idx, file_path in enumerate(file_list, start=2):
    file_name = os.path.basename(file_path)
    ws.cell(row=idx, column=1, value=file_name)
    ws.cell(row=idx, column=2, value=file_path)

wb.save(output_file)

效果

改进

将第二列地址以超级链接的形式插入第一列文字中

代码

import os
from openpyxl import Workbook
from openpyxl.utils import FORMULAE

def list_files(directory, file_paths):
    for entry in os.scandir(directory):
        if entry.is_dir():
            file_paths = list_files(entry.path, file_paths)
        else:
            file_paths.append(entry.path)
    return file_paths
#此处需要替换
source_folder = "文件夹地址"
output_file = "file_list.xlsx"

file_list = list_files(source_folder, [])

wb = Workbook()
ws = wb.active
ws.title = "File List"

ws.cell(row=1, column=1, value="文件名（链接）")

for idx, file_path in enumerate(file_list, start=2):
    file_name = os.path.basename(file_path)
    hyperlink_formula = f'=HYPERLINK("{file_path}", "{file_name}")'
    ws.cell(row=idx, column=1).value = hyperlink_formula

wb.save(output_file)

在表格内使用公式提取需要字段

文件命名规律

文件名是第一个“-”之后，和第一个“（”中间的文字部分

excel内公式

首先，可以使用MID函数来获得第一个“-”之后的文本部分，公式如下：

=MID(A1,FIND("-",A1)+1,LEN(A1)-FIND("-",A1)-1)

其中，A1是包含HYPERLINK公式的单元格。该公式使用FIND函数找到第一个“-”的位置，并使用MID函数从该位置开始提取文本。

接下来，您可以使用FIND和LEFT函数来获得第一个“（”之前的文本部分，公式如下：

=LEFT(A2,FIND("(",A2)-1)

其中，A2是上一个公式提取的文本。该公式使用FIND函数找到第一个“（”的位置，并使用LEFT函数从该位置之前提取文本。

最终，您可以将这两个公式组合起来，以便提取您需要的文本，公式如下：

=LEFT(MID(A1,FIND("-",A1)+1,LEN(A1)-FIND("-",A1)-1),FIND("（",MID(A1,FIND("-",A1)+1,LEN(A1)-FIND("-",A1)-1))-1)

该公式首先使用MID和FIND函数提取第一个“-”之后的文本部分，然后再使用FIND和LEFT函数提取第一个“（”之前的文本部分。

请注意，这些公式假设所提供的公式中的文件名始终包含一个“-”和一个“（”，并且第一个“（”之前没有其他“-”符号。