首先将word模板中需要填写excel中数据的空白处用自己独特的字符串标记,比如 数据001 什么的.如下图: 这样,就可以用vba搜寻这些自己独特的标记来根据excel内容填充word了. 第一个填好的如下图: 而excel中数据如下图: 然后代码如下: Sub 生成Word文件_Click() Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, i, j Dim Word表格行号, Word表格列号, Excel数据表列号
在小公司的话,总是会有要开发去导入历史数据(数据从旧系统迁移到新系统上)的时候.这个时候,现场实施或客户会给你一份EXCEL文档,里面包含了一些别的系统上的历史数据,然后就让你导入到现在的系统上面去. 且不说表数据结构的不同了,这个协调过程就能用大量的篇幅去说故事,这里只假设已经将别的系统上的历史数据整理成了适合导入当前系统的数据.如何高效地完成这项导入工作,就是这里讨论的议题:使用EXECL表格中的数据快速生成SQL语句. 因为导入数据就是往表里面插入新数据,因此用的是INSERT语句. IN
今天项目组的一个同事问我如何快速的找到一个Excel中第3列和第5列的值完全重复的值,我想了想虽然Excel中自带查找重复值的功能,但是好像只能对同一列进行比较,所以就写了一个VBA进行处理,VBA非常简单,但效果不错. Sub FindDuplicatesInColumn() Dim lastRow As Long Dim matchFoundIndex As Long Dim iCntr As Long lastRow = ' 初始化临时列, 第7列用来存放结果,第8列将3 5两列的值拼接起
SELECT A.Hawb, ( SELECT GoodsNameCn+char(10) FROM HawbBody hl WHERE hl.Hawb=A.Hawb FOR XML PATH('') ) AS GoodsNameCn FROM HawbBody A GROUP BY A.Hawb 重点是 这个 char(10) 简单测试代码如下: SELECT 'aa'+char(10)+'bb'+char(10)+'cc'+char(10)+'dd'+char(10)+'ee'+char(10