使用Python向已有Excel工作表sheet写入数据框dataframe数据
项目场景：
通常使用SQL、Python处理完数据后会将需要导出的数据输出成CSV格式，然后必要时使用Excel模板进行格式上的调整（供业务人员查看），或者输入到Excel模板进一步计算，该步骤一般都是人工操作，对Python最后的输出操作优化可以提高一点工作效率。
具体示例
原有工作簿有两个工作表sheet1,sheet2，sheet1带有格式，需要从Python导出数据往里面写入，sheet2是对sheet1其中两列进行计算的工作表，已写入公式



sheet2设定带有公式计算



Python中有该数据框数据需要输出至sheet1
data=pd.DataFrame({'年份':[1995,1996,1997,1998,1999],'地区':['广州市','广州市','广州市','广州市','广州市'],
                   '性别':['男','男','男','男','男'],'婚姻':['未婚','未婚','未婚','未婚','未婚'],'AUM':[200000,200001,200002,200003,200004],
                  '人数':[40,41,42,43,44]})

工具
openpyxl模块：可以使往Excel文件追加数据时而不覆盖文件写入的模块；

pandas模块：to_excel()将dataframe直接整个输出到Excel的函数
import pandas as pd
from openpyxl import load_workbook,Workbook 

测试时注意每一次都需要完整读入与关闭（load与save,close），否则改动后会发现结果无变化，原因是读入的是前一次测试的结果.
解决方法

方法1

由于某些业务场景可能需要逐个单元格读入到已有表格中的某些位置，使用两层循环的方式逐格读入数据框的值。

需要注意的是表格位置与Python中数据框行列的起始位置的差异、range(m,n)实际输出的是从m至n-1的值。

##先读入文件路径
filepath=r'table.xlsx'
writer = pd.ExcelWriter(filepath, engine='openpyxl')
writer.book=load_workbook(filepath)

ws=writer.book["Sheet1"]#指定工作表
#原表格sheet1表头保留，因此读入表格从第2行开始，列起始列依然为1
#dataframe对象行列从0开始，因此需要对行列标做减法对应上
for i in range(2,7):
    for j in range(1,7):
        ws.cell(row=i,column=j).value=data.iloc[i-2,j-1]
writer.save()#保存后才能成功改动
writer.close()

结果：

sheet1成功追加更新，表头未有变化



sheet2计算得出结果



方法2：

整个dataframe写入到sheet1中，覆盖sheet1中的数据。

但原有表格格式样式发生部分变化（行标题字体从微软雅黑变成了宋体，但单元格颜色和加粗无变化）

##先读入文件路径
filepath=r'table.xlsx'
writer = pd.ExcelWriter(filepath, engine='openpyxl')
writer.book=load_workbook(filepath)

writer.sheets={ws.title:ws for ws in writer.book.worksheets}
data.to_excel(writer,"Sheet1",index=False)#行序号不需要，设定为index=False
writer.save()
writer.close()

sheet1覆盖数据，更新成功，首行单元格格式无大变化，因此该操作不是重新另建一个sheet的结果



sheet2计算得出结果


writer.sheets={ws.title:ws for ws in writer.book.worksheets}

这句话是从别的博主中抄的，见下面参考链接，具体含义不明，如果删除掉这句话，继续执行后面的语句，原有的工作簿会多出一个sheet11，而不是在原有的sheet1中写入数据
见下面的参考链接

https://www.cnblogs.com/eternalpal/p/12920678.html

http://www.360doc.com/content/19/1228/21/644962_882790477.shtml

http://www.cocoachina.com/articles/93352

https://blog.csdn.net/miss_audrey/article/details/102741103

有时我们可能会在两种工作表中查找重复记录，当数据记录很多时，就必须通过简单的方法来实现。下面小编就与大家一起分享一下查看重复记录数据的方法，希望对大家有所帮助。





方法/步骤

 

为了讲解的需要，小编特别制作了如图所示的两个表格，在此小编特意将其中的一个表中的姓名做了部分修改。







 

