最近用每天要EXCEL做很多计算工作，还要转到WORD里，请大侠们帮下忙，谢谢了！

mr.lixu · 发表于 2016-4-29 19:38

本帖最后由 mr.lixu 于 2016-4-30 08:29 编辑

最近用每天要用EXCEL做很多计算工作，算完后，单位要求全部转成WORD格式，复制粘贴的工作量实在太大，而且格式也不好控制，现在做了两个用WORD和EXCEL做了两个完全相同的样表，请大家帮忙看看，有什么方法能直接把EXCEL里的数据全部自动填写到WORD里，填完最好能用EXCEL里B3和B2单元格的内容做为文件另存WORD文档，大侠们帮帮忙呀

经过这两天的复制粘贴，我现在有了个新的思路，能不能直接在EXCEL里写个宏，复制当前表的所有内容到WORD指定的空模板里，粘贴后根据窗口自动调整表格，然后以EXCEL表里的B3+
B2单元格为文件名存盘，再次感谢各位热心的高手们。

cbtaja · 发表于 2016-4-30 06:05

Private Sub CommandButton1_Click()
Dim ExcelApp As Object
Dim wb As Object
Set ExcelApp = CreateObject("EXCEL.application")
Set wb = ExcelApp.Workbooks.Open(ActiveDocument.Path & "" & "样表.xls")
arr = wb.Worksheets(1).Range("a1").currentregion.Value
wb.Close False
Set wb = Nothing
With ActiveDocument.Tables(1)
.Cell(2, 2).Range.Text = arr(2, 2)
.Cell(2, 4).Range.Text = arr(2, 7)
.Cell(3, 2).Range.Text = arr(3, 2)
.Cell(3, 3).Next.Range.Text = arr(3, 4)
.Cell(3, 3).Next.Next.Range.Text = arr(3, 6)
For i = 6 To 44
For j = 1 To 8
If j = 4 Or j = 5 Then arr(i, j) = Format(arr(i, j), "0.0")
.Cell(i, j).Range.Text = arr(i, j)
Next
Next
With .Cell(44, 8).Range.Next.Next
.Text = arr(45, 1)
.Next.Text = arr(45, 4)
End With
For i = 46 To 47
For j = 1 To 3
If j = 3 Then arr(i, j) = Format(arr(i, j), "0.0%")
.Cell(i, j).Range.Text = arr(i, j)
Next
Next
.Cell(46, 3).Next.Range.Text = arr(46, 4)
End With
End Sub

复制代码

cbtaja · 发表于 2016-4-30 06:06

样本.rar (16.24 KB, 下载次数: 23)

mr.lixu · 发表于 2016-4-30 08:24

cbtaja 发表于 2016-4-30 06:06

谢谢了，我把两个文件放在同目录下运行，提示找不到工程或库
我现在有了个新的思路，能不能直接在EXCEL里写个宏，复制粘贴当前表的所有内容到WORD指定的模板里，粘贴后根据窗口自动调整表格，然后以EXCEL表里的B3+
B2单元格为文件名存盘

mr.lixu · 发表于 2016-4-30 08:28

经过这两天的复制粘贴，我现在有了个新的思路，能不能直接在EXCEL里写个宏，复制当前表的所有内容到WORD指定的空模板里，粘贴后根据窗口自动调整表格，然后以EXCEL表里的B3+
B2单元格为文件名存盘

gbgbxgb · 发表于 2016-4-30 10:18

上个图片，不提供代码，帮顶。

mr.lixu · 发表于 2016-4-30 10:46

gbgbxgb 发表于 2016-4-30 10:18
上个图片，不提供代码，帮顶。

这个是怎么实现，能教下我吗

wj2368 · 发表于 2016-4-30 11:06

。。。。。。。。。。。

mr.lixu · 发表于 2016-4-30 11:09

本帖最后由 mr.lixu 于 2016-4-30 11:14 编辑

wj2368 发表于 2016-4-30 11:06
。。。。。。。。。。。

提示找不到工程或库

wj2368 · 发表于 2016-4-30 11:15

mr.lixu 发表于 2016-4-30 11:09
提示找不到工程或库

在工程引用里选中word xx.00

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

[求助] 最近用每天要EXCEL做很多计算工作，还要转到WORD里，请大侠们帮下忙，谢谢了！

评分

评分