Question

excel用vba自动生成word

求助：excel中做好的表格，用vba自动生成一个word，位置在D:\，名称用excel中的sheet1！B1单元格的值命名，内容为excel中SHEET!1A1：B13，保存。
求excel的宏代码

Answer 1

Sub GenDocfromExcel()

'excel控制word,生成新文件，插入图片和文件名，保存
'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library
'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library
'...

Range("A1:B13").Copy '复制当前内容

Dim WordApp As Word.Application '定义变量
Set WordApp = CreateObject("Word.Application") '生成WORD对象
WordApp.Documents.Add '新建文件

WordApp.Selection.Paste '粘贴

fn$ = "D:\" & Range("b1") '生成文件名
WordApp.ActiveDocument.SaveAs fn$ '保存文件

WordApp.Quit '退出
Set WordApp = Nothing '取消变量

End Sub

Answer 2

这个不太难。
我想问一下将表格中A1:B13的内容导入Word 时是按什么顺序，A1、A2……A13、B1……还是A1、B1、A2、B2……，每个单元格的内容为一段还是不分段落，还是直接将表格插入到Word文件中？

Answer 3

用EXCEL的VB代码