win32com模块

import win32com.client as win32

建立一个可视的excel

app = 'Excel'
xl = win32.gencache.EnsureDispatch('%s.Application' % app)
ss = xl.Workbooks.Add()
sh = ss.ActiveSheet
"""
0代表隐藏对象，但可以通过菜单再显示
-1代表显示对象
2代表隐藏对象，但不可以通过菜单显示，只能通过VBA修改为显示状态
 """
 xl.Visible = True

编辑excel

sh.Cells(1,1).Value =1             #A1赋值为1
sh.Cells(1,1).Font.Bold = True     #加粗
sh.Range(sh.Cells(1, 1),sh.Cells(1,5)).Font.Name = "Times New Roman"#选择指定区域
sh.Range(sh.Cells(1, 1), sh.Cells(1,5)).Font.Size = 10.5
sh.Cells(row, col).Name = "Arial"#字体类型
sh.Rows(row).Delete()#删除行  
sh.Columns(row).Delete()#删除列

sh.Range(sh.Cells(1,1),sh.Cells(1,1)).HorizontalAlignment = 
win32.constants.xlCenter #水平居中xlCenter

sh.SaveAs(path+'demo.xls')
ss.Close(False)
xl.Application.Quit()

from win32com.client import Dispatch    
import win32com.client    
class easyExcel:     
      def __init__(self, filename=None):  #打开文件或者新建文件（如果不存在的话）  
          self.xlApp = win32com.client.Dispatch('Excel.Application')    
          if filename:    
              self.filename = filename    
              self.xlBook = self.xlApp.Workbooks.Open(filename)    
          else:    
              self.xlBook = self.xlApp.Workbooks.Add()    
              self.filename = ''  
        
      def save(self, newfilename=None):  #保存文件  
          if newfilename:    
              self.filename = newfilename    
              self.xlBook.SaveAs(newfilename)    
          else:    
              self.xlBook.Save()        
      def close(self):  #关闭文件  
          self.xlBook.Close(SaveChanges=0)    
          del self.xlApp    
      def getCell(self, sheet, row, col):  #获取单元格的数据  
          sht = self.xlBook.Worksheets(sheet)    
          return sht.Cells(row, col).Value    
      def setCell(self, sheet, row, col, value):  #设置单元格的数据    
          sht = self.xlBook.Worksheets(sheet)    
          sht.Cells(row, col).Value = value  
      def setCellformat(self, sheet, row, col):  #设置单元格的数据样式
          sht = self.xlBook.Worksheets(sheet)    
          sht.Cells(row, col).Font.Size = 15#字体大小  
          sht.Cells(row, col).Font.Bold = True#是否黑体  
          sht.Cells(row, col).Name = "Arial"#字体类型  
          sht.Cells(row, col).Interior.ColorIndex = 3#表格背景  
          #sht.Range("A1").Borders.LineStyle = xlDouble  
          sht.Cells(row, col).BorderAround(1,4)#表格边框  
          sht.Rows(3).RowHeight = 30#行高  
          sht.Cells(row, col).HorizontalAlignment = -4131 #水平居中xlCenter  
          sht.Cells(row, col).VerticalAlignment = -4160 #  
      def deleteRow(self, sheet, row):  
          sht = self.xlBook.Worksheets(sheet)  
          sht.Rows(row).Delete()#删除行  
          sht.Columns(row).Delete()#删除列
      def getRange(self, sheet, row1, col1, row2, col2):  #获得一块区域的数据，返回为一个二维元组    
          sht = self.xlBook.Worksheets(sheet)  
          return sht.Range(sht.Cells(row1, col1), sht.Cells(row2, col2)).Value    
      def addPicture(self, sheet, pictureName, Left, Top, Width, Height):  #插入图片    
          sht = self.xlBook.Worksheets(sheet)    
          sht.Shapes.AddPicture(pictureName, 1, 1, Left, Top, Width, Height)    
                
      def cpSheet(self, before):  #复制工作表  
          shts = self.xlBook.Worksheets    
          shts(1).Copy(None,shts(1))

      def inserRow(self,sheet,row): #插入一个工作表
          sht = self.xlBook.Worksheets(sheet)
          sht.Rows(row).Insert(1)

      #下面是一些测试代码。
if __name__ == "__main__":    
      #PNFILE = r'c:/screenshot.bmp'  
      xls = easyExcel(r'd:\jason.li\Desktop\empty_book.xlsx')     
      #xls.addPicture('Sheet1', PNFILE, 20,20,1000,1000)    
      #xls.cpSheet('Sheet1')  
      xls.setCell('sheet1',2,'A',88)  
      row=1  
      col=1  
      print("*******beginsetCellformat********")  
      # while(row<5):
      #   while(col<5):
      #       xls.setCellformat('sheet1',row,col)
      #       col += 1
      #       print("row=%s,col=%s" %(row,col))
      #   row += 1
      #   col=1
      #   print("*******row********")
      # print("*******endsetCellformat********")
      # print("*******deleteRow********")
      # xls.deleteRow('sheet1',5)
      xls.inserRow('sheet1',7)
      xls.save()    
      xls.close()

