用VB+WORD模版+数据库来制作格式合同的方法
来源:互联网 发布:区域匹配算法 编辑:程序博客网 时间:2024/04/29 07:32
用VB+WORD模版+数据库来制作格式合同的方法
概述:在应用程序中经常有定制格式报表的需要,如打印合同、货物清单、备忘录等等,使用第三方报表软件可以实现但是比较繁琐,实际上利用Word的自动化编程,使用VBA可以完成类似的功能,而且很实用。
步骤一、
word模版制作:
在第一行是合同标题 " 【书签1合同标题xxxxxxxx合同】"
第二行
******************************
合同编号: 【书签2合同编号】
签约单位: 【书签3签约单位】
签约地址: 【书签4签约地址】
签约日期: 【书签5签约日期】
.....
表格第一行 '表格第一行第一列中插入 书签4
表格第二行
...
货物名称 | 数量 | 规格 |
【书签6货物清单】 |
'实现代码如下
Dim cn As New ADODB.Connection
Dim AdoRs As New ADODB.Recordset
Dim WordTemps As New Word.Application
Private Sub Form_Load()
If cn.State = 1 Then
cn.Close
End If
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/db1.mdb"
End Sub
'开始导出数据
Private Sub Command1_Click()
Dim strSQl As String
Dim REC As Integer
Dim i As Integer
WordTemps.Documents.Add App.Path + "/货物合同.doc", False
WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题"
WordTemps.Selection.TypeText “关于冬季货物的成交合同”
WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号"
WordTemps.Selection.TypeText “2004000001”
WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位"
WordTemps.Selection.TypeText “宏大科技公司,天天科技公司”
WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址"
WordTemps.Selection.TypeText “北京中关村大厦”
WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间"
WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd")
strSQl = "select * from Matrixs"
AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic
REC = AdoRs.RecordCount
If REC < 1 Then
MsgBox "无商品记录!", vbOKOnly, "提示"
AdoRs.Close
Exit Sub
Else
AdoRs.MoveFirst
WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单"
For i = 1 To REC
WordTemps.Selection.TypeText AdoRs!名称
WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格
WordTemps.Selection.TypeText AdoRs!数量
WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格
WordTemps.Selection.TypeText AdoRs!规格
AdoRs.MoveNext
If AdoRs.EOF = False Then
WordTemps.Selection.InsertRowsBelow 1 '表格换行
End If
Next i
AdoRs.Close
WordTemps.Visible = True '显示WORD窗口
End If
End Sub
作者:soho_andy(冰)
- 用VB+WORD模版+数据库来制作格式合同的方法
- 用VB+WORD模版+数据库来制作格式合同的方法(转帖)
- WORD系列教程-多级编号制作合同
- vb 与 .accdb 格式的access数据库的连接方法
- pdf转换成word格式的方法,需要的速度来
- VB数据库导出WORD
- 利用vb操作word的基本方法
- 自动生成数据库表设计(三)之制作word模版
- 数据库课程设计报告格式模版
- word转html格式的方法
- PDF转换word格式的方法总结
- vb.net2005 利用创建好的WORD模板制作WORD报表
- word格式问题解决方法
- 用Aspose来打印Word方法类
- VB如何将数据导入WORD模版打印
- 用VB备份和恢复SQL Server数据库的方法
- 用VB备份和恢复SQLServer数据库的方法
- 利用word vb宏来生成sql
- 安德的游戏和软件开发 22 Jul 03
- 类间对象交互的实现方法3则
- 将MsFlexGrid控件中显示的内容输出到文本文件
- VB中使用WMI获取系统硬件和软件有关信息
- VB中删除、替换或者插入内容到文本中某一行,及文本行列的处理实例
- 用VB+WORD模版+数据库来制作格式合同的方法
- Oracle中导入文本数据的方法
- mfc中的消息的应用
- C# 中如何自定义事件?
- C# 中如何定义和接收消息?
- 在C#中如何在函数参数中返回结构数组?
- C# 读取XML文档
- Jasmine KBMS系统的实现
- 从现存的应用来构建Web Services