把EXCEL數(shù)據(jù)寫入WORD文檔A

1、VBA 在EXCEL 中操作 WORD 表格之七第1頁共7頁把EXCELT作表數(shù)據(jù)用 VBA寫入 WORD：檔編輯:madmlwt1 .逐個單元格數(shù)據(jù)寫入WORD表格【問題要求】新建”工程訂單.doc”，保存到當(dāng)前操作的EXCEL文件位置。新建”工程訂單.doc”文檔中，第一段落寫入“工程訂單”，第二段落寫入“單 位：新建裝飾有限公司”，第三段落插入一個與當(dāng)前工作表中數(shù)據(jù)行列數(shù)完全相 同的表格。把當(dāng)前工作表中數(shù)據(jù)(包括標(biāo)題行)按單元格讀取方式逐個寫入WORD表格中c 格式設(shè)置第一段落黑體、18號、水平居中；第二段落宋體、14號、水平居中；表格在頁面中水平居中；表格數(shù)據(jù)宋體、10號、左對齊；標(biāo)題

2、行加粗、水平居中?！敬a】 IBI 1 IB ! ! ! IBI ! Ill Bl ! HI I IB HI HI IB HI IB BIB SubEXCEL保存為 WORD表格數(shù)據(jù)（）Application.ScreenUpdating = False關(guān)閉屏幕刷新開始時間=Timer 程序運(yùn)行開始時間（秒）hs = ActiveSheet.UsedRange.Rows.CountS 前工作表數(shù)據(jù)行數(shù)ls = ActiveSheet.UsedRange.Columns.Coun鐺前工作表數(shù)據(jù)歹！J數(shù)wjM =工程訂單myFile = ActiveWorkbook.Path & & wjM &

3、.doc 保存的文件及路徑On Error Resume Next出現(xiàn)錯誤跳到下一行刪除文件myFile KillVBA 在EXCEL中操作 WORD表格之七第2頁共7頁On Error GoTo 0不進(jìn)行錯誤處理Set wd = CreateObject(Word.Application)定義一個 Word 對象變量 With wd.Documents.Add創(chuàng)建一個新的 Word文檔With .ActiveDocument.Paragraphs(1).Range 當(dāng)前活動文檔中.InsertParagraphBefore在指定的所選內(nèi)容或區(qū)域前插入一個新段落.InsertBefore工程訂

4、單寫入新段落內(nèi)容.Font.Name = 黑體字體.Font.Size = 18 字號.ParagraphFormat.Alignment = 1 水平居中End WithWith .ActiveDocument.Paragraphs(2).Range.InsertAfter 單位：新建裝飾有限公司.Font.Name = 華文新魏.Font.Size = 14.ParagraphFormat.Alignment = 1End With.ActiveDocument.Paragraphs(2).Range.InsertParagraphAfter 在第二段后面插入一個新的段落.ActiveDo

