Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 综合其它

导出数据时给word表格增加行数

时 间:2017-01-17 13:12:57
作 者:张志   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:给指定的word文件,根据导出记录的多少,增加行数,以满足填写需要。
正 文:

     在银行管理工作中,企业询证函中有表格,原表格只有2行,由于有时侯超过了2行记录,输出记录到word文件中时需要增加表格的行数。
    主要代码如下:

    Dim objApp As Object    'Word.Application
    Dim objDoc As Object    'Word.Document
    Dim objTable As Object    'Word.Table
    Dim strTemplates As String
    Dim Table As Object
    Dim rs As Object
    Dim i As Integer
    strTemplates = CurrentProject.Path & "\企业询证函1.doc"
    If Dir(strTemplates) = "" Then
        MsgBox "当前文件夹下缺少企业询证函1.doc", vbCritical, "提示"
        Exit Sub
    End If
    Set objApp = CreateObject("Word.Application")
    objApp.Visible = False    '不显示word文件
    Set objDoc = objApp.Documents.Open(strTemplates, , False)
    '给所有表格增加3行
    For i = 1 To objDoc.Tables.Count
        Set rs = objDoc.Tables(i).Rows    'i 代表第几个表格
        Dim l As Integer
        For l = 1 To 3    '3代表增加3行
            rs.Add rs(rs.Count)
        Next
    Next
    objApp.Visible = True    '显示Word文件
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objTable = Nothing

    示例下载:给word表格增加行数



Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助