from win32com.client import Dispatch
import win32com.client
import time

# 获取excel 对象

excel = win32com.client.Dispatch('Excel.Application')

"""
0代表隐藏对象，但可以通过菜单再显示
-1代表显示对象
2代表隐藏对象，但不可以通过菜单显示，只能通过VBA修改为显示状态
"""
excel.Visible = -1

# 打开excel

myBook = excel.Workbooks.Open("e:/接口测试用例.xlsx")

# sheet页，可以是序号，也可以是名称
mySheet = myBook.Worksheets("过程结果")
#excel的下标都是从1开始的
#mySheet = myBook.Worksheets(1)

time.sleep(2)

# 删除行，清除历史数据
mySheet.Rows("2:500").delete
#mySheet.Columns("1").delete

# 获取当前sheet页有效的行数
LastRow = mySheet.usedrange.rows.count
print("该sheet页目前已经存在", LastRow, "行")

# 获取当前sheet页有效的列数
LastColumn = mySheet.usedrange.columns.count
print(LastColumn)

# 焦点转移到sheet页
mySheet.Activate
# 给单元格赋值 Cells(行，列)
mySheet.Cells(2, 2).Value = "使用win32com"
# 设置单元格字体位红色
mySheet.Cells(2, 2).Font.Color = -16776961
# 设置单元格字体为粗体
mySheet.Cells(2, 2).Font.Bold = True
# 设置单元格字体
mySheet.Cells(2, 2).Font.Name = "微软雅黑"

time.sleep(1)

mySheet.Activate
mySheet.Cells(2, 3).Value = "使用win32com"
# 设置单元格字体位绿色
mySheet.Cells(2, 3).Font.Color = -11489280
mySheet.Cells(2, 3).Font.Bold = True

# 获取一个单元格的值
aCellValue=mySheet.Cells(2, 3).Value
print(aCellValue)


# 获取一个范围的值,类型为嵌套的list
range_list=mySheet.Range(mySheet.Cells(1, 1), mySheet.Cells(5, 5)).Value

# 给一个范围赋值，输入的值应该为嵌套的list
mySheet.Range(mySheet.Cells(6, 1), mySheet.Cells(10, 10)).Value = range_list
# 改变一个范围的属性值
mySheet.Range(mySheet.Cells(6, 1), mySheet.Cells(10, 10)).Font.Color = -11489280

# 如果范围是一行的话，赋值应该使用非嵌套的list，例如：
row_v=(1,2,3,4)
mySheet.Range(mySheet.Cells(11, 1), mySheet.Cells(11, 4)).Value = row_v

# 给整个一行赋值，慎用。。。
mySheet.Rows(12).Value = row_v
print(range_list)

#单元格添加颜色
WinSheet.Cells(1, 1).Interior.ColorIndex = 3
#或者Range("A1") 
WinSheet.Range("A1").Interior.ColorIndex = 3   
#3=红色,不同的值代表不同的颜色,可以去查看msdn  vba 文档,这就不详细说了
 
#再是RGB调色方式#Cells 和 Range都可以,Range可以选择一大片区域
WinSheet.Cells(1, 1).Interior.Color = RGB(0, 0, 255) 
#或
WinSheet.Range("A1").Interior.Color = RGB(255, 0, 255) 
#字体的颜色也是一样
WinSheet.Cells(1, 1).Font.ColorIndex = 3
WinSheet.Cells(1, 1).Font.Color = RGB(0, 0, 255)

# 保存
myBook.save

# 退出
myBook.close

import win32com.client as win32

# add_a_workbook
excel = win32.gencache.EnsureDispatch('Excel.Application')
excel.Visible = True
"""
    0代表隐藏对象，但可以通过菜单再显示
    -1代表显示对象
    2代表隐藏对象，但不可以通过菜单显示，只能通过VBA修改为显示状态
"""
excel.Application.ScreenUpdating = False  # 关闭屏幕更新
excel.DisplayAlerts = 0 # 不警告

wb = excel.Workbooks.Add() # 新建工作薄
# wb = excel.Workbooks.Open('workbook1.xlsx')
    # 打开已存在的工作薄
wb.SaveAs('add_a_workbook.xlsx') # 新建的用SaveAa(),否则用Save()
# wb.Close(SaveChanges=0) 
excel.Application.Quit()

