[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
lrc0095

Rank: 1

帖子
5 
积分
27 
技术
0  
捐助
0  
注册时间
2012-1-26 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2012-1-29 14:17 | 只看该作者

[问题求助] VBS脚本怎样从数据库读取数据动态生成文件名？

求助高手，我在asp中用以下代码合并三个word文档生成一个新的word文档，其中20080407210是学号。我的问题是怎样从数据库中读取学号，然后合并相关的word文档？
  1. <%

  2. Set objWord = CreateObject("Word.Application")

  3. 'objWord.Visible = True

  4. Set objDoc = objWord.Documents.Add()

  5. Set objSelection = objWord.Selection

  6. objSelection.PageSetup.LeftMargin = 2.48/0.035

  7. objSelection.PageSetup.RightMargin = 2.48/0.035

  8. objSelection.InsertFile "F:\student\merge_word\20080407210.doc"

  9. 'objSelection.TypeText vbCrLf 添加一个回车行

  10. objSelection.InsertFile "F:\student\merge_word\20080407210_1.doc"

  11. 'objSelection.TypeText vbCrLf 添加一个回车行

  12. objSelection.InsertFile "F:\student\merge_word\20080407210_2.doc"

  13. objDoc.SaveAs "F:\paper\20080407210.doc"

  14. objWord.Quit

  15. %>
复制代码
收藏 分享

find

Rank: 8Rank: 8

帖子
832 
积分
6744 
技术
42  
捐助
0  
注册时间
2012-1-4 
2楼
发表于 2012-1-29 15:13 | 只看该作者
什么数据库？Access？Oracle？MySQL？
另外，VBS本身就可以合并word，不必调用VBS

TOP

lrc0095

Rank: 1

帖子
5 
积分
27 
技术
0  
捐助
0  
注册时间
2012-1-26 
3楼
发表于 2012-1-29 18:40 | 只看该作者
Accesss数据库

TOP

lrc0095

Rank: 1

帖子
5 
积分
27 
技术
0  
捐助
0  
注册时间
2012-1-26 
4楼
发表于 2012-1-29 19:14 | 只看该作者
我用asp做一个毕业论文管理系统，有一个功能需要将每个学生的开题报告、论文正文、八大表格这三个部分的word文档合并为一个以学号+姓名为文件名的word文档。每届学生有几百个名，论文正文上万字，并带有图片，不合适全放到数据库里，只能作为一个文件上传，然后再与其它表格合并。

TOP

powerbat

Rank: 7Rank: 7Rank: 7

帖子
752 
积分
4553 
技术
139  
捐助
0  
注册时间
2010-8-24 
5楼
发表于 2012-1-29 21:32 | 只看该作者
ado表示处理Accesss数据库毫无鸭梨
script56
新加坡Google

TOP

lrc0095

Rank: 1

帖子
5 
积分
27 
技术
0  
捐助
0  
注册时间
2012-1-26 
6楼
发表于 2012-1-29 21:45 | 只看该作者
那怎么办？还有什么方法可以合并每一个学生的三篇word文档并保存文件名为对应学号的文件？？

TOP

lrc0095

Rank: 1

帖子
5 
积分
27 
技术
0  
捐助
0  
注册时间
2012-1-26 
7楼
发表于 2012-1-31 11:45 | 只看该作者
难道真的没有人能够解决这个问题？

TOP

返回列表