1 from win32com.client import Dispatch 2 import win32com.client 3 import time 4 5 # 获取excel 对象 6 7 excel = win32com.client.Dispatch(‘Excel.Application‘) 8 9 """ 10 0代表隐藏对象,但可以通过菜单再显示 11 -1代表显示对象 12 2代表隐藏对象,但不可以通过菜单显示,只能通过VBA修改为显示状态 13 """ 14 excel.Visible = -1 15 16 # 打开excel 17 18 myBook = excel.Workbooks.Open("e:/接口测试用例.xlsx") 19 20 # sheet页,可以是序号,也可以是名称 21 mySheet = myBook.Worksheets("过程结果") 22 #excel的下标都是从1开始的 23 #mySheet = myBook.Worksheets(1) 24 25 time.sleep(2) 26 27 # 删除行,清除历史数据 28 mySheet.Rows("2:500").delete 29 #mySheet.Columns("1").delete 30 31 # 获取当前sheet页有效的行数 32 LastRow = mySheet.usedrange.rows.count 33 print("该sheet页目前已经存在", LastRow, "行") 34 35 # 获取当前sheet页有效的列数 36 LastColumn = mySheet.usedrange.columns.count 37 print(LastColumn) 38 39 # 焦点转移到sheet页 40 mySheet.Activate 41 # 给单元格赋值 Cells(行,列) 42 mySheet.Cells(2, 2).Value = "使用win32com" 43 # 设置单元格字体位红色 44 mySheet.Cells(2, 2).Font.Color = -16776961 45 # 设置单元格字体为粗体 46 mySheet.Cells(2, 2).Font.Bold = True 47 # 设置单元格字体 48 mySheet.Cells(2, 2).Font.Name = "微软雅黑" 49 50 time.sleep(1) 51 52 mySheet.Activate 53 mySheet.Cells(2, 3).Value = "使用win32com" 54 # 设置单元格字体位绿色 55 mySheet.Cells(2, 3).Font.Color = -11489280 56 mySheet.Cells(2, 3).Font.Bold = True 57 58 # 获取一个单元格的值 59 aCellValue=mySheet.Cells(2, 3).Value 60 print(aCellValue) 61 62 63 # 获取一个范围的值,类型为嵌套的list 64 range_list=mySheet.Range(mySheet.Cells(1, 1), mySheet.Cells(5, 5)).Value 65 66 # 给一个范围赋值,输入的值应该为嵌套的list 67 mySheet.Range(mySheet.Cells(6, 1), mySheet.Cells(10, 10)).Value = range_list 68 # 改变一个范围的属性值 69 mySheet.Range(mySheet.Cells(6, 1), mySheet.Cells(10, 10)).Font.Color = -11489280 70 71 # 如果范围是一行的话,赋值应该使用非嵌套的list,例如: 72 row_v=(1,2,3,4) 73 mySheet.Range(mySheet.Cells(11, 1), mySheet.Cells(11, 4)).Value = row_v 74 75 # 给整个一行赋值,慎用。。。 76 mySheet.Rows(12).Value = row_v 77 print(range_list) 78 79 #单元格添加颜色 80 WinSheet.Cells(1, 1).Interior.ColorIndex = 3 81 #或者Range("A1") 82 WinSheet.Range("A1").Interior.ColorIndex = 3 83 #3=红色,不同的值代表不同的颜色,可以去查看msdn vba 文档,这就不详细说了 84 85 #再是RGB调色方式#Cells 和 Range都可以,Range可以选择一大片区域 86 WinSheet.Cells(1, 1).Interior.Color = RGB(0, 0, 255) 87 #或 88 WinSheet.Range("A1").Interior.Color = RGB(255, 0, 255) 89 #字体的颜色也是一样 90 WinSheet.Cells(1, 1).Font.ColorIndex = 3 91 WinSheet.Cells(1, 1).Font.Color = RGB(0, 0, 255) 92 93 # 保存 94 myBook.save 95 96 # 退出 97 myBook.close
时间: 2024-09-30 23:51:08