需求:为一个文件夹下的所有EXCEL文件添加密码保护,并且在每个文件中添加一个Sheet页,在这个sheet业中展示公司的数据保密规定。
最终源码:
# coding=utf-8import os, sysimport win32com.clientdef pwd_xlsx(old_filename,new_filename,pwd_str,pw_str=''):xcl = win32com.client.Dispatch("Excel.Application")wb = xcl.Workbooks.Open(old_filename, False, False, None, pw_str)wb.Worksheets.Add().Name = u"数据保密规定" #为文件添加一个名为数据保密规定的sheet页sheets = wb.Worksheets(u"数据保密规定")sheets.Move(wb.Worksheets(1), None) #把前两步添加的sheet页的顺序调成第一a = sheets.Range("A1")t = sheets.Range("I35")pic = sheets.Shapes.AddPicture("D:\\excelInput\\bmxy.jpg",1,1,a.Left,a.Top,t.Left,t.Top) # 在添加的sheet页中插入一个图片用来展示数据保密规定xcl.DisplayAlerts = Falsewb.SaveAs(new_filename, None, pwd_str, '')xcl.Quit()if __name__ == '__main__':dirs = os.listdir("D:\\excelInput") #要处理的文件夹pwd_str = '123456' # 给文件加密的密码print("start with password:" +pwd_str)for file in dirs: if file.split('.')[-1] != "jpg":old_filename = 'D:\\excelInput\\' + filenew_filename = 'D:\\excelOutput\\' + filepwd_xlsx(old_filename,new_filename,pwd_str)print(file+"......100%")print("finish....")