Access培訓
網站公告
·Access快速平臺QQ群號:277422564    ·Access快速開發平臺下載地址及教程    ·歡迎添加微信交流賬號:AccessoftChu    ·如何快速搜索本站文章|示例|資料    
您的位置: 首頁 > 技術文章 > 綜合其它

導出數據時給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群 (群號:864245409)       access源碼網店

最新評論 查看更多評論(1)

2019/6/30 1:30:06王洋
非常感謝,幫了我的大忙!

發表評論您的評論將提升作者分享的動力!快來評論一下吧!

用戶名:
密 碼:
內 容:
 

常見問答

技術分類

相關資源

關于我們 | 服務條款 | 在線投稿 | 友情鏈接 | 網站統計 | 網站幫助