weixin_38263568的博客

周末师姐让我帮忙处理一下之前的医疗数据，数据都存放在excel文件中，需要从里面提取出部分数据并转化为她指定的格式。总共有20几个文件，如果手动处理的话，不仅效率低下而且很繁杂，于是我编写了python脚本来完成了本次的工作，下面记录一下相关的知识，并做一个总结。我用到的库是：openpyxl首先安装openpyxlpip3 install openpyxl #安装openpyxl...

Function Create_New_Workbook() '新建工作薄 Application.ScreenUpdating = False Dim gzb As Workbook Dim mypath, i, wb mypath = ThisWorkbook.Path '获取当前工作薄所在的路径 Set wb = GetObject(mypa

最近因为工作需要读取excel数据进行分析，对c#读取excel进行了学习，总结一下，方便以后查找。下面的类具备打开当前文件夹下指定名字的excel文件，读取指定单元格内容，关闭excel文件的功能。需要添加对Microsoft.Office.Interop.Excel组件的引用，代码如下：using Microsoft.Office.Interop.Excel;using

最近在做水质分析数据录入的时候，需要根据监测井编号到多个excel表中查询该编号对应的井的水质分析数据，并将单口井的水质分析数据复制到新表中。由于检测中心给的水质分析数据很多，而且还分布在不同的工作薄中，一个个得查询再复制不仅工作量巨大、而且容易出错。因此编写了以下代码，让这部分工作实现自动化。这部分内容涉及的知识点有：多工作薄交叉复制、获取某一目录下所有excel工作薄、获取某一

本代码提供一个示例代码功能：以当前工作薄sheet1的第一列中的数据为名，新建工作薄（有多少列建多少工作薄），并将当前工作薄sheet2中的数据复制到新建的工作薄中；复制规则为：当前工作薄sheet2中第k列的数据复制到第k个新建的工作薄的sheet1中涉及知识：vba在指定目录新建工作薄、对指定路径中的工作薄的特定工作表进行操作Sub test() Dim row, pat

Sub test()Dim st As Worksheet, sp As ShapeFor Each st In ThisWorkbook.WorksheetsFor Each sp In st.Shapessp.PictureFormat.TransparencyColor = RGB(255, 255, 255)NextNextEnd Sub