# add_a_worksheet
sht = wb.Worksheets.Add()   
# wb.Worksheets("Sheet1")  # 已存在
# wb.Worksheets(1)  # 序号     
sht.Name = 'sheet1' 
sht.Range("A1").Value = 1

# Range and Offset
sht.Cells(1,1).Value = 'A1'   # 从1开始

sht.Cells(1,1).Offset(2,4).Value = "D2"  # ?
    # offset中的参数自身就算一行一列,这是与VBA不同处
    
sht.Range("A2").Value = 'A2'
sht.Range("A3:B4").Value = 'A3:B4'
sht.Range("A6:B7,A9:B10").Value = "A6:B7,A9:B10"
sht.Range(sht.Cells(1,1),sht.Cells(3,3)).Value = rglist # 嵌套的列表

# cell_color and Format
for i in range (1,21):
    sht.Cells(i,1).Value = i
    sht.Cells(i,1).Interior.ColorIndex = i
    
sht.Cells(3,2).Font.Color = -16776961

sht.Cells(3,2).Font.Bold = True
sht.Cells(3,2).Font.Name = '宋体'

sht.Range("A1:A5").HorizontalAlignment = win32.constants.xlRight
    # 返回或设置指定对象的水平对齐方式    靠右    
sht.Rows(1).VerticalAlignment = win32.constants.xlCenter
    # 返回或设置指定对象的垂直对齐方式  居中
    
sht.Rows.AutoFit() # 可自动调整工作表中的所有行   

sht.Range("B1:B5").NumberFormat = "$###,##0.00"        
    
# autoFill
sht.Range("A1:A2").AutoFill(sht.Range("a1:a10"),win32.constants.xlFillDefault)
    # 将A1:A2自动填充到A1:A10

# Column/Row Formatting
sht.Columns(1).ColumnWidth = 1
sht.Range("B:B").ColumnWidth = 1

sht.Columns.AutoFit() # 可自动调整工作表中的所有列

sht.Rows("2:500").Delete

sht.Rows(12).Value = '' # 整行
sht.Range('E2').EntireColumn.Address    # $E:$E 整列
sht.Range('E2').EntireRow.Address       # $2:$2 整行

  # UsedRange       
row = len(sht.UsedRange.Rows)  # 已使用的最大区域的行数
    # sht.UsedRange.Rows.Count # 抛异常 无此属性
  
sht.UsedRange.Rows(1).Value[0]
sht.UsedRange.Rows.Value
sht.UsedRange.Address
sht.UsedRange.Cells(1).Address # 绝对地址      
sht.UsedRange.Cells(1).Row     # 已用区域的起始点行号

  # CurrentRegion
sht.Range('E2').CurrentRegion.Count  # UsedRange中无此属性
    # 区域中所有单元格总数
sht.Range('E2').CurrentRegion.Rows.Count
    # 区域中行数和

# Intersect     # (同工作表中的)参数的重叠区域
excel.Application.Intersect(sht.Range('a2:b3'),sht.Range('b3:c4')).Address
    # $B$3
    
# End
sht.Cells(2,1).End(win32.constants.xlDown).Offset(2,1).Value = ''
sht.Rows(2).End(win32.constants.xlToRight).Address
    # 函数意义及方向同VBA： xlToLeft/ xlUp / xlToRight/ xlDown
    
# Resize # ？
sht.Range('E2').Resize(2,2).Address  # $F$3
sht.Range('E2').Offset(2,2).Address  # $F$3
    # Resize并未扩大区域,效果与Offset效果,为何?(在wps中测试)        

# Activate/Select 焦点转移
sht.Activate
sht.Select()
excel.Selection.ColumnWidth = 4 
    # 只能是excel !!

# Names
wb.Names.Count      # sht.Names.Count 下同
wb.Names(1).Name
wb.Names(1).Visible = False     # 隐藏
sht.Names(1).Name = 'date'      # 重命名

sht.Range('A2').Name = 'STD'  
print(sht.Range('STD').Value)
print(sht.Evaluate('STD'))   # 同上一行

wb.Names.Add(Name="abc",RefersTo="=sheet1!$A$1:$J$1",Visible=False)
    # 创建新的命名
    # RefersTo中不加工作表名时为全局命名(整个工作簿可用),否则为局部命名
sht.Names.Add("abc","=$A$1:$J$1",True)  
    # 创建sht中的局部命名
    
print(help(sht.Names.Add)) # 查看Add函数有哪些参数


# Copying Data from Worksheet to Worksheet

sht.Range('A2:J10').Formula = "=row()*column()" # 公式

