当前所在位置: 首页 > 儿童教育 > 正文

Excel数据批量写入Word

2023-01-26 餐饮美食网 【 字体:

之前有两篇文章过Excel和Word数据交互的基础知识,这里说个实际遇到的综合案例,基本上将之前的知识点结合起来了。

一、实际案例引入

这次遇到的案例需求:将Excel数据批量写入Word。需要写入的内容如下图所示,红色框里的内容是需要写入word的。

我这里有很多个excel文件,每一个都需要打开把数据写入word。

写入之后的效果如下:

二、思路及代码

思路:循环打开Excel,先写订单号、厂款号、客款号。第二步需要通过find函数确定长款号表格的具体大小(为了将数据循环写入Word)。最后保存并关闭word。

具体代码如下:

Sub 提取数据()

Application.ScreenUpdating = False

Set doc = CreateObject(“word.application”)

doc.Visible = True

Set wd = doc.Documents.Add

pth = Application.GetOpenFilename(“文件(*.*),*.*”, , “请选择文件”, , True)

For i = 1 To UBound(pth) ‘循环打开选择的工作簿

Set wb = Workbooks.Open(pth(i)) ‘把打开的工作簿赋值给对象变量wb

strr = “订单号码” & wb.Worksheets(1).[b3] & vbTab & “客款号 ” & wb.Worksheets(1).[b5] & vbTab & “厂款号” & wb.Worksheets(1).[b6] ‘将需要写入的数据连接起来赋值给变量strr

doc.ActiveDocument.Content.InsertAfter Chr$(13) & strr ‘将订单编号、客款号、厂款号写入word

With wb.Worksheets(1)

col1 = .Columns(1).Find(“厂款号”, , xlValues, xlWhole, xlByColumns, xlNext, True, True).Row ‘定位厂款号跟合计字符,为了确定需要插入word文档中表格的大小

col2 = .Columns(1).Find(“合计”, , xlValues, xlWhole, xlByColumns, xlNext, True, True).Row

Set myrange = doc.ActiveDocument.Content

myrange.Collapse Direction:=wdCollapseEnd ‘折叠已经写入的内容

doc.Documents(1).Tables.Add myrange, col2 – col1, 11 ‘在word中插入新的表

doc.Documents(1).Tables(i).Style = “网格型” ‘表格类型是网格型

For r = col1 To col2 – 1

arr = .Range(“a” & r).EntireRow.Range(“a1:k1”) ‘循环将excel表中的数据写入word表格中

For Each ar In arr

n = n + 1 ‘将所在行的单元格值循环写入word表的单元格中

doc.Documents(1).Tables(i).Range.Cells(n).Range = ar

Next

Next

n = 0

End With

wb.Close False ‘数据写入完毕,关闭打开的工作簿’接着打开后面一个工作簿

Next

doc.Documents(1).SaveAs ThisWorkbook.Path & “\数据.docx” ‘将所有的工作簿循环打开,写入数据完毕,保存打开的word文档到代码工作簿路径下

doc.Quit ‘退出程序

Application.ScreenUpdating = True

End Sub

三、知识点

新建表格

代码中涉及到新建表格并写入数据的地方,这里给一个简单的例子作为参考。(这个代码直接在Word VBA中运行,如果需要在Excel中操作Word插入表格,需要新建Word程序对象,这属于前面的基础知识)

Sub 新建表格写入数据()

ActiveDocument.Tables(1).Delete

Set tb = ActiveDocument.Tables.Add(Selection.Range, 1, 3)

With tb

.Style = “网格型”

.Cell(1, 1).Range = “编号”

.Cell(1, 2).Range = “文件名”

.Cell(1, 3).Range = “扩展名”

.Rows.Last.Select

Selection.InsertRowsBelow 1

With .Rows.Last

.Cells(1).Range = 1

.Cells(2).Range = 2

.Cells(3).Range = 3

End With

End With

End Sub

代码运行效果如下:

阅读全文
相关推荐

如何自制蛋挞