5、cument.Paragraphs(3).Range.Selec選中第三段落.ActiveDocument.Tables.Add Range:=.Selection.Range, NumRows:=hs, NumColumns:=ls 插入 hs 行 ls 列表格With .ActiveDocument.Tables(l) WORD 表格For h = 1 To hs從第一行循環(huán)到hs行For l = 1 To ls 從第1 列循環(huán)到 ls 列把當(dāng)前工作表l) ActiveSheet.Cells(h, = l).Range .Cell(h,VBA 在 EXCEL 中操作 WORD 表格之七 第

6、 3 頁 共 7 頁單元格數(shù)據(jù)寫入 WORD 表格With .Cell(h, l).Range 單元格字體設(shè)置.Font.Name = 宋體字體.Font.Size = 10 字號.Font.Bold = True 加粗If h 1 Then .Font.Bold = False 如果表格行不是第一行則字形不加粗End WithNext lNext hEnd With.Selection.Tables(1).AutoFitBehavior (1) 根據(jù)內(nèi)容自動調(diào)整表格.Selection.Tables(1).Rows(1).HeadingFormat = 9999998標(biāo)題行重復(fù).Active

7、Document.Tables(1).Rows.Alignment = 1 表格水平居中.Selection.Tables(1).Range.ParagraphFormat.Alignment = 3所有行數(shù)據(jù)左對齊.Selection.Tables(1).Rows(1).Range.ParagraphFormat.Alignment = 1標(biāo)題行居 中.ActiveDocument.SaveAs myFile 保存新建Word 文檔.Quit 關(guān)閉新建文檔窗口End WithSet wd = NothingMsgBox Chr(10) & 成功創(chuàng)建一個WORD 表格 & wjM _& Chr

8、(10) & Chr(10) & 共用時 & Timer - 開始時間 & 秒, ,Exc_To_WordApplication.ScreenUpdating = False關(guān)閉屏幕刷新SubEndVBA 在EXCEL中操作 WORD表格之七第4頁共7頁說明：逐個單元格數(shù)據(jù)寫入 WORD表格，就是工作表中的數(shù)據(jù)單元格，對應(yīng)已經(jīng)創(chuàng)建的WORD表格單元格，逐個寫入數(shù)據(jù)，這是 EXCEL數(shù)據(jù)保存為WORD表格最 基本、常規(guī)的操作方法。把EXCEL數(shù)據(jù)保存為WORD表格數(shù)據(jù)，基本思路就是先寫入數(shù)據(jù)再設(shè)置格式。 上面代碼在逐個單元格寫入數(shù)據(jù)過程中，對單元格進(jìn)行了字體格式設(shè)置，如果是 龐大數(shù)據(jù)的寫入，可能

9、會降低寫入速度。所以最好是把數(shù)據(jù)完全寫入后對表格整 體進(jìn)行所有格式設(shè)置。2 .當(dāng)前工作表數(shù)據(jù)復(fù)制到 WORD文檔【問題要求】把被操作的EXCEL當(dāng)前工作表數(shù)據(jù)復(fù)制粘貼到新建的 WORD文檔。新建WORD 文檔“清單.doc”，與被操作的EXCEL文件保存在相同位置。新建WORD文檔格式：第一段落為表格總標(biāo)題名“復(fù)制 EXCEL數(shù)據(jù)粘貼到新建 WORD文檔”、第 二段落為作者或者單位名稱“作者：老頑童”、第三段落粘貼復(fù)制的EXCEL數(shù) 據(jù)表格。第一段落黑體、18號、加粗、居中。第二段落華文新魏、14號、居中。表格數(shù)據(jù)標(biāo)題行宋體、12號、加粗。表格在頁面中水平居中、表格跨頁則標(biāo)題行重復(fù)、表格根據(jù)內(nèi)

10、容自動調(diào)整列 寬。【代碼】 Hl BIIHIBBl HI 1!HI Bl ! HI HI IBII HI HI Bl ! HIHI IB IIHIBIIH HI IB BlBl I 1hihub ii aiSub excel數(shù)據(jù)復(fù)制粘貼到word()Application.ScreenUpdating = False關(guān)閉屏幕刷新qsT = Timer 開始時間ActiveSheet.UsedRange.Copy復(fù)制已經(jīng)使用的數(shù)據(jù)區(qū)域文件名稱清單=wjMVBA 在EXCEL中操作 WORD表格之七第5頁共7頁myFile = ThisWorkbook.Path & & wjM & .doc 保存

11、的文件及路徑 On Error Resume Next出現(xiàn)錯誤跳到下一行Kill myFile 刪除文件On Error GoTo 0 不進(jìn)行錯誤處理Set wd = CreateObject(word.application) 創(chuàng)建WORD 對象wd.Documents.Add.SaveAs Filename:=myFile 新建一個WORD 文件并保存With wd.ActiveDocument.Paragraphs(1).Range當(dāng)前活動文檔中第一段.InsertParagraphBefore左邊(或前)插入一個新段落.InsertBefore 復(fù)制 EXCEL 數(shù)據(jù)粘貼到新建 WOR

12、D 文檔寫入新段落內(nèi)容End Withwd.ActiveDocument.Paragraphs(1).Range.InsertAfter作者：老頑童第一段右邊插入新段落wd.ActiveDocument.Paragraphs(2).Range.InsertParagraphAfter 在第二段后面插入一個新的段落wd.ActiveDocument.Paragraphs(3).Range.Selec選中第三段落wd.Selection.PasteExcelTable False, True, Fals粘貼復(fù)制的 EXCEL 表格With wd.ActiveDocument.Paragraphs(

13、1).Range第一段文本格式設(shè)置.ParagraphFormat.Alignment = 1 水平居中.Font.Size = 18 字號.Font.Name = 黑體字體.Font.Bold = True 加粗End WithWith wd.ActiveDocument.Paragraphs(2).Range第二段文本格式設(shè)置.ParagraphFormat.Alignment = 1.Font.Size = 14華文新魏 = .Font.NameVBA 在 EXCEL 中操作 WORD 表格之七 第 6 頁 共 7 頁End WithWith wd.Selection.Tables(1)

14、.AutoFitBehavior (1) 根據(jù)內(nèi)容調(diào)整表格列寬.Rows(1).HeadingFormat = 9999998標(biāo)題行重復(fù).Rows.Alignment = 1 表格水平居中With .Rows(1).Range.Font.Size = 12 字號.Font.Name = 宋體字體.Font.Bold = True 加粗End WithEnd Withwd.ActiveDocument.Save 保存修改wd.ActiveDocument.Close 關(guān)閉文檔wd.Quit 關(guān)閉 WORD 程序Set myRange = Nothing 釋放內(nèi)存Set adoc = Nothin

15、g 釋放內(nèi)存Set wd = Nothing 釋放內(nèi)存Application.CutCopyMode = False 撤銷復(fù)制狀態(tài)MsgBox Chr(10) &成功地把當(dāng)前EXCEL數(shù)據(jù)復(fù)制粘貼到 WORD文檔& Chr(10) & Chr(10) & 共計(jì)用去時間 & Timer - qsT &秒，excel數(shù)據(jù)復(fù)%U粘貼到 wordApplication.ScreenUpdating = False關(guān)閉屏幕刷新End Sub HI BIIHIB Bl HI 1!HI Bl ! HI HI IBII HI HI Bl ! HI HI IB IIHIBIIH HI IB Bl Bl I 1 HI HUB ll Bl說明：把EXCEL數(shù)據(jù)