1.プログラムの実施をダブルクリックして、確認したいディレクトリを入力する（XLSX下のすべてのサブディレクトリが含まれ、XLS）
イラストでExcel、プログラム出力ファイルseekfile_result.txt、イラストや表示位置原稿テーブルおよび図の位置場合2.確認。
インポートのOS
インポートwin32com.clientの
輸入xlrd
デフrun_fast_scandir（DIR、KEY1、KEY2）：＃dirを：STR、EXT：リスト搜索文件
サブフォルダ、ファイル= []、[]
os.scandirでF（DIR）のために：
もしf.is_dir（）：
subfolders.append（ f.path）
場合f.is_file（）：
もしf.name.lowerでf.name.lowerでkey1.lower（）（）またはkey2.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デフget_xls_sheets（xlsfile）：シートテーブル＃は、ファイルを取得
XLS = xlrd.open_workbook（xlsfile、ON_DEMAND = TRUE）
戻り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()
もし名前 == " メイン： "
seek_path =入力（"入力検索パス（のような：D：\テスト）："）
のサブフォルダ、ファイル= run_fast_scandir（seek_path、 "XLSX"、 "XLS"）＃ "のxlsx"、 "XLS "为要查询的扩展名
I = -1
result_file =オープン（" seekfile_result.txt」、 "+"）
fに対するファイルで：
I + = 1
xls_sheets = get_xls_sheets（ファイル[i]）と
xls_sheetsでxls_sheet用：
check_pic（ファイル[i]は、xls_sheet）
result_file.close（）