求教VBA高手，EXCEL里输入数据,自动生成相应的WORD文件之实现.该
求教 VBA 高手 ，EXCEL里 输入 数据 , 自动 生成 相应 的WORD 文件 之 实现 .. 具体 实现 要求如下： 1、打开EXCEL 文件 , 输入 相关 数据 ， 2、关闭EXCEL 文件 ，这时调用对应WORD模板， 生成 相应 的WORD 文件 并 自动 保存（每一行EXCEL 数据 生成 一个W
求教VBA高手，EXCEL里输入数据,自动生成相应的WORD文件之实现..具体实现要求如下：
1、打开EXCEL文件,输入相关数据，
2、关闭EXCEL文件，这时调用对应WORD模板，生成相应的WORD文件并自动保存（每一行EXCEL数据生成一个WORD文件）
想请CSDN上做过这类的高手给点VBA源代码提供参考,万分感谢！！(WORD邮件合并请不用介绍，谢谢！)..------解决方案--------------------------------------------------------循环就是了。
------解决方案--------------------------------------------------------首先要搞清楚几个问题
1你是要将指定表格里的数据生成WORD文件呢还是将整个工作薄里每个表的数据都生成WORD文件
2你是只要生成最新输入的数据呢还是生成所有数据
3自动生成的WORD文件准备如何命名呢？
4生成的WORD文件是什么格式？纯文字还是表格？
------解决方案--------------------------------------------------------Sub AddNew(fname,Row)
Set NewBook = Workbooks.Add
With NewBook
&All Sales &
.Subject =
.SaveAs Filename:=fname& &.Doc & //创建名为*.Doc文件
Workbooks.Open(fname& &.Doc &)
//打开这个文件
Set oDoc = ActiveDocument
　　 Set oTable= oDoc.Tables.Add(Range:=oDoc.Range(Start:=0, End:=0), NumRows
:=1) //创建一行
oCell.Range.InsertAfter row //写如一行
For Counter = 1 To 20
Row=Workbooks( &Book1 &).Sheets( &Sheet1 &).Rows(Counter) //读Execel第一行
AddNew(Counter,Row)
//调用AddNew创建Doc表以及写入数据
Next Counter
你最喜欢的查看: 3282|回复: 14
[已解决]怎么样将 txt文件里所有换行符替换成空
求助啊代码要怎么写
hwc2ycy发布于
Sub test()
& & Dim strFile$
& & Dim strPath$
& & Dim strTemp$
& & strPath = ThisWorkbook.Path & Application.PathSeparator
& & strFile = &test.txt&
& & Open strPath & strFile For Input As #1
& & strTemp = StrConv(InputB(LOF(1), #1), vbUnicode)
& & Close #1
& & Open strPath & strFile & &-new.txt& For Output As #1
& & strTemp = Replace(strTemp, vbCrLf, & &)
& & Print #1, strTemp
& & Close #1
End Sub复制代码写入的，不过是写入到了新文件。
提供数据附件
本帖最后由 hwc2ycy 于
12:32 编辑
Sub test()
& & Dim strFile$
& & Dim strPath$
& & Dim strTemp$
& & strPath = ThisWorkbook.Path & Application.PathSeparator
& & strFile = &test.txt&
& & Open strPath & strFile For Input As #1
& & strTemp = StrConv(InputB(LOF(1), #1), vbUnicode)
& & Close #1
& & MsgBox strTemp
& & MsgBox Replace(strTemp, vbCrLf, & &)
End Sub
复制代码
(15.13 KB, 下载次数: 7)
12:32 上传
点击文件名下载附件
代码只演示了把TXT里的换行符换成了空格，通过msgbox输出。
如果要在写回文件，只需要稍微改变即可。
&&&本楼为最佳答案&&&
Sub test()
& & Dim strFile$
& & Dim strPath$
& & Dim strTemp$
& & strPath = ThisWorkbook.Path & Application.PathSeparator
& & strFile = &test.txt&
& & Open strPath & strFile For Input As #1
& & strTemp = StrConv(InputB(LOF(1), #1), vbUnicode)
& & Close #1
& & Open strPath & strFile & &-new.txt& For Output As #1
& & strTemp = Replace(strTemp, vbCrLf, & &)
& & Print #1, strTemp
& & Close #1
End Sub复制代码写入的，不过是写入到了新文件。
hwc2ycy 发表于
写入的，不过是写入到了新文件。
strpath这是做什么用的？
hwc2ycy 发表于
写入的，不过是写入到了新文件。
运行时在十一行报错
linatt 发表于
strpath这是做什么用的？
文件的位置。
linatt 发表于
运行时在十一行报错
哪一行出错，是第二个代码么。
Powered by查看: 8677|回复: 27
如何用vba读取txt文件中指定位置的数据
阅读权限10
在线时间 小时
本帖最后由 Prps 于
20:14 编辑
如图：星号表示其他文字，想用vba读取红色标记的两列数据，通过计算后写入word中。
请问vba可以直接读取这两列数据么，还是要通过数据库才可以？
本人新手，求各位大神不吝赐教，最好能详细的说下方法，谢谢了
------------------------------------------------------分割线----------------------------------------------------------
第一次发帖，有些问题说的不是很清楚，请大家包涵。在这里详细的说下。
1.想读取txt文件中的 a列 和 b列 两列数据 。共有行编号为1-1，1-2，1-3，2-1，2-2&&一直到 m-n 行数据& &m和n一般小于等于10
2对两列数据作如下乘法运算M1=a1*b1，M2=a2*b2 ，一直到 最后一行
3在word中写入文字：1-1 电压为M1，
& && && && && && && && && && & 1-2 电压为M2，
& && && && && && && && && && & 。。。。。。
& && && && && && && && && && & m-n 电压为Mx。
可能写的不是很清楚，求大神帮助。。。。。。。。。。。附件是txt文件
(33.19 KB, 下载次数: 6)
10:08 上传
(26.13 KB, 下载次数: 2)
20:12 上传
14:07 上传
点击文件名下载附件
785 Bytes, 下载次数: 47
阅读权限50
在线时间 小时
可以，穿个附件上来看看。
阅读权限30
在线时间 小时
这个不会，过来学习！
阅读权限30
在线时间 小时
都是两位数？，字符位置完全确定？
阅读权限30
在线时间 小时
空白的地方是tab还是空格？m和n是不是变化的？
阅读权限10
在线时间 小时
liuhoubin168 发表于
都是两位数？，字符位置完全确定？
上传附件了，不都是两位的，每列的位置是固定的，m和n都是变化的
阅读权限10
在线时间 小时
liuhoubin168 发表于
空白的地方是tab还是空格？m和n是不是变化的？
已经上传附件了，m和n不是固定的
阅读权限10
在线时间 小时
liuhoubin168 发表于
空白的地方是tab还是空格？m和n是不是变化的？
空白的地方是空格
阅读权限10
在线时间 小时
hnwxm 发表于
可以，穿个附件上来看看。
已经上传附件了，麻烦看一下吧
阅读权限30
在线时间 小时
如此不准确的提问，让人怎么回答？
Lz虽然上传了附件，但没有说明到底是哪两节数据需要处理，而且是如何计算也没说明。
计算之后的结果以何种形式生成也没有说明。
既然想得到满意的答案，就应当提供两个样本，一个是要处理的内容，一个是已经处理好的部分word结果示例，这样方能让别人解答……
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}