如何自制蛋挞
1、倒入低筋面、黄油和水,揉成面团状,藏一小时后取出,抹上黄油卷起,包上保鲜膜冷藏半小时。2、取出,将面团切成一厘米的面团,放入模具内,用力按压,中间稍薄,外缘要比模具高,将蛋挞液倒入蛋挞皮中,放入烤箱里烤30分钟即可。

肉火烧面怎么和面

肉火烧面怎么和面
1、首先用温水把酵母融开,加入面粉,用手把面粉揉成非常软的面团,可以放一点熬好的猪油在面团里面。2、然后放在温暖的地方,盖上保鲜膜发酵至2倍大,发好的面团用手插入不回缩,就说明面团发酵好了。

奶茶几分糖好喝

奶茶几分糖好喝
1、不同的人对奶茶的口感要求是不一样的,一般来说,奶茶有三分糖、五分糖、七分糖三种不同的口味。2、女生一般都喜欢喝甜一点的,而男生则喜欢喝不那么甜的,七分糖的奶茶最好喝。

过桥米线是哪里的?

过桥米线是哪里的?
过桥米线是来自云南省滇南地区的一种有名特色小吃。过桥米线最早是在清朝就已经出现,距离现在至少有一百多年的历史啦!起源于建水县东城外锁龙桥西侧的鸡市街头处,有建水的特产草芽、地椒作配料,风味独特而远近闻名。深受广大美食爱好者的喜欢,不少人为此专门长途跋涉,只为尝

面霜和乳液的区别

面霜和乳液的区别
面霜和乳液的区别,相较而言乳液的水分含量要比面霜高,乳液质地要轻薄一些,乳液主要作用是保湿,滋润可以隔离外界干燥的气候,面霜既可保湿,又可美白,还能抗衰老,乳液的吸收快一些,而面霜吸收比较慢一些,因为液体的吸收速度都比较快。

怎么摘隐形眼镜

怎么摘隐形眼镜
在摘隐形眼镜之前,先用洗手液将手清洗干净,以免将细菌带入眼睛内,对着镜子,用右手中指轻拉眼睛下眼睑,左手中指轻拉眼睛上眼睑,让黑色眼球暴露在空气中,用右手食指和拇指轻触镜片的两边缘部分,向中间推使镜片拱起,再用两手指轻轻捏出镜片即可。

粉饼和散粉的区别

粉饼和散粉的区别
粉饼是呈压缩固体状态,多呈圆形或者方形,散粉则是细腻的粉末状,粉饼遮瑕力会比较强一些,可以湿用做粉底,或者用来补妆,而散粉则是定妆的效果,粉饼通常用在底妆的第一步,而散粉通常用在底妆最后一步。

冷烫和热烫的区别

冷烫和热烫的区别
冷烫和热烫的区别:冷烫对头发的要求是要在保温状态下才能给卷有个好的效果,而热烫是在干和湿的情况下都行,热烫烫出来的头发比较自然明显而有弹力,冷烫的头发风干后基本看不出来,并且发质会有点干。

高品质香水如何鉴别?用三步就可以解决

高品质香水如何鉴别?用三步就可以解决
1、看色泽以天然香料调制而成的高级香水,都有它本来的颜色,且大都是琥珀色或褐色,看起来很像宝石,比如,从茉莉、玫瑰或水仙等天然鲜花中所萃取的精油都呈黄色、褐白或绿褐色;此外,香水中所添加的魅惑香气物性香料也是褐色,苔类中的橡树苔是绿色,从树根或树根脂类中萃取的

如何去除黑眼圈

如何去除黑眼圈
去除黑眼圈首先可以用热毛巾敷眼,然后再用冷毛巾敷,十分钟就能让黑眼圈淡化的不那么严重,其次将去壳后的鸡蛋用无菌纱布包裹住,敷于眼部轻轻转动,可以急救去除黑眼圈,另外抹完眼霜后,用双手顺时针按摩,可以促进血液循环消除黑眼圈。
本文Tag