excel用vba自动生成word

Question

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

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