Mia妈妈加油呀

摘要： data = ['a','b'] for index, i in enumerate(data): c = sheet.Cells(38 + index, 'A') c.Value = i c.HorizontalAlignment = -4131 # 水平左对齐 c.VerticalAlignme 阅读全文

摘要： a = sheet.Range("A2")pic = sheet.Pictures().Insert(pngfile)r = pic.ShapeRangeh = 450scale = r.Width / r.Height # 等比例缩放尺度。w = int(h * scale) # 获得相应等比例的 阅读全文

摘要： from win32com.client import Dispatch if __name__ == '__main__': excel = Dispatch("ket.Application") # 启动wps excel 应用。Microsoft excel用Excel.Application 阅读全文

摘要： for c in doc.Tables: for i in c.Range.Cells: print([i.Range.Text]) # 必须转换为列表，否则里面包含的特殊字符如回车换行会导致文本打印不出来 if "基础信息" in i.Range.Text: i.Range.Font.Color 阅读全文

摘要： from win32com import client # *** wps用kwps.Application;Microsoft word用Word.Application *** doc_app = client.Dispatch("kwps.Application") doc_app.Visib 阅读全文

摘要： from win32com.client import Dispatch, constants import win32clipboard as wc doc_app = Dispatch("kwps.Application") doc_app.Visible = False doc = doc_a 阅读全文

摘要： import os from win32com.client import Dispatch excel = Dispatch("ket.Application") excel.Visible = False doc_app = Dispatch("kwps.Application") doc_ap 阅读全文

摘要： from win32com import client import win32clipboard as wc excel = client.Dispatch("ket.Application") excel.Visible = False wb = excel.Workbooks.Open(r'C 阅读全文

摘要： 练习： # 遍历可以查找出所有包含关键字的段落 # 去掉遍历只查找到第一个包含关键字的段落 fullrange = doc.Range() for i in range(4): fullrange.Find.Execute('测试') prange= fullrange.Paragraphs(1) 阅读全文

摘要： 1. 单元格区域清除格式，清除批注，清除内容，清除全部 2. 单元格区域的复制，把B2:D3区域，复制到B5 3. 单元格区域的复制。复制到sheet2下的B5. 4. 复制粘贴单元格格式 阅读全文