有条件将数据批量写入word文件中

sunshuangzhong · 发表于 2024-12-21 09:42

3190496160 · 发表于 2024-12-21 10:18

每个班级生成一个word文档，还是全部放到一个word文档内？？？？？？？？？？？？？？？？？？？

sunshuangzhong · 发表于 2024-12-21 10:52

3190496160 发表于 2024-12-21 10:18
每个班级生成一个word文档，还是全部放到一个word文档内？？？？？？？？？？？？？？？？？？？

生成一个文件

chxw68 · 发表于 2024-12-21 15:56

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Dim wordapp As Object
Dim mydoc As Object
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a2:f" & r)
End With
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 4)) Then
Set d(arr(i, 4)) = CreateObject("scripting.dictionary")
End If
If Not d(arr(i, 4)).exists(arr(i, 6)) Then
Set d(arr(i, 4))(arr(i, 6)) = CreateObject("scripting.dictionary")
End If
d(arr(i, 4))(arr(i, 6))(arr(i, 5)) = arr(i, 2)
Next
On Error Resume Next
Set wordapp = GetObject(, "word.application")
If Err Then
Set wordapp = CreateObject("word.application")
End If
On Error GoTo 0
For Each aa In d.keys
FileCopy ThisWorkbook.Path & "\评分表模版.docx", ThisWorkbook.Path & "\结果" & aa & "评分表.docx"
Set mydoc = wordapp.documents.Open(Filename:=ThisWorkbook.Path & "\结果" & aa & "评分表.docx")
With mydoc
With wordapp.Selection.Find
.ClearFormatting
.Text = "班级："
.Replacement.ClearFormatting
.Replacement.Text = "班级：" & aa
.Execute Replace:=wdReplaceAll
End With
For Each tbl In .tables
tbl.Select
With tbl
Do
wordapp.Selection.MoveUp wdLine, 1, wdMove
wordapp.Selection.EndKey wdLine, wdExtend
Loop Until wordapp.Selection.Range.Text Like "实验*"
synr = Left(wordapp.Selection.Range.Text, 3)
If d(aa).exists(synr) Then
For j = 4 To 10
ss = Val(Replace(.Cell(2, j).Range.Text, Chr(13) & Chr(7), Empty))
If d(aa)(synr).exists(ss) Then
.Cell(3, j).Range.Text = d(aa)(synr)(ss)
End If
Next
End If
End With
Next
.Close True
End With
Next
If Err Then
wordapp.Quit
End If
Application.ScreenUpdating = True
MsgBox "生成完毕！"
End Sub

复制代码

chxw68 · 发表于 2024-12-21 15:58

对WORD VBA不太熟悉，不断学习研究吧。

chxw68 · 发表于 2024-12-21 22:15

不断学习完善吧。

sunshuangzhong · 发表于 2024-12-22 11:51

chxw68 发表于 2024-12-21 22:15
不断学习完善吧。

不知道怎么回事？

chxw68 · 发表于 2024-12-22 12:05

1、按Alt+F11打开VBE窗口
2、按[工具]-[引用]打开引用窗口
3、将该窗口项目中有“丢失”字样的前面勾取掉。

sunshuangzhong · 发表于 2024-12-22 12:26

chxw68 发表于 2024-12-22 12:05
1、按Alt+F11打开VBE窗口
2、按[工具]-[引用]打开引用窗口
3、将该窗口项目中有“丢失”字样的前面勾取掉 ...

chxw68 · 发表于 2024-12-22 12:31

sunshuangzhong 发表于 2024-12-22 12:26

程序运行过程中不要动鼠标。

		自动登录	找回密码
密码			免费注册

[求助] 有条件将数据批量写入word文件中

评分