在word调用excel中的每行数据数字后,形成一个新文件,这些文件名,如何用其中一列数据中的内容自动命名文件_百度知道
在word调用excel中的每行数据数字后,形成一个新文件,这些文件名,如何用其中一列数据中的内容自动命名文件
在word调用excel中的每行数据数具后,形成一个新文件，这些文件名，如何用excel其中一列数据的内容自动命名文件名每个文件名。
您的:&一份WORD模版，需要插入EXCEL中的数据，我现在使用邮件合并的方式，但是最终需要生成一个个单独的word&问题是如何解决的？谢
我有更好的答案
word调用excel是什么意思，是不是指word复制excel表格中的数据。如果是这样就很简单了。新建空白word文档，然后复制excel的数据行，将其粘贴到word中，然后保存文件就自动命名了。
来自：求助得到的回答
自己编个VBA的小程序吧
为您推荐：
其他类似问题
您可能关注的内容
excel的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 2148|回复: 16
如何将EXCEL中指定区域的内容另存为WORD文件
阅读权限20
在线时间 小时
本人工作中有一特定需求，经常要将EXCEL表中的某些内容保存成WORD文件。附件“示例文件”中表1为举例的内容，希望能在保证原来字体、字号、格式不变的情况下，通过“另存为文本”这个控件，将指定单元格的内容保为WORD文件（保存前可指定保存路径和命名），达到“示例保存效果”的标准即可。注意：不是将整个表的内容都保存，只保存我需要保存的部分。请问这个控件的代码该如何写？这个问题困扰了我很久，请各位高人赐教，不胜感激！！！
要保存的单元格位置是固定的，可以直接引用。单元格有的是合并过的。保存时如果某个单元格存在空行，自动删除空行。保存后的DOC文件不要有空行。命名默认是以标题所在单元格命名，就是“短文”来命名的。
(18.34 KB, 下载次数: 28)
21:38 上传
点击文件名下载附件
阅读权限95
在线时间 小时
本帖最后由 duquancai 于
00:44 编辑
打开Excel文件，点击按钮》》》》
00:44 上传
点击文件名下载附件
16.98 KB, 下载次数: 128
阅读权限20
在线时间 小时
打开Excel文件，点击按钮》》》》
非常感谢.自动保存为WORD文件了.但是是默认到当前目录,是否可以弹出路径选择框,让我自己选择保存路径呢?代码该怎么改,再次请教您!谢谢.
阅读权限20
在线时间 小时
& & & & & & & &
打开Excel文件，点击按钮》》》》
我在表里用了您的代码，只是将sheet1改成了我的工作表名“正文部分”，不知为何总是报错：运行时错误'424'&&要求对象。麻烦您看看。本人初学，很多代码都看不懂，麻烦您在后面备注下意思，谢谢。
Sub shishi()
& & Dim wdapp As Object, Docx As Object
& & 正文部分.Range(&b1:n70&).Copy
& & fi = [c1]
& & Set wdapp = CreateObject(&Word.Application&)
& & wdapp.Visible = False
& & Set Docx = wdapp.documents.Add
& & Docx.Content.Paste
& & Docx.SaveAs ThisWorkbook.Path & &\& & fi & &.doc&
& & Docx.Close
& & wdapp.Quit
& & Set wdapp = Nothing: Set Docx = Nothing
阅读权限95
在线时间 小时
& & & & & & & &
本帖最后由 duquancai 于
21:31 编辑
我在表里用了您的代码，只是将sheet1改成了我的工作表名“正文部分”，不知为何总是报错：运行时错误'424 ...
Sub shishi()
& & Dim wdapp As Object, Docx As Object
& & sheets(“正文部分”).Range(&b1:n70&).Copy
& & fi = sheets(“正文部分”).[c1]
& & Set wdapp = CreateObject(&Word.Application&)
& & wdapp.Visible = False
& & Set Docx = wdapp.documents.Add
& & Docx.Content.Paste
& & Docx.SaveAs ThisWorkbook.Path & &\& & fi & &.doc&
& & Docx.Close
& & wdapp.Quit
& & Set wdapp = Nothing: Set Docx = Nothing
阅读权限20
在线时间 小时
Sub shishi()
& & Dim wdapp As Object, Docx As Object
& & sheets(“正文部分”).Range(&b1:n70&).Co ...
不好意思，麻烦您了。还是报错。这回是&运行时错误&&4198&&命令失败。
Sub shishi()
& & Dim wdapp As Object, Docx As Object
& & Sheets(&正文部分&).Range(&b1:n70&).Copy
& & fi = Sheets(&正文部分&).[c1]
& & Set wdapp = CreateObject(&Word.Application&)
& & wdapp.Visible = False
& & Set Docx = wdapp.documents.Add
& & Docx.Content.Paste
& & Docx.SaveAs ThisWorkbook.Path & &\& & fi & &.doc&& & 调试时是停在这句上
& & Docx.Close
& & wdapp.Quit
& & Set wdapp = Nothing: Set Docx = Nothing
阅读权限95
在线时间 小时
不好意思，麻烦您了。还是报错。这回是&运行时错误&&4198&&命令失败。
Sub shishi()
& & Dim wdapp As&&...
只看代码是看不出来的。。。。。。。。。
阅读权限20
在线时间 小时
& & & & & & & &
只看代码是看不出来的。。。。。。。。。
我把表发给您看一下
阅读权限95
在线时间 小时
我把表发给您看一下
彻底关闭word程序，再调试！！！
阅读权限20
在线时间 小时
& & & & & & & &
我把表发给您看一下
我的工作簿名是“案件处理综合表”，要保存的数据在工作表“正文部分”这张工作表中，文件命名是取B1的值，要保存的是D1:N70区域的数据。您能根据这些内容帮我改一下吗？千恩万谢呀！！！！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师什么命令可以实现分别读取TEXT文件中每一行的内容并作为文件名批量生成Word文档？_百度知道
什么命令可以实现分别读取TEXT文件中每一行的内容并作为文件名批量生成Word文档？
我有更好的答案
用vba实现。本人也不是太懂。Sub&bb()&&Dim&a,&k%,&i%&&Open&&a.txt&&For&Input&As&#1&&a&=&Split(StrConv(InputB(LOF(1),&1),&vbUnicode),&vbCrLf)&&Close&#1&&k&=&UBound(a)&&For&i&=&0&To&k&&‘将内存中的数组元素分别写入新建的word文档。&Next&&End&Sub‘将内存中的数组元素分别写入新建的word文档。您再百度下。本人也是百度的。供参考，祝顺利。
终于成功了，@echo offrem 读文件for /f &tokens=1* delims=:& %%i in (fileName.txt) do (cd .& %%i.docx)目录下的fileName.txt里面编辑好内容就行了
采纳率：80%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 12298|回复: 6
利用宏如何复制某一行内容，然后粘贴到表的最后一行？
阅读权限10
在线时间 小时
同一个表格中，利用宏如何复制某一行内容，然后粘贴到表的最后一行？　对粘贴行内容（有些需要修改的），改过的内容自动填充颜色
阅读权限100
在线时间 小时
欢迎新会员！
建议上传表格附件来说明问题。
阅读权限50
在线时间 小时
& & & & & & & &
lastr = Sheet1.UsedRange.Rows.Count
Rows(3).Copy Cells(lastr + 1, 1)
阅读权限70
在线时间 小时
n = InputBox(&请输入要拷贝的行号&)
lastrow = Cells(Rows.Count, 1).End(3).Row
Rows(Val(n)).Copy
Range(&a& & lastrow + 1).PasteSpecial
阅读权限10
在线时间 小时
多谢啦，呵呵
阅读权限10
在线时间 小时
清风幽闲 发表于
n = InputBox(&请输入要拷贝的行号&)
lastrow = Cells(Rows.Count, 1).End(3).Row
多谢了！　我的情况是这样的，首先，要用查找（ctrl+f)，然后查找全部，选最下面（也就是最近的一条信息），之后，就是刚才说的，复制粘贴到最一行。我想想问问，这个用宏可以直接做吗？
阅读权限70
在线时间 小时
jinber 发表于
多谢了！　我的情况是这样的，首先，要用查找（ctrl+f)，然后查找全部，选最下面（也就是最近的一条信息） ...
你最好上传附件才好帮到你
以上的代码只是猜想你的意思
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师VBA如何把内容从当前word复制到另一个word文件中_百度知道
VBA如何把内容从当前word复制到另一个word文件中
我有更好的答案
'打开后焦点发生了转移，activedocument已经指向刚打开的文件了'改为Sub Macro1()
'On Error Resume Next
With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range
Set myDoc = Word.Application.Documents.Open(&E:\1.docx&)
.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)
End WithEnd Sub'（InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)这行代码中，你确定表2存在吗？我测试时只建一个表，所以改为Tables(1). ）
'也可以这样控制焦点Sub Macro1()
'On Error Resume Next
Set myDoc = Word.Application.Documents.Open(&E:\1.docx&, , , , , , , , , , , vbHide)
With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range
.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)
End WithEnd Sub
为您推荐：
其他类似问题
word文件的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。}