wb.Worksheets.FillAcrossSheets(wb.Worksheets("Sheet1").Range("A2:J10"))        
    # 将sheet1中A2:J10的数据复制到wb中所有工作表的相同位置
    
    # FillAcrossSheets：将单元格区域复制到集合中所有其他工作表的同一位置
    # 还有一可选参数,指定如何复制区域:
    #   xlFillWithAlldefault/xlFillWithContents/xlFillWithFormats(详VBA)

sht.Copy(None,sht)  # 参数：Copy(Before,After) 
    # 复制工作表
sht.UsedRange.Rows(1).Copy(sht.Range('F2')
    # 将已用区域的第一行数据复制到从F2开始的单元格区域(自动扩展)

sht.Range("B2:K2").Value = [i for i in range(1,11)]
    # 同一行赋值
    
func = excel.Application.WorksheetFunction.Transpose
    # VBA中的转置函数

sht.Range("B2:B11").Value = list(zip([i for i in range(1,11)]))
    # 同一列赋值 变为多行一列
sht.Range("B2:B11").Value = func([i for i in range(1,11)])
    # 同上

sht.Range('f1:h1').Value = func(sht.Range('b3:b5').Value)
    # 同一行赋值 将列中的值倒置
    
sht.Range("B2:E4").Value = sht.Range("B6:E8").Value
    # 多维 对 多维
    
# FormatConditions: 条件格式 参见VBA

sht.Range("B2:K33").Select()
excel.Selection.FormatConditions.AddColorScale(ColorScaleType = 3)
    # 添加三色度渐变刻度 二色度参数为2

rng = sht.UsedRange
CON = win32.constants
rng.FormatConditions.Add(CON.xlCellValue,CON.xlEqual,'A')  # 值 等于A
    # sht/wb 无FormatConditions属性
rng.FormatConditions(rng.FormatConditions.Count).Interior.ColorIndex = 3
    # 给前面新建的添加格式 前面新建的在最末
  或：
fmt = rng.FormatConditions.Add(CON.xlCellValue,CON.xlEqual,'A')
fmt.Interior.ColorIndex = 3
fmt.Border  # 抛异常      
excel.Selection.FormatConditions(excel.Selection.FormatConditions.Count).SetFirstPriority()

[csc1,csc2,csc3] = [excel.Selection.FormatConditions(1).ColorScaleCriteria(n) for n in range(1,4)]
csc1.Type = win32.constants.xlConditionValueLowestValue
csc1.FormatColor.Color = 13011546
csc1.FormatColor.TintAndShade = 0

# AddComment 添加批注
sht.Cells(1).AddComment("abc")      # 同一地址不能重复添加
sht.Cells(1).Comment.Visible = True # 批注显示或隐藏
sht.Cells(1).Comment.Text('ppp')    # 更改批注内容
sht.Cells(1).Comment.Delete()       # 删除

# AutoFilter 自动筛选
sht.AutoFilterMode = False  # 去掉原来的筛选
sht.UsedRange.Columns(5).AutoFilter(1,"=C")
    # 参见VBA
    
# FileDialog 文件对话框--->返完整路径
fdag = excel.Application.FileDialog(3) 
    # 参数： 3：文件选择 设置后可多选
             4：文件夹选择
             1：文件打开
fdag.AllowMultiselect= True # 多选设置 文件夹时无效
if fdag.show  == -1:        # 对话框点"确定"时返-1
    print(list(fdag.SelectedItems))  # 选择结果

# PageSetup 页面设置
pgs = sht.PageSetup
pgs.Zoom = 150  # 缩放比例 10--400% 之间
pgs.PrintArea = sht.UsedRange.Address  # 打印区域
pgs.Orientation = win32.constants.xlLandscape  
    # 横向打印  纵向为：xlPortrait
sht.PrintPreview(True) # 打印预览

将工作表转化为JSON

import _wh_lib as wh
import json

wps = win32.gencache.EnsureDispatch('Excel.Application')
wps.Visible = True

wb = wps.Workbooks.Open('D:\ABC分析.xls')
sht = wb.Worksheets(1)
rows = sht.UsedRange.Rows

res = list()
json.encoder.FLOAT_REPR = lambda x:format(x,'.4f') 
    # 设置小数位
with wh.TimeTest():
    #--------------------------
    keys = rows(2).Value[0]  # 列表元素为字典的key
        # rows的参数从1开始
    for i in range(3,len(rows)):
        res.append(OrderedDict(zip(keys,rows(i).Value[0])))
    
    s = json.dumps(res,indent=4,ensure_ascii=False)
    print(s)        
    # -------下面的算法快得多-----
    # vals = sht.UsedRange.Rows.Value  # 一次获取全部值
    # keys = vals[1]  # 列表从0开始计数
    # for row in range(2,len(vals)): 
        # res.append(OrderedDict(zip(keys,vals[row])))

    # s = json.dumps(res,indent=4,ensure_ascii=False)
    # print(s)