在此我们需要从Sheet3工作表中查找出已存在于Sheet4工作表中姓名相同的记录。对此在Sheet3工作表对应列中输入以下“=if(B2=”。






 

然后切换至Sheet4工作表中，选择姓名区域，并按回车键。






 

在返回sheet3工作表后，补全公式“=if(B2=Sheet4!B2:B24,"是","否")”并按回车。






 

然后将光标移动到单元格右下角，当鼠标变成黑色十字时，拖动完成公式的复制。然后就实现了数据的对比操作，同时也找出了重复的数据。
 







 

Excel如何实现数据的对比呢？在利用Excel处理记录时，我们通过会面对一种情况，就是将两张工作表进行对比，以便从中找出不同记录或数据。此时情况特别适合验证信息的完整性以及检验数据的差异性方法。下面小编就为大家讲解一下具体的实现方法。
方法/步骤
1
通过要进行对比的两个工作表或多个工作表位于不同的文件中，我们首先要做的就是当多个要进行对比的Excel工作表数据复制粘贴到同一个工作表中，同时做好各个工作表的命名准备，以便能正确的区分数据的来源。
2
接下来确定数据“关键字”部分，即能够唯一标识记录的关键字组合，这样就可以在进行数据对比时，能够唯一的标记一条记录。比如，如图所示的“ID”和“姓名”就可以唯一标识一条记录。
3
接下来，我们还要确定一下，各个工作表数据行的范围以及要进行对比的关键字所在的位置信息。如图可知，
员工基础报表中数据范围为“3至12行”，关键字所在的位置为（i行1列）和（i行2列）。
员工待遇统计表中数据范围为“3至11行”，关键字所在的位置为（i行1列）和（i行2列）。
4
在本经验中，我们所要做的就是从表1中找出表2中已经存在的记录，并且做好相应的标记，以便供查看。为此，按键盘上的快捷组合键“Alt+F11”进入VBA编辑模式。或者切换至“开发工具”选项卡，点击“Visual Basic”按钮进入VBA环境。
有关“开发工具”选项卡的打开方法请参考栏目二部分。
5
右击“Microsoft Excel对象”，从弹出的右键菜单中选择“插入”->“模块”项。
6
接着输入如图所示的代码：
Sub 数据对比()
    Dim i As Integer
    Dim j As Integer    
    For i = 3 To 12        '员工基础报表数据范围
        For j = 3 To 11    '员工待遇统计表数据范围
         If Sheets("员工基础报表").Cells(i, 1) = Sheets("员工待遇统计表").Cells(j, 1) Then
            If Sheets("员工基础报表").Cells(i, 2) = Sheets("员工待遇统计表").Cells(j, 2) Then
               Sheets("员工基础报表").Cells(i, 8) = "已存在"   '存在时进行标记
            End If
         End If
        Next j
    Next i
End Sub


7
然后点击工具栏上的“调试运行”按钮。
8
待子过程运行结束后，返回Excel工作表进行查看，就会发现对比结果已经出来啦。基于此，我们可以进行更近一步的数据处理操作。顺便也将另一张工作表中的记录一同展示出来，以供参考。
END
打开“开发工具”选项卡的方法
点击“Office”按钮，从弹出的菜单中选择“Excel选项”按钮。
接着在打开的窗口中勾选“在功能区显示‘开发工具’选择卡”项即可。
Cells(1, 1).Font.ColorIndex = 3 '字的颜色号为3 红色
Cells(1, 1).Interior.ColorIndex = 3 ' 背景的颜色为3 红色
Cells(2, 1).Font.Color = RGB(0, 255, 0) '字的颜色绿色
Cells(2, 1).Interior.Color = RGB(0, 0, 255) '背景的颜色蓝色


Sub compare()
Dim i As Integer
Dim j As Integer
For i = 3 To 114 'Sheet1
For j = 1 To 74 'Sheet2
If Sheets("Sheet1").Cells(i, 2) = Sheets("线上数据").Cells(j, 3) Then
If Sheets("Sheet1").Cells(i, 3) = Sheets("线上数据").Cells(j, 2) Then
Sheets("Sheet1").Cells(i, 4) = "在线上查到数据了" '存在时进行标记
Sheets("Sheet1").Cells(i, 4).Font.ColorIndex = 10
Sheets("Sheet1").Cells(i, 4).Interior.ColorIndex = 2
End If
End If
Next j
Next i
End Sub

用kettle进行Excel文件输入，MySQL数据表输出
一， 连接数据库
按F3








二， Excel输入
首先将我们的Excel表在浏览里找到并添加（如果表的后缀名是.xsxl，选择2007年版本的Excel）

然后从工作表中选择表一



再获取字段，并进行预览



点确定
三，MySQL输出
首先输入自己的目标表**（指定数据库字段要勾选）**



然后执行SQL

执行成功后点击确定



在数据字段中获取字段



点击确定后启动


查看数据库中的表