關(guān)于將access表里數(shù)據(jù)逐行導(dǎo)入word表格里的問題（已解決）

zhidao

如題，我想將數(shù)據(jù)庫“人員信息表”里的數(shù)據(jù)導(dǎo)入一個(gè)word模板表格里，這個(gè)問題我研究了幾天就是找不到思路，所以請(qǐng)版友幫幫忙
謝過！

roych

應(yīng)該是導(dǎo)出到word吧？供參考
http://m.mzhfr.cn/forum.php?mod=viewthread&tid=113919
如果是從word導(dǎo)入到access，應(yīng)該建立word組件再進(jìn)行讀取數(shù)據(jù)

zhidao

roych 發(fā)表于 2015-3-3 09:25
應(yīng)該是導(dǎo)出到word吧？供參考
http://m.mzhfr.cn/forum.php?mod=viewthread&tid=113919
如果是從wo ...

其實(shí)我也沒想過那么復(fù)雜就是把數(shù)據(jù)到處去，之前我是用導(dǎo)入excel里的思路來的，但是還是沒頭緒，我上傳了附件，版主有空指點(diǎn)一下思路吧。

todaynew

http://m.mzhfr.cn/forum.php?mod=viewthread&tid=80660

roych

1、請(qǐng)先行引用 Microsoft Word 庫。2、打開模塊后按F5執(zhí)行即可生成word表格（不做窗體按鈕了，如有需要，請(qǐng)自行創(chuàng)建按鈕，然后把代碼復(fù)制到按鈕的單擊事件上）。
3、注意，不要?jiǎng)h除模板。
4、其它說明見注釋。

1. Sub ExpDoc()
   
2. Dim rst As New ADODB.Recordset
   
3. '定義word組件、文檔、表、單元格
   
4. Dim wd As New Word.Application
   
5. Dim doc As Word.Document
   
6. Dim tbl As Table
   
7. Dim cel As Cell
   
8. Dim i As Long
   
9. Dim j As Long
   
10. '打開模板，模板只保留表頭。這樣的話，每次增加數(shù)據(jù)時(shí)只需要新增一行即可，以避免數(shù)據(jù)超出原表而不方便寫入。
    
11. Set doc = wd.Documents.Add(CurrentProject.Path & "\模板.doc")
    
12. '打開記錄集
    
13. rst.Open "人員信息", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
14. 'Null值無法寫入。跳轉(zhuǎn)處理比較麻煩，直接忽略掉。
    
15. On Error Resume Next
    
16. 'Word文檔里的table序號(hào)、行列序號(hào)都是從1開始的哦。
    
17. Set tbl = doc.Tables(1)
    
18. For i = 1 To rst.RecordCount
    
19. '新增一行，然后寫入數(shù)據(jù)
    
20.     tbl.Rows.Add
    
21.     For j = 0 To rst.Fields.Count - 1
    
22.         Set cel = tbl.Cell(i + 1, j + 1)
    
23.         cel.Range = rst(j)
    
24.     Next
    
25.         rst.MoveNext
    
26. Next
    
27. rst.Close
    
28. Set rst = Nothing
    
29. '刪除舊文件，并保存新文件，然后退出word程序。
    
30. If Len(Dir(CurrentProject.Path & "\人員信息.doc")) > 0 Then Kill CurrentProject.Path & "\人員信息.doc"
    
31. doc.SaveAs2 (CurrentProject.Path & "\人員信息.doc")
    
32. doc.Close
    
33. wd.Quit
    
34. End Sub

復(fù)制代碼

zhidao

roych 發(fā)表于 2015-3-3 11:06
1、請(qǐng)先行引用 Microsoft Word 庫。2、打開模塊后按F5執(zhí)行即可生成word表格（不做窗體按鈕了，如有需要，請(qǐng) ...

謝謝roych 版主的詳細(xì)解答

xlb004

qqqqqqqqqqqqqqqqq