1.双击执行程序，并输入要检查的目录（包含子目录下所有xlsx,xls）
2.如有检查到excel中有插图，程序输出文件seekfile_result.txt，并显示插图所在文件 sheet表及图所在位置。
import os import win32com.client import xlrd
def run_fast_scandir(dir, key1, key2): # dir: str, ext: list 搜索文件 subfolders, files = [], [] for f in os.scandir(dir): if f.is_dir(): subfolders.append(f.path) if f.is_file(): if key1.lower() in f.name.lower() or key2.lower() in f.name.lower(): files.append(f.path)
for dir in list(subfolders):
sf, f = run_fast_scandir(dir, key1, key2)
subfolders.extend(sf)
files.extend(f)
return subfolders, files
def get_xls_sheets(xlsfile): # 获取文件中的sheet表名 xls = xlrd.open_workbook(xlsfile, on_demand=True) return xls.sheet_names()
def check_pic(xlsfile, sheet): #检查Sheet中是否有图 x = win32com.client.Dispatch("Excel.Application") wb = x.Workbooks.Open(xlsfile) ws = wb.Sheets(sheet) for k in ws.Shapes: result_file.writelines(xlsfile + " "+sheet+" ") result_file.writelines(k.TopLeftCell.Address + "\n") wb = x.WorkBooks.Close()
if name == "main": seek_path = input("Input search path (like: d:\test):") subfolders,files = run_fast_scandir(seek_path, "xlsx", "xls") #"xlsx","xls"为要查询的扩展名 i = -1 result_file = open("seekfile_result.txt", "a+") for f in files: i += 1 xls_sheets = get_xls_sheets(files[i]) for xls_sheet in xls_sheets: check_pic(files[i], xls_sheet) result_file.close()
